Excel。VBA。表内の空白セルに手早く決まった文字列を入力したい
＜Excel VBA＞
ボール投げの成績一覧表があります。
B2:E6で、セルが空白の場合、「不参加」という文字を入力したいわけですが、どのようにしたら、効率よく手早く入力することができるのでしょうか。
空白を選択して、一括入力でもいいのですが、ちょっと面倒です。
そこで、今回は、Excel VBAでプログラム文をつくってみることにしました。
Sub 空白に文字()
Range("A1").CurrentRegion.SpecialCells(Type:=xlCellTypeBlanks).Value = "不参加"
End Sub
たった一行ですが、実行してみます。
空白セルに「不参加」という文字を入力することができました。
たった1行ですが、プログラム文を確認しておきましょう。
Range("A1").CurrentRegion.
A1から連続する範囲。
つまり表を選択しています。
SpecialCells(Type:=xlCellTypeBlanks)
指定した範囲内の空白セルに次の処理をします。
Value = "不参加"
「不参加」という文字列を設定する
という処理をすることができます。
