VBAで入力済みセル範囲を判定する(UsedRange)

必要なセルだけを処理したい

VBAでセルの値を使った処理を行う場合、必ず考えないといけなくなるのが、「何行目、何列目まで処理するか？」という点です。それを無視するとシートの最大行や最大列に達してしまい、それ以上の範囲を処理しようとしてエラーが発生してしまいます。

エラーにならないように考えないといけないこととして以下のようなことが挙げられます。

空行や空列があった場合どうしたらよいか？
値が入っていないけど背景色だけ設定している場合はどうしたらよいか？
関数が入っているけど表示は空になっている場合はどうしたらよいか？

このように、いろいろとセルの内容によって考慮しなければならないことが発生しますが、「処理しなければならないセル範囲はどこか」という点については、UsedRangeプロパティを使えば、これらの考慮しないといけないことは解決します。

構文

Property Worksheet.UsedRange As Range

UsedRangeプロパティは親オブジェクトとしてワークシートを指定します。ワークシートに入力されているセルの範囲をRangeオブジェクトを返します。

新規シートに追加しただけで何も入力されていないシートの場合は、入力されているセル範囲がないですがA1セルのみをセル範囲として返します。

そのため、UsedRangeは親オブジェクトとしてワークシートが存在していれば必ずRangeオブジェクトを返してくれます。

セル入力範囲を処理する場合のコード

入力されているセル範囲のセルを１つずつ処理する、というのはセルの処理を行う場合には結構使い道が多いです。

以下のコードはそのひな形として使える形にしています。

やっていることは、ワークシート（変数名：sht）のUsedRangeプロパティが示すセル範囲のセルをFor Eachで１セルずつ取得し、★マークの部分で実施したいセルの処理を書きます。例としてAddressプロパティでのセル座標を出力しています。

Sub UsedRangeSample()
    Dim sht As Worksheet    '// ワークシート
    Dim r   As Range        '// セル
    
    '// アクティブシートをWorksheetオブジェクトに設定
    Set sht = ActiveSheet
    
    '// シートのセル範囲を１セルずつループ
    For Each r In sht.UsedRange
        '// ★ここにセルの処理を書く

        '// セル座標を出力
        Debug.Print r.Address(False, False)
    Next
End Sub

Sub UsedRangeSample()

Dim sht As Worksheet '// ワークシート

Dim r As Range '// セル

'// アクティブシートをWorksheetオブジェクトに設定

Set sht = ActiveSheet

'// シートのセル範囲を１セルずつループ

For Each r In sht.UsedRange

'// ★ここにセルの処理を書く

'// セル座標を出力

Debug.Print r.Address(False, False)

End Sub

他のサンプル

上のUsedRangeプロパティを使ったサンプルコードですが、セル範囲を処理したい場合にはいろんな用途で利用できます。

以下は当サイトでUsedRangeプロパティを使っているページを抜粋しました。それぞれ用途は異なりますが、セル範囲を１セルずつ処理する、という考え方は上のサンプルコードと同じです。リンク先のコードはUsedRangeプロパティを使って実際にやりたいことが具体的に書いていますので、書き方などで迷うことがあったら参考にしてみてください。

必要なセルだけを処理したい

構文

セル入力範囲を処理する場合のコード

他のサンプル

関連記事