Сравнение листов Excel

Question

Мне трудно сравнивать и заменять значения в excel.Было бы замечательно, если бы кто-то мог помочь мне и направить меня.

На обоих листах нет билетов.Я хотел бы сравнить номер билета, если они совпадают, то скопируйте тип и подтип из листа1 в лист типа 2 и столбец подтипа.Я прилагаю изображение для вашей справки

Answer 1

Вы можете использовать функцию VLOOKUP .

. С помощью этой формулы вы можете искать каждый номер билета в sheet2, искать информацию в sheet1 и возвращать желаемое значение (тип или подтип).

Что-то вроде =VLOOKUP(A2;Sheet1!$A$2:$B$4;2;FALSE) должно работать для вас.адаптируйте его под свои нужды

Answer 2

Если вы хотите использовать VBA, это может вам помочь:

Option Explicit

Sub test()

    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim ws1LastRow As Long, i As Long, ws2LastRow As Long, y As Long
    Dim ws1TicketNo As String, ws2TicketNo As String, ws1Type As String, ws2Type As String, ws1SubT As String, ws2SubT As String

    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")

    ws1LastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    ws2LastRow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row

    For i = 2 To ws1LastRow

        ws1TicketNo = ws1.Range("A" & i).Value
        ws1Type = ws1.Range("B" & i).Value
        ws1SubT = ws1.Range("C" & i).Value

            For y = 2 To ws2LastRow

                ws2TicketNo = ws2.Range("A" & i).Value
                ws2Type = ws2.Range("B" & i).Value
                ws2SubT = ws2.Range("C" & i).Value

                If ws1TicketNo = ws2TicketNo Then
                    ws2.Range("B" & i).Value = ws1Type
                    ws2.Range("C" & i).Value = ws1SubT
                    Exit For
                End If

            Next y

    Next i

End Sub

Лист 1:

Лист2:

Результат: