仅向活动合并单元格添加字符串一次-Excel VBA宏

我有一列各种水平合并的单元格（3）和文本，我想在每个选定单元格之前添加一个字符串，但只添加一次（合并单元格为一个）

我有这段代码，但它会将字符串添加三次-对合并单元格中的每个单元格进行计数：

Sub Add2Formula()
' Add text

For Each c In Selection
c.Activate
ActiveCell.FormulaR1C1 = "Text - " & ActiveCell.Formula
Next c

End Sub

---

不要

选择

或

激活

VBA（读取）中的任何内容。直接使用

c

，您的问题就会消失。写入合并单元格的单元格而不是合并区域的第一个单元格将被忽略

Sub Add2Formula()
    Dim c As Range
    For Each c In Selection
        c.Value = "Text - " & c.Value
    Next c
End Sub