Excel VBA セルに文字を追記

表の1列のセルに同じ文字を追記する方法。

あとで表を修正したりするのに便利。

Sub cell_add()
'
'
Dim s As String
For i = 1 To 15
    '1列、i行目を選択
    Cells(i, 1).Select
    s = Cells(i, 1).Value
    '空白でない場合、処理する
    If s <> "" Then
    'セルに追記。Chr(10)はセル内改行
    ActiveCell.FormulaR1C1 = s & Chr(10) & "空白を除いてセルに追記"
    End If
    
Next

End Sub

事前がこれで

vbaを実行すると以下のように空白セルは無視して、空白でないセルに対して、セル内で改行して追記する形で、文字が追記できる。