Excel VBA遍历2列

Question

我想一次比较两列中的值，并创建了以下代码：它不起作用，第二个for循环（x1）首先使用不同的单元格，但我的意图是使用中断来退出for-在每个步骤之后循环。 我尝试使用Exit For，但无法正常工作。 知道我如何一次比较2列中的2个单元格（是否有2个循环）？ 谢谢！

For x2 = x2Row To 2 Step -1
    For xl = xRow To 2 Step -1
          If ((Cells(xl, xCol) = Cells(xl - 1, xCol)) And (Cells(x2, x2Col) = Cells(x2 - 1, x2Col))) Then

        Cells(xl, xCol) = ""

    End If

    Next xl
Next x2

Answer 1

是否要：遍历所有行并检查是否有垂直对。 如果是，则检查其直接邻居是否也是垂直对？

那请试试看

For x1 = xRow To 2 Step -1
    If Cells(x1, xCol) = Cells(x1 - 1, xCol) Then
        If Cells(x1, x2Col) = Cells(x1 - 1, x2Col) Then
            Cells(x1, xCol) = ""
        End If
    End If
Next x1

（编辑：xl vs. x1）