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

Question

如果使用VBA在Excel中某个单元格包含某些文本，则如何在另一个单元格中返回值。 假设如果B14到Z14范围内的任何单元格包含“ Jun”，则该单元格上方的单元格应填充Q4，依此类推。

Answer 1

在 B13 中输入：

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

并复制。

Answer 2

尝试以下代码：

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