指定したセル範囲の空白セルだけ選択する

SpecialCellsメソッドに、引数として定数”xlCellTypeBlanks”を指定して使用します。

Range("A1:A10").SpecialCells(xlCellTypeBlanks).Select



空白セルに文字列を入れるにはこうします。

Range("A1:a10").SpecialCells(xlCellTypeBlanks).Select
Selection.Value = "―"