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

Question

第一次发帖给我，希望能为VBA选择性硬编码提供一些帮助。

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

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

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

提前致谢，

奥利弗

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使比较不区分大小写。