VBA 最終行取得と空白セルの削除

セルを取得するEndプロパティ

A列の最終行（空欄まで）の取得

Cells(1, 1).End(xlDown)

A列下から最終行の取得　　Rows.Count = 1048576

Cells(Rows.Count, 1).End(xlUp)

Endプロパティ構文　End(Direction)
Direction一覧
xlUp : ↑上へ
xlDown : ↓下へ
xlToLeft : ←左へ
xlToRight : →右へ

セルの行数を取得するRowプロパティ

1行目～空欄までの場合

Cells(1, 1).End(xlDown).Row

最終行～入力セルの場合

  Cells(Rows.Count, 1).End(xlUp).Row

セルの列数を取得するColumnプロパティ

1行目～空欄までの場合　

Cells(1, 1).End(xlRight).Column

最終行～入力セルの場合

  Cells(1, Columns.Count).End(xlLeft).Column

空白セルの削除

各行の1列目が空白ならその行を削除する。

Dim i as long
Dim rCnt long

   rCnt = Cells(Rows.Count, 1).End(xlUp).Row
   For i = rCnt to 1 step -1
      If Cells(i, 1).Value = "" Then
         Rows(i).Delete
      End If
   Next