добавить фразу в каждую ячейку

[Korablin]

Доброго времени!

Как в каждую ячейку столбца (каждая ячейка содержит текст) добавить одинаковую фразу, например, в конец текста каждой ячейки?

Спасибо за ответ.

[SAS888]

Например, для всех непустых ячеек столбца "A", можно так:

Sub Main()
    Dim i As Long: Const s = " MyString": Application.ScreenUpdating = False
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) <> "" Then Cells(i, 1) = Cells(i, 1) & s
    Next
End Sub