Перекодировка наименований

[Hugo121]

Сообщение от Gigabait

это я знаюю. но 500 страниц протянуть - можно умереть!!!

Сообщение от Gigabait

страниц печатных на одном Экселевском листе...

Вот @#$%! А я тут макросы сочиняю...
Но в любом случае - он уже написан, и работает.

[nilem]

Игорь, не ругайся!
Gigabait, раз уж не получается протянуть формулу, попробуйте так

Sub rtyrty()
Dim lr&
lr = Sheets("Лист1").Cells(Rows.Count, 2).End(xlUp).Row
[c2].Formula = "=IFERROR(VLOOKUP(B2,Лист1!$B$2:$C$" & lr & ",2,0),"""")"
lr = Cells(Rows.Count, 2).End(xlUp).Row
[c2].AutoFill Destination:=Range("C2:C" & lr)
With Range("C2:C" & lr): .Value = .Value: End With
End Sub

В файле зеленая стрелка.