基于另一个单元格替换文本

Question

我有一个员工表，其中包含他们的操作和出勤状态。我想在列出的病假、假期、离开的地方用缺席替换他们的操作。我在下面的代码中尝试了一些类似的东西，但我丢失了有效的代码，但它只适用于特定的单元格而不是整个范围。我想要一个 vba 代码，如果满足某个条件，它将用缺席替换列 A。我确实知道如何通过应用过滤器手动执行此操作，但如果有人可以帮助我使用 vba 循环检查 Paycode 列中的值并替换它们的操作，我将不胜感激。

谢谢

  Sub IF_OR_Test()
    For Each Cell In Range("B2:B999")
        If Range("B2").Value = "Sick" Then
       Range("A2").Value = "Absent"
        End If
    Next Cell
End Sub

样本数据：

Answer 1

试试这个..

Sub IF_OR_Test()
dim cl as range
    For Each cl In Range("B2:B999")
        If cl.Value = "Sick" Then
       cl.offset(0,-1).Value = "Absent"
        End If
    Next cl
End Sub