Excel VBAで効率化：空白セルに一括でデフォルト値を設定する方法

この記事では、Excel VBAのSpecialCells機能を用いて、空白のセルにデフォルト値を簡単に一括入力する方法について解説します。

Excelで空白のセルに一つ一つデフォルト値を入力するのが大変なんですけど、もっと簡単な方法はないですか？

はい、Excel VBAのSpecialCells機能を使えば、空白のセルに一括でデフォルト値を設定できるんですよ。

SpecialCells機能とは？

SpecialCells機能とは、Excel VBAで利用できる非常に強力なメソッドの一つで、特定の条件に合致するセルの範囲を選択する際に用います。

このメソッドは、例えば空白のセル、数式が入力されているセル、定数値が入っているセルなど、様々な条件に基づいてセルを選択することができます。

これにより、大規模なデータセットに対して、特定のタイプのセルだけを迅速に操作することが可能になります。

空白セルにデフォルト値を設定するサンプルプログラム

空白セルにデフォルト値を設定するサンプルは以下の通りです。

Sub FillEmptyCells()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 現在のアクティブシートを選択

    ' 空白のセルを特定し、デフォルト値を設定
    Dim emptyRange As Range
    On Error Resume Next ' エラーを無視して次に進む
    Set emptyRange = ws.Cells.SpecialCells(xlCellTypeBlanks) ' 空白のセルを選択
    On Error GoTo 0 ' 通常のエラーハンドリングに戻す

    If Not emptyRange Is Nothing Then ' 空白のセルが存在する場合
        emptyRange.Value = "デフォルト値" ' すべての空白のセルにデフォルト値を設定
    Else
        MsgBox "空白のセルはありません。"
    End If
End Sub

上記のコードで、"デフォルト値"の部分を任意の値に置き換えます。

このプログラムは、現在アクティブなシートのすべての空白のセルを探し、それらのセルに指定したデフォルト値を設定します。

On Error Resume NextとOn Error GoTo 0はエラーハンドリングのためのコードで、特に空白のセルが一つもない場合にエラーを防ぐために必要です。

プログラムを実行すると、空白のセルがない場合はメッセージボックスが表示され、空白のセルがある場合はそれらがデフォルト値で埋められます。