string - 如果单元格中的字符串与特定字符串匹配，则 VBA 选择性硬编码/粘贴值

Question

第一次为我发帖，希望能在 VBA 方面获得一些帮助以进行选择性硬编码。

我目前有一列，其中设置了一个公式，该公式返回空白或各种文本字符串（我们公司订单的状态）。

我需要创建一个宏来查看该列的所有单元格，并将值作为值复制/粘贴到同一单元格中，前提是该单元格中的公式返回文本字符串“已接收”。它不应影响公式返回空白或不同文本字符串的其他单元格。

非常感谢您的帮助。如果您需要更多信息，请告诉我。

提前致谢，

奥利维尔

Answer 1

将以下内容放入工作簿的 VBA 项目中：

Option Compare Text

Sub replaceThem()
Dim r As Range
Dim c

Set r = Range("B1:B3") ' use the actual range here
For Each c In r
  If c.Value = "Received" Then c.Formula = "Received"
Next

End Sub

这将满足您的要求。c.Value返回单元格中公式的值c，c.Formula替换公式。使Option Compare Text比较不区分大小写。