Здравствуйте,
Посмотрите -
How to add strings of text to multiple cells in Excel?
Sub Add2Formula()
' Add text
For Each c In Selection
c.Activate
ActiveCell.FormulaR1C1 = "test - " & ActiveCell.Formula
Next c
End Sub
Если Вам помог чей-либо ответ, пожалуйста, не забывайте жать на кнопку "Предложить как ответ" или "Проголосовать за полезное сообщение" Мнения, высказанные здесь, являются отражение моих личных взглядов, а не позиции
корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий.