Замена данных при совпадении

[franchesko_totti]

Добрый день!
Нужна помощь. Помогите пожалуйста.

Есть файл - необходимо значения в столбце Е книги "Railway" заменить на значения из столбца В книги "Кредиторы" при совпадении фамилии и инициалов (или хотя бы при совпадении фамилии, так как инициалы там криво указаны).

[Hugo121]

Из

Кузнецов Александр Михайлович
Кузнецов Алексей Николаевич

можно брать любого?

[franchesko_totti]

А если инициалы будут указаны как положено, то есть вариант точной замены?Если там допустим будут стоять значения не "=АА", а допустим А.А.
Если кого то одного брать то не совсем корректно получится. Но если по другому не получится то всё равно было бы очень здорово.

[Hugo121]

Да.
Набранное вами сообщение слишком короткое. Увеличьте ваше сообщение до 10 символов - увеличил

[franchesko_totti]

А как правильно должна быть записана формула для замены без соответствия инициалов? Дальше я может быть и сам разберусь. Просто сейчас нет возможности указать везде полные инициалы.

[Hugo121]

Я не специализируюсь по формулам
Пока так:

Option Explicit

Sub tt()
    Dim a(), i&, t$, tarr

    With Sheets("Кредиторы")
        a = Range(.[B2], .Range("B" & Rows.Count).End(xlUp)).Value
    End With

    With CreateObject("scripting.dictionary")
        For i = 2 To UBound(a)
            tarr = Split(a(i, 1))
            t = tarr(0) & "|" & Left(tarr(1), 1)
            .Item(UCase(t)) = a(i, 1)
        Next

        With Sheets("Railway")
            a = Range(.[E5], .Range("E" & Rows.Count).End(xlUp)).Value
        End With

        For i = 1 To UBound(a)
            a(i, 1) = Replace(a(i, 1), ".", " ")
            a(i, 1) = Replace(a(i, 1), "=", " ")
            tarr = Split(a(i, 1))
            t = tarr(0) & "|" & Left(tarr(1), 1)
            If .exists(t) Then a(i, 1) = .Item(t)
        Next
    End With

    With Sheets("Railway")
        Range(.[E5], .Range("E" & Rows.Count).End(xlUp)).Value = a
    End With

End Sub

[franchesko_totti]

Спасибо!!! А если инициалы будут правильно указаны то макрос будет находить точное соответствие?

[Hugo121]

Этот не будет - нужно изменять строку

 t = tarr(0) & "|" & Left(tarr(1), 1)

(2 раза).
Ну и ещё нужно смотреть, как обходить возможные ошибки, например если в списке попадётся полное имя и инициалы Остапа Бендера
И ещё - если список большой, то одних инициалов может быть уже недостаточно для точной выборки нужных строк. Может тогда лучше так и оставить с инициалами - чтоб не ошибиться?

[franchesko_totti]

Согласен) Думаю так лучше и оставить.
Спасибо!

[Hugo121]

Ну вот и решили задачку
Но код советую разобрать и запомнить - пригодится для решения 90% задач. Хоть с виду и простой