Как настроить соответствие столбцов с одного листа, столбцам из другого.

[Alvia]

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

[mc-black]

Мой вариант решения:

Option Explicit

Sub DoIt()
    Dim i As Long, j As Long, n As Long, t As String
    Dim src As Worksheet, dst As Worksheet, srcArr()
    
    Set dst = ThisWorkbook.Worksheets(1)
    Set src = ThisWorkbook.Worksheets(2)
    
    j = 3
    Do While Not src.Cells(j, 1).Value = Empty
        j = j + 1
    Loop
    srcArr = src.Range(src.Cells(3, 1), src.Cells(j - 1, 2)).Value
    n = UBound(srcArr, 1)
    
    i = 3
    Do While Not dst.Cells(i, 3).Value = Empty
        t = CStr(dst.Cells(i, 2).Value)
        j = 1
        Do While j <= n
            If CStr(srcArr(j, 1)) = CStr(t) Then
                dst.Cells(i, 4).Value = srcArr(j, 2)
                dst.Cells(i, 4).Interior.Color = src.Cells(j + 2, 2).Interior.Color
                Exit Do
            End If
            j = j + 1
        Loop
        i = i + 1
    Loop
    
    Set dst = Nothing
    Set src = Nothing
End Sub

[Alvia]

Спасибо! То что нужно, очень помогли.