Переконвертировал макрос из MSO. Запуск происходит, но обрывается на FileToOpen = Application.GetOpenFileName("") с ошибкой Ошибка времени выполнения BASIC "423" Свойство или метод не найденыПолный код Код:Rem Attribute VBA_ModuleType=VBAModuleOption VBASupport 1Public Firststr As Integer, IsCol As IntegerSub Main()Set Dst = ActiveWorkbook.Sheets("Ключ")Set Dst_Key = Range(Dst.Range("A2"), Dst.Range("A2").End(xlDown))FileToOpen = Application.GetOpenFilename("")If FileToOpen = False Then EndEnd IfSet Fr = Workbooks.Open(FileToOpen)Fr.ActivateSet Tab1 = Fr.ActiveSheetNrow = Tab1.UsedRange.Rows.CountInputForm.ShowF or i = Firststr To Nrow Znach = Tab1.Cells(i, IsCol) Set Res = Dst_Key.Find(What:=Znach, LookIn:=xlValues, Lookat:=xlWhole) If Not Res Is Nothing Then DstRow = Res.Row Tab1.Cells(i, IsCol) = Dst.Cells(DstRow, 2) Else End IfNext iEnd Sub
| 
Линейный вид
