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与x1）

Excel VBA遍历2列

1 个答案: