Excel 2013 64bit VBA最後の空白行に焦点を当てる方法

Question

この質問をチェックしていただきありがとうございます。

ブックにはユーザーの名前のシートがあります。 ワークブックが開くときの最初のワークシートは、4つのコマンドボタン（各ユーザーに1つのボタン）として「メニュー」シートであり、ボタンをクリックするとワークシートに移動します。私は、彼らが自分のボタンをクリックしたときに起こるしたいと思い何 は

• は、（カーソルの位置にスクロール）、最後に空の行にカーソルを設定し、そのワークシート
• に行くです。

私はインターネットを検索しましたが、私が何が起こりたいのかに合わせて修正できるコードはありませんでした。

私は「メニュー」のワークシートを持っている現在のコードは次のようになります。

Private Sub CMB_Andrew_Click() 
    Sheets("Andrew").Activate 
    last_row = ThisWorkbook.Worksheets("Andrew").Cells(Rows.Count,2).End(xlUp).Row 

End Sub 

Private Sub CMB_Chris_Click() 
Sheets("Chris").Activate 
last_row = ThisWorkbook.Worksheets("Chris").Cells(Rows.Count, 2).End(xlUp).Row 

End Sub 

Private Sub CMB_Joy_Click() 
Sheets("Joy").Activate 
last_row = ThisWorkbook.Worksheets("Joy").Cells(Rows.Count, 2).End(xlUp).Row 

End Sub 

Private Sub CMB_Michael_Click() 
Sheets("Michael").Activate 
last_row = ThisWorkbook.Worksheets("Michael").Cells(Rows.Count, 2).End(xlUp).Row 

End Sub 

私はちょうどスクロールダウンしたユーザーを保存したい（私はそれがエンドユーザーのために、できるだけシンプルにする必要がLOL）

お手数ですがお助けいただきありがとうございます。

乾杯、 ShyButterfly

Answer 1

興味深い読む：

How to avoid using Select in Excel VBA macros

またシートは、あなたがそれをアクティブ化する前に表示されていることを

1. を確保
2. セルを選択する前に選択することができます

これは必要なものですか？

Private Sub CMB_Andrew_Click() 
    Sheets("Andrew").Activate 
    last_row = ThisWorkbook.Worksheets("Andrew").Cells(Rows.Count,2).End(xlUp).Row 
    Sheets("Andrew").Range("B" & last_row).Select 
End Sub