Я очень новичок в макросах Excel и VBA, пожалуйста, помогите мнепожалуйста с моей ниже ситуации. Вот ситуация, у меня есть два листа (лист1 и лист 2), на листе 1 есть имя и номер двух столбцов, а на листе 2 у меня есть номера вместе с другой информацией, такой как дата, начисление платы и т. Д.

Лист 1

Без имени PhoneNumber

1 Боб 7254

2 Кристин 5468

3 Луара 1234

Sheet2

№ PhoneNumber Дата Заряженный Имя

1 1145 30.12.2014 2 $

2 7254 26.11.2014 3 $

3 2365 9.03.2014 7 $

4 5468 3.10.2014

5 1234 3/11/2014

Я хочу сравнить столбец PhoneNumber листа 2 (столбец B) со столбцом PhoneNumber листа 1 (столбец C), и, если совпадение найдено, скопировать имя (столбец B) из листа Sheet1 в столбец имени листа 2 (столбец E). Если совпадений нет, то имя столбца на листе 2 должно быть пустым.

Я искал и нашел приведенный ниже код и немного изменил его, но я не уверен, является ли он правильным или нет:

    Sub test()

    Dim rng1 As Range, rng2 As Range, i As Integer, j As Integer
        For i = 1 To Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Row
            Set rng1 = Sheets("Sheet2").Range("B" & i)
            For j = 1 To Sheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row
                Set rng2 = Sheets("Sheet1").Range("C" & j)
                If rng1.Value = rng2.Value Then
                    Range("B2:B" & TotalRows).Copy Destination:=Sheets("Sheet2").Range("E2")
                End If

            Set rng2 = Nothing
        Next j
        Set rng1 = Nothing
    Next i
End Sub

Пожалуйста, помогите мне, так как времени для моего проекта очень мало, и я буду очень признателен за вашу помощь в этом отношении.