Vba 更改单元格范围的值

代码应检查E列中的单元格是否具有“J”值

如果是，请将值“positive”粘贴到各行N列的单元格中

我尝试了几种方法，包括范围、单元格等，但总是出现运行时错误

带有wsDURATION
范围（“A1”）。选择
对于x=1到wsDURLrow步骤1
如果单元格.Offset（x，4）.Value=“J”，则
单元格.偏移量（x，13）.Value=“正”
如果结束
下一个x
以

好了，伙计们，我想好了，话题可能就要结束了：）

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