如果excel宏中的某个单元格包含某些文本，如何在另一个单元格中返回值

如果单元格包含excel中使用VBA的特定文本，如何在另一个单元格中返回值。

---

例如，假设B14到Z14范围内的任何单元格包含“Jun”，则上面的单元格应填充Q4，依此类推

在B13中输入：

=IF(B14="Jun",$Q$4,"")

并跨窗口复制。

请尝试以下代码：

Sub PopulateCells()
    Dim rng As Range, c As Range
    Set rng = Range("B14:Z14")

    For Each c In rng
        If InStr(1, c.Value, "Jun") > 0 Then c.Offset(-1, 0).Value = "Q4" 
    Next
End Sub

---

您应该使用If语句。检查单元格值，如果为“真”，则填充字符串。它可以工作，谢谢（y）。