Excel VBA цикл через 2 столбца - PullRequest
0 голосов
/ 28 января 2019

Я хочу сравнить значения из двух столбцов одновременно, и я создал написанный код: он не работает, во-первых, второй цикл (x1) использует разные ячейки, но я намеревался использовать разрыв, чтобы выйти изпетля после каждого шага.Я пытался с 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

1 Ответ

0 голосов
/ 28 января 2019

Хотите ли вы это: Переберите все строки и проверьте, есть ли вертикальная пара.Если да, то проверьте, является ли его прямой сосед вертикальной парой?

Тогда попробуйте это

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)

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...