循环不正常工作

Question

我的b和c列被格式化为每个单元格中的日期和时间 当我运行这段代码时：

Dim b As Range
Dim c As Range
For Each b In ActiveSheet.UsedRange.Columns("B").Cells
    For Each c In ActiveSheet.UsedRange.Columns("C").Cells
        If b.Value = c.Value Then
            c.Value = Null
        End If
    Next c
Next b

只会在时间不相等的情况下生成空值。 它还在我的电子表格中创建了一堆空行。

任何想法为什么？

Answer 1

如果您使用UsedRange，＆＃39; Columns（＆＃34; B＆＃34;）将返回该选择的第二列，而不是B列。我建议查看使用此选项的内容：

ActiveSheet.UsedRange.Columns("B").Cells.Select

因此，您可以直观地看到正在选择的内容。它可能不是你想的。