excel - VBA 最後の列と最後の行を選択

Question

データ フィールドの一番右下のセルを選択しようとしています。20x20 グリッドのデータがあり、データのある最後の行を見つけるために、最後の列を見つける必要があります。コードの 2 行目でアクティブ セル関数を使用する際に問題が発生しています。

 Sub Add

      Range("A2").End(xlToRight).Select
      Range("A2").End(xlDown).Select

 End Sub

Answer 1

Sub Add
    ActiveCell.SpecialCells(xlCellTypeLastCell).Select
End Sub

Answer 2

現在のコードを修正する場合:

Sub Add
  Range("A2").End(xlToRight).End(xlDown).Select
End Sub

ただし、空白のセルが横方向または下方向にある場合は失敗します (短く停止します)。

これを行うためのより良い方法については、ケータリング責任者がリンクしているページを参照してください。