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

第一次为我发帖，希望能得到一些VBA对选择性硬编码的帮助

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

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

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

提前感谢,

---

Olivier

将以下内容放在工作簿的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

替换公式。

选项Compare Text

使比较不区分大小写。

要澄清，请扫描一系列单元格。如果该单元格中的公式返回“Received”，请将公式替换为字符串。我理解对了吗？范围总是一样的吗？很抱歉回答得太晚了。非常感谢你！你好从回答到第一反应，这一定是一个创纪录的延迟。。。无论如何，对我来说。