excel 2016 自动将其他单元格中的值交换为“*value*”

Question

我必须在一个单元格中交换值才能="\*value\*"

=countif这是我发现的唯一能够使公式发挥作用的方法=sumif。

目前我发现的唯一解决方案是手动输入="**"，这简直是一场灾难。还有其他解决方案吗？

Answer 1

首先突出显示您想要处理的单元格并运行这个简短的宏：

Sub qwerty()
    Dim r As Range, DQ As String
    DQ = Chr(34)
    For Each r In Selection
        r.Formula = "=" & DQ & r.Value & DQ
    Next r
End Sub

前：

之后：

编辑＃1：

如果希望公式中使用星号，请使用以下命令：

Sub qwerty()
    Dim r As Range, DQ As String
    DQ = Chr(34)
    For Each r In Selection
        r.Formula = "=" & DQ & "*" & r.Value & "*" & DQ
    Next r
End Sub

生成结果：