Excel 将函数应用于光标选择的单元格组

我可以将前导引号和尾随引号添加到使用光标选择的单元格（单个单元格）

如果我用光标选择一组单元格，如何将以下函数应用于所有选定单元格

Sub AddQuotes()
ActiveCell.Value = ("*" & (ActiveCell.Value) & "*")
End Sub

你可以用这个：

Sub AddQuotes()
Dim rng As Range

For Each rng in Selection

    rng.Value = ("*" & (rng.Value) & "*")

Next rng

End Sub

---

不过，您应该研究在不使用选择或激活范围的情况下对macrros进行编码。

这是循环的替代方法（尽管*不是引号！）：

---

这里使用

选择没有问题

：OP特别选择了一些单元格进行操作…感谢您的选择。我希望我能把两个答案都标为有效。

Sub AddQuotes()
    With Selection
        .Value = .Worksheet.Evaluate("INDEX(""*""&" & .Address & "&""*"",)")
    End With
End Sub