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

2016/3/5 VBA

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

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

高橋

関西で140-170/80～120万から受け付けております^^
得意技はJS(ES6),Java,AWSの大体のリソースです
Python3.6,Djangoを勉強中です,Javaは少し飽きてしまってます–;
コメントはやさしくお願いいたします^^
座右の銘は、「狭き門より入れ」「願わくは、我に七難八苦を与えたまえ」です^^