Как быстро объединить несколько файлов Excel
Мы рассмотрим три способа объединения файлов Excel в один: путем копирования листов, запуска макроса VBA и использования инструмента «Копировать рабочие листы» из надстройки Ultimate Suite.
обработать данные в файле намного проще, чем переключаться между книгами. Однако объединение нескольких книг Excel в один файл может быть сложным и трудоемким процессом, особенно если книги, которые необходимо объединить, содержат много листов. Так как же решить эту проблему? Будете ли вы копировать их вручную или с помощью кода VBA? Или вы используете один из специализированных инструментов для объединения файлов Excel?
Ниже вы найдете несколько хороших способов реализовать слияние.
- Самый простой — скопировать вручную.
- Комбинируйте файлы Excel с VBA.
- Как объединить несколько файлов с Ultimate Suite.
Примечание. В этой статье мы расскажем, как скопировать листы из нескольких книг Excel в одну книгу. Если вы ищете быстрый способ скопировать данные с нескольких листов на общий лист, вы найдете подробные инструкции в другой статье: Как объединить несколько листов в один.
Простой метод — копировать листы руками.
Если вам просто нужно объединить пару файлов Excel, вы можете вручную скопировать или переместить листы из одного файла в другой. Вот как это сделать:
- Откройте книги, которые мы планируем объединить.
- Выберите листы в исходной книге, которые вы хотите скопировать в основную книгу.
Чтобы выбрать несколько листов, используйте один из следующих приемов:
- Чтобы выбрать соседние листы, щелкните вкладку первого листа, который вы хотите скопировать, удерживайте нажатой клавишу Shift, затем щелкните вкладку последнего. Это действие выберет все листы между ними.
- Чтобы выбрать несмежные, удерживайте клавишу Ctrl и щелкайте по каждой вкладке по отдельности.
- Выделив все листы, щелкните правой кнопкой мыши одну из выделенных вкладок и выберите «Переместить или скопировать…» .
- В диалоговом окне «Перемещение или копирование» выполните следующие действия:
- В раскрывающемся списке «Переместить выбранные листы в книгу» выберите целевую книгу, в которой вы хотите объединить другие файлы.
- Укажите, где именно должны быть вставлены карты. В нашем случае мы выбираем вариант, который будет включен в конец списка.
- Установите флажок «Создать копию», если вы хотите, чтобы исходные данные остались в исходном файле.
- Щелкните ОК, чтобы завершить операцию.
Чтобы объединить вкладки из нескольких файлов Excel, повторите описанные выше шаги для каждой книги отдельно.
Комментарий. При копировании листов вручную помните о следующем ограничении, налагаемом Excel: нельзя перемещать или копировать набор листов, если один из них содержит интеллектуальную таблицу. В этом случае вам нужно будет преобразовать таблицу в диапазон или использовать один из других методов, у которых нет этого ограничения.
Как объединить файлы Excel с VBA
Если у вас есть несколько файлов Excel, которые необходимо объединить в один файл, более быстрый способ — автоматизировать процесс с помощью макроса VBA.
Ниже вы найдете код VBA, который копирует все листы из всех выбранных файлов Excel в книгу. Этот макрос MergeExcelFiles написан Алексом.
Важная заметка! Макрос работает со следующим ограничением: объединяемые файлы не должны быть открыты физически или в памяти, в буфере обмена. В этом случае вы получите ошибку во время выполнения.
Sub MergeExcelFiles () Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet как рабочий лист Dim wbkCurBook, wbkSrcBook как рабочая книга fnameList = Application.GetOpenFilename (FileFilter: = «Microsoft xls», xls); Файлы Excel для объединения «, MultiSelect: = True) If (vbBoolean VarType (fnameList)) Then If (UBound (fnameList)> 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook для каждого fnameCurFile в fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open (Имя файла: = f ForCurBookS .Sheets countSheets = countFogli.Sheets (wbk.CurBook) NextSheets SaveChaets: = False Next Applicationculation =ScreenUp Application. = xlCalculationBFutomatic & Msgcessed files «& v bCrLf &» Merged «& countSheets &» worksheets «, Title: =» Merge Excel file «End If Else MsgBox» None n selected file «, Title: =» Объединить файл Excel «End If End Sub
Как добавить этот макрос в книгу
Если вы хотите вставить макрос в свою книгу, выполните следующие обычные действия:
- нажмите Alt + F11, чтобы открыть редактор Visual Basic.
- Щелкните правой кнопкой мыши ThisWorkbook на левой панели и выберите в контекстном меню «Вставка»> «Форма.
- В появившемся окне (Окно кода) вставьте указанный выше код.
Более подробные инструкции см. В разделе Как вставить и запустить код VBA в Excel .
Кроме того, вы можете загрузить макрос в файл Excel, открыть его в этой книге (при необходимости включить выполнение макроса), затем перейти к своей книге и нажать Alt + F8, чтобы запустить его. Если вы новичок в использовании макросов в Excel, следуйте подробным инструкциям ниже.
Как использовать макрос MergeExcelFiles
Откройте файл Excel, в котором вы хотите объединить листы из других книг, и выполните следующие действия:
- Нажмите Alt + F8, чтобы открыть диалоговое окно.
- В разделе «Имя макроса» выберите MergeExcelFiles и нажмите «Выполнить».
- Откроется стандартное окно проводника, выберите одну или несколько книг, которые вы хотите объединить, и нажмите «Открыть». Чтобы выбрать несколько файлов, удерживайте клавишу Ctrl при вводе их имен.
В зависимости от того, сколько файлов вы выбрали, дайте макросу несколько секунд или минут на их обработку. После выполнения всех операций он сообщит вам, сколько файлов было обработано и сколько листов было объединено:
Как объединить несколько файлов с помощью Ultimate Suite.
Если вам не очень нравится VBA и вы ищете более простой и быстрый способ объединить файлы Excel, воспользуйтесь инструментом Копирование листов, одной из более чем 60 функций, включенных в потрясающий Ultimate Suite for Excel. Работает в версиях Excel 2010-2019.
С Ultimate Suite объединить несколько файлов Excel в один так же просто, как один-два-три (буквально 3 быстрых шага). Вам даже не нужно открывать те, которые хотите объединить. И это может быть два и более файла, неважно.
- Открыв главную бухгалтерскую книгу, перейдите на вкладку «Данные» в Ablebits и нажмите Копировать листы> Выбранные листы в книге)».
- В диалоговом окне выберите файлы (а в них — листы), которые хотите объединить, и нажмите «Далее)» .
Совет:
- Чтобы выбрать все листы в определенной книге, просто установите флажок рядом с названием книги, и все они в этом файле будут выбраны автоматически.
- Чтобы объединить закрытые книжные листы, нажмите кнопку «Добавить файлы…» и выберите все нужные книги. Это только добавит выбранные файлы в окно копирования, но не откроет их в Excel.
- По умолчанию все данные копируются. Однако на разных листах вы можете выбрать разные диапазоны для объединения. Чтобы скопировать только определенную область, наведите указатель мыши на название вкладки, затем щелкните значок и выберите нужный диапазон.
- При необходимости укажите один или несколько дополнительных параметров и нажмите «Копировать». На следующем снимке экрана показаны настройки по умолчанию: Вставить все (формулы и значения) и Сохранить форматирование.
Дайте мастеру копирования несколько секунд на обработку и наслаждайтесь результатом!
Эта страница содержит подробное описание всех функций мастера копирования.
Чтобы ближе познакомиться с этим и другими инструментами Excel, вы можете загрузить пробную версию Ultimate Suite.
Итак, я надеюсь, что у вас есть ответ на свой вопрос: как быстро объединить несколько файлов Excel в один.