[XL] アクティブセル領域の行数を取得する方法

詳細

アクティブセル領域とは、アクティブセルを基準とした、空白行と空白列で囲まれた矩形のセル範囲です。たとえば、ワークシートにデータベースを作成している場合、「項目行の左端列」から「最終データ行の右端列」までがひとつのセル領域になります。VBA を使って作業をするときに、データが何行入力されているかわからない場合、どこからどこまでの範囲がアクティブセルに関連するセル領域なのかを取得することができます。 CurrentRegion プロパティを使用します。

サンプル 1

次のサンプル モジュールでは、ワークシート "Sheet1" のセル A1 が含まれているアクティブセル領域を範囲選択しています。

  Sub CurrentRegionSelect()
      Worksheets("Sheet1").Range("A1").CurrentRegion.Select
  End Sub

サンプル 2

次のサンプルモジュールでは、ワークシート "Sheet1" のセル A1 が含まれているアクティブセル領域の総行数を MsgBox 関数で表示しています。

  Sub ShowCurrentRegionRowsCount()
      MsgBox Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count
  End Sub