循环不转到下一个元素

Question

我试图将C列中的每个单元格设置为空白，如果其单元格与B列中的值匹配

这是我的代码

For Each b In Columns("B").Cells
    For Each c In Columns("C").Cells
        If b.Value = c.Value Then
        c.Value = Null
    Next c
Next b

b和c都被声明为范围。

我得到的错误是“下一个没有”。

知道为什么吗？

Answer 1

这是我认为更好的方法....

dim rNg as range
dim rCell as range

set rNg = ThisWorkbook.Sheets("Sheet1").Range("your range") 'im assuming B:B in my code

for each rCell in rNg.Cells
    if rCell.Value <> vbNullString And rCell.Offest(0,1).Value <> vbNullString then
        if rCell.Value = rCell.Offset(0,1).Value Then
            rCell.Offset(0,1).Value = vbNullString
        End If
    End If
next rCell