VBAでUsedRangeを使用してセル範囲を取得する

VBAでUsedRangeを使用してセル範囲を取得することができます。

以下のエクセルがあるとします。

VBAでUsedRangeを使用してセル範囲を取得する

3行4列を使用しているのがわかると思います。この範囲を取得するには以下のように記述します。

Sub macro()
Dim rg As Range
Set rg = ActiveSheet.UsedRange

Debug.Print rg.Rows.count
Debug.Print rg.Columns.count
End Sub

UsedRangeプロパティはRangeオブジェクトを返します。

Rangeオブジェクト.Rows.countで行数を、Rangeオブジェクト.Columns.countで列数を取得することができます。結果は以下のようになります。

3
4

コメント

タイトルとURLをコピーしました