替換基於另一個單元格的文本

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