如果满足条件，则更改一系列单元格的值

Question

新年快乐！ 我有一个问题需要解决，我无法弄清楚为什么我的代码无法正常工作。希望你能指出我正确的方向。如果单元格的值为“J”，则代码应检查E列。如果是这样，它应该将值“positiv”粘贴到每个相应行的列N的单元格中。我尝试了几种方法，包括范围，单元格等，但我总是遇到运行时错误。提前感谢您的意见。

With wsDURATION

Range("A1").Select

For x = 1 To wsDURLrow Step 1
    If Cells.Offset(x, 4).Value = "J" Then
        Cells.Offset(x, 13).Value = "positiv"
    End If
Next x

End With

Answer 1

好的伙计们，我已经弄清楚了，主题可能会被关闭:)。

With wsDURATION

For Each cell In rng.Cells
    x = 0
    If cell.Value = "J" Then
        cell.Offset(x, 9).Value = "positiv"
    End If
    x = x + 1
Next
End With