Сравнивая два листа

Question

Это проблема формулы MS Excel:

Я хочу сравнить имена клиентов и модель автомобиля из двух электронных таблиц.Я могу импортировать ежемесячные данные в новый лист.Я хочу сравнить Sheet1! ColumnA (имя клиента) и Sheet1! ColumnB (модель автомобиля) с Sheet2! ColumnA (имя клиента) и Sheet2! ColumnB (модель автомобиля).Когда есть совпадение по обеим переменным, верните соответствующую ячейку из Sheet2 в Column3 (date).Если совпадений нет, оставьте пустым.

Я считаю, что это строка логических функций, но я пробовал по крайней мере двадцать, но безуспешно.Заранее спасибо!

Answer 1

Лист1:

Выход:

Попробуйте:

Option Explicit

    Sub test()

        Dim i As Long, j As Long
        Dim LastrowS1 As Long, LastrowS2 As Long
        Dim Customer_NameS1 As String, Car_ModelS1 As String, Customer_NameS2 As String, Car_ModelS2 As String
        Dim DateS1 As Date

        LastrowS1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
        LastrowS2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

        For i = 2 To LastrowS1
            With ThisWorkbook.Worksheets("Sheet1")
                Customer_NameS1 = .Range("A" & i).Value
                Car_ModelS1 = .Range("B" & i).Value
                DateS1 = .Range("C" & i).Value
            End With
                For j = 2 To LastrowS2
                    With ThisWorkbook.Worksheets("Sheet2")
                        Customer_NameS2 = .Range("A" & j).Value
                        Car_ModelS2 = .Range("B" & j).Value
                    End With

                    If Customer_NameS1 = Customer_NameS2 And Car_ModelS1 = Car_ModelS2 Then
                        Sheet2.Range("C" & j).Value = DateS1
                        Exit For
                    End If

                Next j

            Next i

    End Sub