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

KHI入社して退社。今はCONFRAGEで正社員です。関西で140-170/80～120万から受け付けております^^
得意技はJS(ES6),Java,AWSの大体のリソースです
コメントはやさしくお願いいたします^^
座右の銘は、「狭き門より入れ」「願わくは、我に七難八苦を与えたまえ」です^^

コメント