Если вы часто работаете с таблицами в Excel, у вас обязательно возникнет необходимость свести данные из нескольких таблиц в одну. В этой статье я покажу, как это сделать. Таблицы и данные Итак, на входе мы имеем несколько таблиц (или диапазонов) с данными. Для простоты объяснений приведу пример с синтетическими данными. На одном листе расположена таблица с базовыми данными по сотрудникам компании: На другом листе есть таблица с их контактными данными, но в неявном виде, без указания имени и фамилии сотрудника...

По многочисленным просьбам выкладываю ниже текст макроса из видео https://rutube.ru/video/5833afc53fb0b88a602a420a0630a372/ Sub Обработчик() ' ' Обработчик Макрос ' ' Dim sFolder As String, sFiles As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit Sub sFolder = .SelectedItems(1) End With sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator) sFiles = Dir(sFolder & "*.xls*") Application.ScreenUpdating = False Do While sFiles <> "" Workbooks.Open sFolder & sFiles Rows("1:3")...