Как я могу сопоставить несколько строк из нескольких наборов данных? - PullRequest
0 голосов
/ 31 октября 2018

SCREENSHOT

Что ж, я хочу выбрать значения в синем столбце (ID), если значения в желтых столбцах совпадают. Например, если код оператора в кадре данных 1 равен коду агента в кадре данных 2, а дата начала оператора в кадре данных 1 равна дате начала в кадре данных 2, а дата окончания в кадре данных 1 равна концу Дата в кадре даты 2, затем выберите выбрать или поместите цвет или тень на значение в столбце ID. Напомним, что совпадающие строки не обязательно должны быть в одной строке. Мне просто нужно выбрать строки во фрейме данных 2 (тот, что справа), если фрейм данных 1 (тот, что слева) имеет то же самое.

1 Ответ

0 голосов
/ 31 октября 2018

Для экспериментальных целей я использую Sheet1, поэтому, если необходимо, внесите изменения в имя листа и попробуйте:

Sub test()

    Dim i As Long
    Dim LR As Long

    With Worksheets("Sheet1")

        LR = .Range("A" & Rows.Count).End(xlUp).Row

        For i = 2 To LR

            If (.Range("A" & i).Value = .Range("K" & i).Value) And (.Range("B" & i).Value = .Range("M" & i).Value) And (.Range("C" & i).Value = .Range("N" & i).Value) Then
                .Range("G" & i).Interior.Color = vbRed
            End If

        Next i

    End With

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