Excel VBA UsedRangeプロパティでワークシート使用範囲を取得する方法

以下のようなシーンで利用されます。

・ワークシート内の全データを一括で処理したい。

・データの量に応じて、処理対象の範囲を動的に決定したい。

・使用されている範囲のデータをクリアしたい。

Option Explicit

Sub ShowUsedRange()
    Dim ws As Worksheet
    Dim usedRange As Range
    
    ' シート1を指定
    Set ws = Worksheets("Sheet1")
    
    ' 使用されている範囲を取得
    Set usedRange = ws.usedRange
    
    ' 使用されている範囲のアドレスを表示
    MsgBox "UsedRange is: " & usedRange.Address
End Sub

シート1の使用されている範囲内のデータをクリアする例

Option Explicit

Sub ClearUsedRange()
    Dim ws As Worksheet
    
    ' シート1を指定
    Set ws = Worksheets("Sheet1")
    
    ' 使用されている範囲をクリア
    ws.UsedRange.Clear
End Sub

シート1の使用されている範囲内の各セルの内容を読み取り、それをDebug.Printで出力する例

Option Explicit

Sub ReadUsedRange()
    Dim ws As Worksheet
    Dim usedRange As Range
    Dim cell As Range
    
    ' シート1を指定
    Set ws = Worksheets("Sheet1")
    
    ' 使用されている範囲を取得
    Set usedRange = ws.usedRange
    
    ' 使用されている範囲内の各セルをループ
    For Each cell In usedRange
        Debug.Print cell.Address & ": " & cell.Value
    Next cell
End Sub