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

Question

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

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

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

Answer 1

您可以使用这个：

Sub AddQuotes()
Dim rng As Range
For Each rng in Selection
    rng.Value = ("*" & (rng.Value) & "*")
Next rng
End Sub

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

Answer 2

作为循环的替代方案（尽管*不是引号！）：

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