【VBA】指定範囲内の複数の空白セルのみに対し、1コードで同じ値を設定する

複数の空白セルに対し、同じ値を
1コードで設定できます!

1コードで設定できるため、
 ・ループ処理で各セルを確認し、空白がどうかを判定する
といったやり方は不要です!

ループ処理が不要のため
処理の高速化が期待できます!

SpecialCells(xlCellTypeBlanks)」を使用して、
空白行のみに値を設定します!

VBAコード

例えば
 ・シート「sample」上に、以下の表のようにいくつかのセルが空白となっている
場合に、

空白セルのみに対し「-」を設定するために、以下のコードを実行します。

Sub sample()
    '空白セルのみに対し値を設定
    Worksheets("sample").Range("C3:H5").SpecialCells(xlCellTypeBlanks) = "-"
End Sub

実行結果

空白セルのみに対し、1コードで「-」を設定することが出来ました。

タイトルとURLをコピーしました