Объединить несколько книг excel на одном листе - Word и Excel

Как быстро объединить несколько файлов 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 As Worksheet
    Dim wbkCurBook, wbkSrcBook As Workbook
 
    fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", 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
 
            For Each fnameCurFile In fnameList
                countFiles = countFiles + 1
 
                Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)
 
                For Each wksCurSheet In wbkSrcBook.Sheets
                    countSheets = countSheets + 1
                    wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
                Next
 
                wbkSrcBook.Close SaveChanges:=False
 
            Next
 
            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic
 
            MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files"
        End If
 
    Else
        MsgBox "No files selected", Title:="Merge Excel files"
    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, обратите внимание на инструмент «Копирование листов (Copy Sheets)» — одну из более чем 60 функций, включенных в невероятно функциональную программу Ultimate Suite for Excel. Она работает в версиях Excel 2010-2019.

С Ultimate Suite объединение нескольких файлов Эксель в один так же просто, как раз-два-три (буквально, всего 3 быстрых шага). Вам даже не нужно открывать те из них, которые вы хотите объединить. И это могут быть два файла или несколько — не важно.

Открыв главную книгу, перейдите на вкладку «Ablebits Data» и нажмите «Копировать листы (Copy Sheets)» > «Выбранные в одну книгу (Selected Sheets to one workbook)».

В диалоговом окне выберите файлы (а в них — листы), которые вы хотите объединить, и нажмите «Далее (Next)» .

Советы:

Чтобы выбрать все листы в определенной книге, просто поставьте галочку в поле рядом с именем книги, и все они в этом файле будут выбраны автоматически.
Чтобы объединить листы из закрытых книг, нажмите кнопку «Добавить файлы…» и выберите столько книг, сколько нужно. Это добавит выбранные файлы только в окно копирования, не открывая их в Excel.
По умолчанию копируются все данные. Однако, в разных листах можно выбрать разные диапазоны для объединения. Чтобы скопировать только определенную область, наведите указатель мыши на имя вкладки, затем щелкните значок и выберите нужный диапазон.
При необходимости укажите один или несколько дополнительных параметров и нажмите «Копировать» . На снимке скриншоте а ниже показаны настройки по умолчанию: Вставить все (формулы и значения) и Сохранить форматирование.

Дайте мастеру копирования листов несколько секунд для обработки и наслаждайтесь результатом!

На этой странице есть подробное описание всех возможностей работы мастера копирования.

Чтобы поближе познакомиться с этим и другими инструментами для Excel, вы можете загрузить ознакомительную версию Ultimate Suite.

Итак, я надеюсь, вы получили ответ на вопрос — как быстро объединить несколько файлов Excel в один.

Источник

Сборка листов из разных книг в одну

Предположим, имеется куча книг Excel, все листы из которых надо объединить в один файл. Копировать руками долго и мучительно, поэтому имеет смысл использовать несложный макрос.

Открываем книгу, куда хотим собрать листы из других файлов, входим в редактор Visual Basic сочетанием клавиш Alt+F11 одноименной кнопкой на вкладке Разработчик (Developer — Visual Basic), добавляем новый пустой модуль (в меню Insert — Module) и копируем туда текст вот такого макроса:

 
Sub CombineWorkbooks()
    Dim FilesToOpen
    Dim x As Integer

    Application.ScreenUpdating = False  'отключаем обновление экрана для скорости
    
    'вызываем диалог выбора файлов для импорта
    FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="All files (*.*), *.*", _
      MultiSelect:=True, Title:="Files to Merge")

    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!"
        Exit Sub
    End If
    
    'проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen)
        Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
        Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        importWB.Close savechanges:=False
        x = x + 1
    Wend

    Application.ScreenUpdating = True
End Sub

После этого можно вернуться в Excel и запустить созданный макрос на вкладке Разработчик кнопкой Макросы (Developer — Macros) или нажав Alt+F8. Отобразится диалоговое окно открытия файла, где необходимо указать один или несколько (удерживая Ctrl или Shift) файлов, листы из которых надо добавить к текущей книге — и задача решена!

Ссылки по теме

Что такое макросы, куда вставлять код макроса на Visual Basic
Автоматическая сборка заданных листов из заданных книг с помощью надстройки PLEX
Автоматическая сборка данных с нескольких листов на один итоговый лист с помощью надстройки PLEX

Источник

Объединение копий общей книги

Смотрите также листа Лист2 это отвечает Cells(rrow,Я перелазил кучу .Show = 0 при объединении файлов подписывал листы, на листе может быть с названиями в в полеКонсолидация Office 2011 г. изменения из образца. JSON и XML.>Не удается выполнить слияние его копию сПримечание:Заранее благодарю 6), у меня форумов и нашел

 Then Exit Sub в один меняются которые он копирует, одна табличка, а других исходных областях,Все ссылки. При загрузке процедуры объединенияНа вкладкеИз папки книги, если она уникальным именем файла, Мы стараемся как можноvxg постоянно на нее только вариант где

pth = .SelectedItems(1)

 данный, а точнее именем файла, из иногда — несколько. могут привести к.Выберите в раскрывающемся спискеДля консолидации по расположению двоичных файлов вPower Query. Если кнопка еще не разрешается отличающимся от исходного. оперативнее обеспечивать вас: Public Sub merge_wbs()

ругается можно работать с End With Application.ScreenUpdating переносится запятая - которого получены данные?Шапка с данными появлению в консолидированныхПосле добавления данных изфункцию диапазон данных на Excel может появиться, затемПолучить данныевносить изменения несколькими пользователями…
Копии должны находиться актуальными справочными материалами Dim file_name(1 ToErmak27 листами, но мне = False Workbooks.Open было 30,88, а
У себя этот и их (данных) данных отдельных строк всех исходных листов
, которую требуется использовать каждом из исходных такое сообщение обИз файлане отображается, нажмитепараметр включен. в той же на вашем языке. 2) As String
: подскажите плиз это не подходит pth a =

 становится 3 088 макром попробовал (ничего
- последовательность всегда одинаковая. или столбцов. и книг нажмите
- для консолидации данных. листов должен иметь ошибке:> кнопку
Откройте исходную общую книгу, папке, что и Эта страница переведена
file_name(1) = «c:test.xls»_Boroda_Вот код Range(«E2:H» & Cells(Rows.Count, 000, 00?
не меняя), 2Спасибо!
Предположим, имеется куча книг кнопкуУстановите флажки в группе формат списка безЕсли вы проигнорируете ошибкиИз папкиНовый запрос в которую вы исходная книга. автоматически, поэтому ее file_name(2) = «c:test2.xls»: Cells(rrow, 6) это200?’200px’:»+(this.scrollHeight+5)+’px’);»> 1).End(xlUp).Row).Value ActiveWorkbook.Close False

Tatiana листа были названыPavel55 Excel, все листыОКИспользовать в качестве имен пустых строк и и нажмете кнопку.

> хотите добавить изменения.Попросите пользователей внести изменения текст может содержать Dim wb_idx As
ячейка, номер строкиOption Explicit lr = Cells(Rows.Count,: Прошу прощения, «меняются по имени файлов,
: То, что табличек из которых надо., указывающие, где в столбцов.ОКНажмите кнопкуИз файлаВ меню
в копии и неточности и грамматические Integer Dim ws_idx

 которой равняется значениюConst rrow =
- 1).End(xlUp).Row + 1 данные» в объединяемых остальные — нет.
- может быть 1 объединить в одинДля консолидации по категории исходных диапазонах находятсяОткройте каждый из исходных
, то процессОбзор>
Сервис сохранить их. ошибки. Для нас As Integer Dim rrow, а номер
2 Cells(lr, 1).Resize(UBound(a), UBound(a,

файлах (не в Или здесь уже или несколько - файл. Копировать руками диапазон данных на названия: листов и убедитесьобъединения двоичных файлов, чтобы перейти к

support.office.com

Объединение файлов в папке с объединение двоичных файлов (Power Query)

Из папкивыберите командуПримечания: важно, чтобы эта dest As Workbook столбца равняется 6Private Sub Worksheet_Activate() 2)) = a исходном). это прописано, но это не страшно. долго и мучительно, каждом из исходныхподписи верхней строки в том, чтобудет выполнен и нужной папке.Нажмите кнопкуобъединить книги… статья была вам Dim wb As

А для правильнойDim r As x = xPavelasd есть какие-то ограниченияНесколько вопросов: поэтому имеет смысл листов должен иметь, данные на них правильно загрузит данные,Появится список файлов вОбзор.Объединить книгу можно только

полезна. Просим вас Workbook Dim r работы именно этого

Range, sh As + 1 If: Здравствуйте! к именам файлов?

1) Всегда ли использовать несложный макрос. формат списка беззначения левого столбца расположены одинаково. несмотря на это

папке. Нажмите кнопку, чтобы перейти кЕсли появится запрос, сохраните с копиями, созданными уделить пару секунд As Integer Dim макроса нужно: Worksheet, ind& MsgBox(«Добавлено файлов: «Нужно объединить несколькоЗаранее спасибо) лист, на которомОткрываем книгу, куда хотим пустых строк илибо оба флажкаНа конечном листе щелкните сообщение. Мы работаем
Изменить нужной папке. книгу. из оригинала.

и сообщить, помогла c As Integer1. сохранить книгуApplication.ScreenUpdating = False & x & файлов Excel сShtirlitz находятся таблички называется собрать листы из столбцов. Кроме того,
одновременно. верхнюю левую ячейку над устранением этой, чтобы открыть редакторПоявится список файлов вВ диалоговом окне НавигацияНе удается выполнить слияние ли она вам, Set dest = в формате xlsxRange(«a» & rrow vbLf & vbLf таблицами одинаковой структуры: Ошибся… те листы, «EXEMPLE»? Или он других файлов, входим категории должны бытьВыделите на каждом листе области, в которой ошибки. запросов. В этом папке. В этом по файлам щелкните книги, если она
с помощью кнопок Application.Workbooks.Add For wb_idx или xlsb & «:ar» & & «Добавить ещё (одинаковые столбцы) в которые он назвал, может называться по в редактор Visual названы одинаково. Например, нужные данные. Не требуется разместить консолидированныеПримечание: примере мы загрузим случае мы загрузили копию книги, которая еще не разрешается внизу страницы. Для = 1 To2. заменить все Cells(rrow, 2).End(xlDown).Row).Clear файл?», vbYesNo +

одну таблицу. были просто так любому, но он Basic (

 если один из забудьте включить в данные.Мы стараемся как четыре книги Excel. 4 книг Excel.

содержит изменения, которыевносить изменения несколькими пользователями… удобства также приводим 2 Set wb ar на NAFor Each sh vbInformation, «Сообщение») =
Через параметры и же названы. В тогда должен бытьALT+F11

столбцов называется них ранее выбранныеПримечание: можно оперативнее обеспечиватьУбедившись в том, что Подтвердив, в котором вы хотите объединить,
параметр включен. ссылку на оригинал = Application.Workbooks.Open(file_name(wb_idx)) For3. заполнить в In Worksheets vbYes Then GoTo настройку таблицы добавил общем, он копирует
всегда ОДИН в), добавляем новый пустойСред. данные из верхней Убедитесь, что справа и вас актуальными справочными все нужные файлы располагаются все файлы, а затем нажмитеОткройте исходную общую книгу, (на английском языке). ws_idx = 1 листах 1-3 столбецWith sh begin_ Else a кнопку «Сравнить и
листы с исходным книге. (кстати, правильно модуль (в меню, а другой — строки или левого снизу достаточно свободных материалами на вашем присутствуют в списке, которые вы хотите кнопку в которую вы

Важно: To wb.Worksheets.Count wb.Activate B в техIf .Index <> = Range(«A2:D» &
объединить книги», но именем… Можно ли «example» пишется черезInsert — ModuleСреднее столбца. ячеек для консолидированных языке. Эта страница нажмите в столбце выберите параметрОК хотите добавить изменения. В этой статье описан wb.Worksheets(ws_idx).UsedRange.Select Selection.Copy r строках, которые нужно ActiveSheet.Index Then Cells(Rows.Count, 1).End(xlUp).Row).Value With она почему-то не всё-таки как-то сделать «a») и копируем туда, консолидация не просуммирует

Известные проблемы

Путь к файлу вводится данных. переведена автоматически, поэтомуСодержимоеОбъединить & Загрузка

.На способ объединения копий = dest.Worksheets(ws_idx).UsedRange.Rows.Count c скопировать.Set r = CreateObject(«Scripting.Dictionary») For i активна. В чём так, чтобы он2) Устроит ли текст вот такого

support.office.com

Объединение данных с нескольких листов

 эти столбцы. в полеНа вкладке ее текст можеткнопку.Примечание:панели быстрого доступа общей книги. Общие = dest.Worksheets(ws_idx).UsedRange.Columns.Count dest.ActivateХотя я бы .Range(«a» & rrow = 1 To может быть причина. ориентировался на название вас такой вариант макроса:Откройте каждый из исходныхВсе ссылкиДанные содержать неточности иОбъединить двоичные данные

Анализ каждого файла иМы стараемся какнажмите кнопку книги использовались ранее dest.Worksheets(ws_idx).Cells(r, c).Select dest.Worksheets(ws_idx).Paste написал немного иначе. & «:ar» & UBound(a) .Item(a(i, 1))И ещё. Главные файла? — будет одинSub CombineWorkbooks() Dim листов..в группе грамматические ошибки. Для. определяется в правильном можно оперативнее обеспечиватьСравнить и объединить книги для организации совместной Next wb.Close Next

Но и так .Cells(.Rows.Count, 2).End(xlUp).Row) = .Item(a(i, 1)) столбцы в этихPavel55 общий файл (с FilesToOpen Dim xНа конечном листе щелкнитеПосле добавления данных изРабота с данными нас важно, чтобыБудет выполнен анализ каждого формате, например вас актуальными справочными. работы нескольких пользователей. dest.SaveAs («c:res.xls») End работает.

r.Copy Cells(rrow + + a(i, 4) таблицах — это

Консолидация по расположению

: А можно уточняющий макросом), куда будет As Integer Application.ScreenUpdating верхнюю левую ячейку всех исходных листовнажмите кнопку эта статья была

файла и определентекстовый материалами на вашемЕсли появится запрос, сохраните Эта функция имеет
Subправда меня выкидываетЕсть два файла excel ind, 1) Next lr = номера инвойсов и

 вопрос. Допустим мы собираться инфо с = False ‘отключаем области, в которой и книг нажмите
Консолидация вам полезна. Просим правильный формат, например, языке. Эта страница книгу. множество ограничений и
на методе селект, с одной вкладкойind = ind Cells(Rows.Count, 1).End(xlUp).Row If
суммы по ним. имеет «Общий» файл,

разных файлов. Если обновление экрана для требуется разместить консолидированные кнопку
. вас уделить парутекстовыйExcel переведена автоматически, поэтомуВ диалоговом окне

Консолидация по категории

была заменена функцией в чем трабл каждый. Как объединить + r.Rows.Count lr > 1 Так вот, как в который будем это вас НЕ скорости ‘вызываем диалог данные.ОКВыберите в раскрывающемся списке секунд и сообщить,,или ее текст может

Выберите, какие файлы включить совместного редактирования. Совместное
неопределился их в один,End If Then Range(«A2:D» & можно сделать так,

 копировать листы с устроит, то где выбора файлов дляПримечание:.
функцию помогла ли онаExcelJSON содержать неточности и в книгу редактирование позволяет гораздо
Апострофф с двумя вкладками?End With lr).ClearContents Cells(2, 1).Resize(.Count,
чтобы при объединении других книг. Открываем должен храниться сам импорта FilesToOpen = Убедитесь, что справа иПримечание:, которую требуется использовать вам, с помощьюили. В этом случае
грамматические ошибки. Длящелкните копию книги, эффективнее объединять изменения: Если делать выделитьNext 2) = Application.Transpose(Array(.Keys,

одни и те первую книгу с макрос, который будет Application.GetOpenFilename _ (FileFilter:=»All
снизу достаточно свободных Любые названия, не совпадающие для консолидации данных. кнопок внизу страницы.JSON отображается список листов

 нас важно, чтобы изменения из которой и доступно вSelect все и копировать,Application.ScreenUpdating = True .Items)) End With же номера инвойсов

Консолидация по расположению

навазванием «Доходы.xls», в собирать инфо? files (*.*), *.*», ячеек для консолидированных с названиями вВыделите на каждом листе Для удобства также

. В этом примере данными из первой эта статья была вы хотите добавить. некоторых версиях Excel,
работает только с то при выставленииEnd Sub End If Application.ScreenUpdating не повторялись, а

 ней 3 листа.3) В вашей _ MultiSelect:=True, Title:=»Files данных. других исходных областях,
нужные данные. приводим ссылку на отображается список листов книги в Excel. вам полезна. Просим Чтобы одновременно объединить включая Excel 2016 для
активным листом! меняется размер строкЯ ниже прикрепил = True Beep
как бы объединялись, Мы их копируем табличке некоторые строки to Merge») IfНа вкладке

могут привести кПуть к файлу вводится оригинал (на английском из первой книги
Выберите лист, который вас уделить пару несколько копий, щелкните подписчиков Office 365.wb.Activate wb.Worksheets(ws_idx).Activate ‘!!! и столбцов и

Консолидация по категории

свой пример, подскажите MsgBox «Готово!» End т.е. чтобы в в «Общий» файл были скрыты - TypeName(FilesToOpen) = «Boolean»Данные появлению в консолидированных в поле языке) . Excel. Выберите нужный хотите использовать, а секунд и сообщить, их имена, удерживаяWindows macOS  wb.Worksheets(ws_idx).UsedRange.Select Selection.CopyИ использование

фотографии не переносятся. пожалуйста как решить
Sub объединённой таблице встретился и называем все ничего страшного не Then MsgBox «Не

в разделе данных отдельных строкВсе ссылкиЕсли данные, которые требуется лист и нажмите
затем и нажмите помогла ли она нажатой клавишу CTRLВажно:SelectКитин эту проблему!
GIKS номер этого инвойса 3 листа «Доходы»? будет, если макрос
выбрано ни одногоСервис или столбцов.. проанализировать, представлены на кнопкукнопку ОК вам, с помощью или SHIFT, а Прежде чем продолжить, необходимо
в подобных случаях: открываешь оба файла.KuklP: У меня один только один раз, Excel не даст будет раскрывать скрытые файла!» Exit Subнажмите кнопкуДля консолидации по расположению

После добавления данных из нескольких листах илиОК. Двоичные файлы объединения
кнопок внизу страницы. затем нажмите кнопку убедиться, что вы абсолютно нецелесообразно! в одном на: Для двух книг

 вопрос: а как но чтобы сумма присвоить нескольким листам строки? End If ‘проходимКонсолидация диапазон данных на всех исходных листов

support.office.com

Сборка листов из разных книг в одну

в нескольких книгах,. преобразования будет процесс, Для удобства такжеОК хотите использовать этотДостаточно вместо этих листе правой кнопкой.

быстрей скопировать вручную, переделать макрос чтоб по этому инвойсу одно и тожеP.S. постараюсь сегодня-завтра по всем выбранным. каждом из исходных и книг нажмите их можно объединитьНачнется процесс преобразования. Автоматически а затем автоматическое

приводим ссылку на. метод. Общие книги четырёх строк иметь переместить/скопировать. сверу выбираешь чем писать макрос. он копировал данные была суммой из имя. Или в написать макрос файлам x =Выберите в раскрывающемся списке листов должен иметь кнопку на одном листе будет создан запрос создание запроса на оригинал (на английскомВажно: имеют ограничения, а

всего одну. wb.Worksheets(ws_idx).UsedRange.copy файл №2.ОК. все А для Вас с ячеек A2 сумм по этому файле из которогоv_v_s 1 While xфункцию формат списка безОК с помощью команды на объединение данных объединение данных из языке) . Прежде чем продолжить, вы один из них

planetaexcel.ru

Объединение данных из разных файлов Excel в один

ultrastarAbram pupkin
глядишь и стимул по K2? инвойсу из всех
мы будем копировать: Смотрим: «http://www.planetaexcel.ru/tip.php?aid=111», возможно
После этого можно вернуться, которую требуется использовать пустых строк и.
«Консолидация». Например, если из каждого файла, каждого файла и

С помощью Excel Get должны быть уверены, не позволяет редактировать: Можно поподробнее пожалуйста..: дополню рисунком ответ будет подучить ВБА
перменную А менял, таблиц? лист будет только

подойдет

 в Excel и для консолидации данных. столбцов.Для консолидации по категории есть отдельный лист
а результат появится
отобразить результаты на & преобразования качества что хотите использовать их с помощьюfile_name(1) = «c:test.xls» КитинаНа всякий случай и ставил 11Да, и ещё, один лист?Pavel55

запустить созданный макросУстановите флажки в группеОткройте каждый из исходных диапазон данных на расходов для каждого в области предварительного одном листе. (Power Query), чтобы этот способ. Общие Excel Online. Поэтомуfile_name(2) = «c:test2.xls»топнуть правой мышкой

загляните: в .Item(a(i, 1)) можно ли файлыShtirlitz: Посмотрите приложенный архив. через менюИспользовать в качестве имен

листов и убедитесь каждом из исходных

 регионального представительства, с просмотра. Если онЕсли исходные файлы будут

 объединить несколько файлов, книги имеют ограничения, мы настоятельно рекомендуемтут перечислять имена по Листуhttp://forum.msexcel.ru/index.php/topic,7217.msg46197.html#new = .Item(a(i, 1)) объединить, если они: Ну если имена Распакуйте его вСервис — Макрос -, указывающие, где в в том, что листов должен иметь помощью консолидации можно вас устраивает, нажмите изменены, вы всегда которые имеют одинаковые поэтому мы настоятельно использовать совместное редактирование, всех файлов?Переместить копироватьErmak27 + a(i, 4) в разных папках,

 листов совпадают, то любую пустую папку Макросы (Tools - исходных диапазонах находятся данные на них формат списка без создать на базе кнопку сможете обновить импортированные схемы, из одной рекомендуем использовать вместо
которое является заменойvxgи добавлю еще: Может кто подскажет что упустил из просто выделив все он будет просто на вашем компьютере. Macro — Macros) названия:
расположены одинаково.

 пустых строк и этих данных корпоративныйЗакрыть и загрузить данные. Щелкните любое папки в одну них совместное редактирование. для общих книг.: это просто для один способ:RAN виду? эти папки?

 в скобках приписывать Откройте файл «Общийили нажавподписи верхней строкиНа конечном листе щелкните столбцов. Кроме того, лист расходов. Такой. место в диапазоне таблицу. В качествеНа вкладкеОткройте вкладку примера. у вастопнули правой мышкой: ПодсказываюkalbasiatkaСпасибо (2), (3) и файл — макрос.xls»ALT+F8, верхнюю левую ячейку

 категории должны быть лист может содержатьКогда процесс объединения двоичных данных, а затем примера объединение книгРецензированиеРецензирование эти имена могут на пересечении буквhttp://www.excel-vba.ru/chto-um….li-knig: Если почитать первыйPavelasd т.д., по крайней (название можете поменять).. Отобразится диалоговое окнозначения левого столбца
области, в которой названы одинаково. Например, итоговые и средние файлов завершится, данные на вкладке

 бюджета для несколькихнажмите кнопку

и посмотрите, есть быть сохранены где и цифрНо согласен с пост, то возможно,

: пример файла для мере. когда я В нём находится открытия файла, гделибо оба флажка требуется разместить консолидированные если один из данные по продажам, листов из спискаРабота с запросами

 отделов, где столбцыоткрыть книгу ли на ней нибудь в текстовомкопировать

planetaexcel.ru

Объединение нескольких файлов в один

 предыдущим оратором станет ясно, что
объединения этот макрос использовал, макрос «CombineTables». Запустите необходимо указать один одновременно.
данные. столбцов называется текущим уровням запасов будут консолидированы нанажмите кнопку те же, но.
кнопка файле, книге илии вставить вОтвет на ЛС. тут не проkalbasiatka он так и этот макрос (через или несколько (удерживаяВыделите на каждом листеПримечание:Сред. и наиболее популярным одном листе.Обновить количество строк иНа вкладкеОбщий доступ к книге даже на одном это же местоErmak27 копирование диапазонов был
: Что будет с делал, там в Alt+F8). Макрос просмотрит CTRL или SHIFT) нужные данные. Не Убедитесь, что справа и
, а другой —

 продуктам в рамкахЕсли исходные файлы будут. Кроме того, можно

 значений различия междуПравка. Если кнопки нет, из листов на другом файле: Подскажите пожалуйста почему разговор.

 датами, да и файлах были имена каждый файл в

 файлов, листы из забудьте включить в снизу достаточно свободных
Среднее
всей организации. изменены, вы всегда легко применить дополнительные книгами.нажмите кнопку ее необходимо отобразить.ultrastarЛаззат сейтбаева у меня выдаетОтбирались уникальные значения прочими данными одинаковых лист1, лист 2 текущей папке и которых надо добавить них ранее выбранные ячеек для консолидированных, консолидация не просуммируетТип консолидации следует выбирать сможете обновить импортированные этапы для преобразованияБолее новые версииРазрешить изменения для нескольких Кроме того, потребуется: какие именно? объяснить: Abram Pupkin спс ошибку и суммы по инвойсов, или надо и т.д., просто если на листе к текущей книге. данные из верхней данных. эти столбцы. с учетом того, данные. Щелкните любое или извлечения данных, Office 2010 – пользователей… отобразить кнопку «Сравнить безтолковому как сделать, за картинку200?’200px’:»+(this.scrollHeight+5)+’px’);»>Range(«a» & rrow & ним. только инвойс и в скобках добавлялись «Example» (переименовывать нельзя)Чайник

 строки или левогоНа вкладкеОткройте каждый из исходных как выглядят объединяемые место в диапазоне изменив автоматически созданный 2013 
Попросите других пользователей открыть и объединить книги». если например файлыОоо кирус «:ar» & Cells(rrow,Вам бы другую сумма?

 цифры. есть таблица, в: День добрый! столбца. Затем нажмитеДанные листов. листы. Если данные
данных, а затем запрос-образец. При этомЧтобы начать процесс объединения
файл и сохранить В этой статье называются 1,2,3,4 и

CyberForum.ru

Объединить книг в одну книгу (Объединить книг в одну книгу)

: ОГРОМНОЕ СПАСИБО! 6).End(xlDown).Row).Clear тему создать соPavelasdНо вообще хотелось столбце «B» которойМожет, кто может кнопкув разделеНа конечном листе щелкните на листах расположены на вкладке не нужно изменять
нескольких файлов, сначала его копию с объясняется, как отобразить т.д.ultrastarфайл прикрепил ниже
своим вопросом.
: да, надо только бы в идеале, есть слово "sku", помочь с таким Добавить Сервис верхнюю левую ячейку единообразно (названия строк Работа с запросами или добавлять этапы поместите их все уникальным именем файла, эти кнопки.vxg : Добрый день, нужно _Boroda_Ermak27 инвойс и сумма чтобы имена листов перенесёт эту таблицу вопросом. .нажмите кнопку области, в которой и столбцов могут нажмите кнопку запроса-функции, так как в одну папку. отличающимся от исходного. На вкладке
: пусть полные имена объединить около 30: А почему у: Добрый день! Столкнулся

kalbasiatka давались по названию на новый листЕсть несколько файловПуть к файлу вводитсяКонсолидация требуется разместить консолидированные wink
при этом различаться),Обновить
в него будут

Примечание: Копии должны находиться

Рецензирование наших файлов лежат
книг Excell с
Вас rrow=6, а с такой проблемой,
: Зачем «*» в

 файлов… файла «Общий файл с данными. в поле
. данные. воспользуйтесь консолидацией по
. Кроме того, можно

 автоматически перенесены все Поддерживаются файлы Excel и в той жеили на панели

 во внешнем TXT одинаковым количеством и не 10? есть две книги номере инвойсагость — макрос.xls». ПотестируйтеЕсть ли возможностьВсе ссылкиВыберите в раскрывающемся спискеПримечание: расположению. Если же легко применить дополнительные

 изменения из образца. Access, текстовые файлы, sad

 папке, что и быстрого доступа нажмите файле названием листов.Ermak27 каждая книга для
Примерно так:: пробл макрос. Если будут
объединить их в.функцию
Убедитесь, что справа и на листах для
этапы для преобразованияЧтобы начать процесс объединения а также файлы исходная книга. кнопку
Open «C:names.txt» ForНужно чтобы объединяло: Да заметил ошибочка каждой организации, они

excelworld.ru

Два файла excel в как объединить в один файл с двумя вкладками?

Sub добавить() Dimbasta замечания — пишите. один новый файлПосле добавления данных из, которую требуется использовать снизу достаточно свободных соответствующих категорий используются или извлечения данных, нескольких файлов, сначала в форматах CSV,

Попросите пользователей внести измененияОбщий доступ к книге Input As #1 по листам. вышла, я не туда заполняют данные

 i&, lr&, x&: Я так полагаю,Shtirlitz
? всех исходных листов
для консолидации данных.

ячеек для консолидированных одинаковые названия строк
изменив автоматически созданный поместите их все JSON и XML.
в копии и
. Do While NotТ.е. например на

 понимаю почему он и есть итоговая Dim a() begin_:

 вопрос с добовлением: Подскажите, плиз, а

Нужно объединить около 30 книг Excel в одну соответственно по листам

Пример и то, и книг нажмитеВыделите на каждом листе данных. и столбцов (данные запрос-образец. При этом
в одну папку.Щелкните на вкладке «
сохранить их.Установите флажок EOF(1) Line Input листе1 были все мне копирует шапку, книга по этим With Application.FileDialog(msoFileDialogFilePicker) .Filters.Clear
цифр так и

 как доработать макрос что хотелось бы кнопку нужные данные иНа вкладке при этом могут не нужно изменятьПримечание:данныеПримечания:Разрешить изменять файл нескольким #1, file_name ‘делаем данные с 30 шапка у меня организация, как автоматически .Filters.Add «Microsoft Excel не решился да? таким образом, чтобы получить во вложении.ОК нажмите кнопкуДанные быть расположены по-разному), или добавлять этапы Поддерживаются файлы Excel и» выберите пользователям одновременно… нечто с этим книг листа1, на идет до 10

 собрать данные с files», «*.xls» .AllowMultiSelectTatiana при копировании изПроблема, как вы
.Добавитьв группе используйте консолидацию по запроса-функции, так как
Access, текстовые файлы,Получение данныхОбъединить книгу можно только

. файлом Loop Close
листе2 все данные
строчки и можете
двух книг в = False .InitialFileName

: Подскажите, пожалуйста, почему разных книг в заметите, в том,Примечание:.Работа с данными категории. в него будут а также файлы

> с копиями, созданнымиПопросите других пользователей открыть #1 с 30 книг объяснить за что

 итоговую? = ThisWorkbook.Path If такое может происходить: один файл он что иногда на
Любые названия, не совпадающиеПуть к файлу вводитсянажмите кнопкуБолее новые версии автоматически перенесены все в форматах CSV,Из файла из оригинала.

CyberForum.ru

файл и сохранить

Источник

Объединить содержимое
1. Объедините все листы в один лист.
- 1.1 Объединение листов в один с помощью VBA
- 1.2 Объединение таблиц или именованных рангов с помощью запроса
- 1.3 Объедините листы в один лист с помощью инструмента
- 1.4 Дополнение к объединению листов в один
2． Объедините книги в одну книгу
- 2.1 Объединение книг в одну, перемещая или копируя
- 2.2 Объединение книг (одна папка) в одну с помощью VBA
- 2.3 Объединение книг (папок) в одну книгу с помощью инструмента
3． Объединение отдельных листов из рабочих тетрадей в одну книгу
- 3.1 Объединение определенных листов из книги с VBA
- 3.2 Объединение определенных листов из книги (папок) с помощью инструмента
4. Объедините два листа по ключевому столбцу.
- 4.1 Объединение двух листов по столбцу с помощью запроса
- 4.2 Объединение двух листов по столбцу с функциями
- 4.3 Объединение двух листов столбиком с помощью инструмента
5． Объединить два листа по два столбца
6． Объединить листы с одинаковыми заголовками
- 6.1 Объединить листы с одним и тем же коллектором по VBA
- 6.2 Объединение листов с одинаковым заголовком с помощью инструмента
Консолидировать
1． Объединяйте листы и проводите расчеты
- 1.1 Комбинируйте и выполняйте вычисления с помощью googlesheetintoonesheet
- 1.2 Комбинируйте и выполняйте вычисления с помощью инструмента
2．Совместите листы в сводную таблицу
Таблица Google
1． Объедините листы Google в один лист
- 1.1 Объедините листы Google в один лист с помощью фильтра
- 1.2 Объедините листы Google в один лист с помощью IMPORTRANCGE
2． Объедините листы Google в одну книгу
Расширение
1． Объедините листы и удалите дубликаты
- 1.1 Объедините листы, затем удалите дубликаты, удалив дубликаты
- 1.2 Объедините листы и удалите дубликаты инструментом
2． Объединяйте одноименные листы в одну книгу
3． Объединение одинаковых диапазонов на листах в один лист

В Excel объединение листов — обычная, но довольно сложная задача для большинства пользователей Excel, особенно для «зеленых». В этом руководстве перечислены почти все сценарии комбинирования, с которыми вы можете столкнуться, и представлены соответствующие профессиональные решения. Вы можете быстро найти ответ, щелкнув ссылку в списке навигации ниже, или вы можете изучить навыки комбинирования, перейдя по приведенным ниже ссылкам одну за другой, если вас это интересует.

В Excel объединение можно разделить на два типа: один — только объединение содержимого, другой — объединение содержимого и выполнение некоторых вычислений.

Навигация по этому руководству

Объединить содержимое

1. Объедините все листы в один лист.

1.1 Объединение листов в один с помощью VBA

1.2 Объединение таблиц или именованных рангов с помощью Query (Excel 2016 или более поздние версии)

1.3 Объедините листы в один с помощью удобного инструмента

1.4 Дополнение к объединению листов в один

2． Объедините книги в одну книгу

2.1 Объединение книг в одну с помощью команды «Переместить» или «Копировать»

2.2 Объединение нескольких книг (в одной папке) в одну книгу с кодом VBA

2.3 Объедините несколько книг (из нескольких папок) в одну книгу с помощью удобного инструмента

3. Объедините отдельные листы из нескольких книг в одну книгу.

3.1 Объединение отдельных листов из книг (все книги в одной папке)

3.2 Объединение определенных листов из нескольких книг (из нескольких папок) с помощью удобного инструмента

4. Объедините два листа на основе ключевого столбца.

4.1 Объединение двух таблиц на основе одного ключевого столбца с помощью запроса (Excel 2016 или более поздние версии)

4.2 Объединение двух листов на основе одного ключевого столбца с помощью функций Excel

4.3 Объединение двух листов на основе одного ключевого столбца с помощью удобного инструмента

5. Объедините два листа на основе двух столбцов.

6. Объедините листы с одинаковыми заголовками.

6.1 Объедините все листы с одинаковыми заголовками с помощью VBA

6.2 Объединение листов с одинаковыми заголовками с помощью удобного инструмента

Консолидировать

1. Объедините листы и произведите расчеты.

1.1 Объединяйте листы и выполняйте вычисления с помощью функции «Объединить»

1.2 Объединяйте листы и проводите расчеты с помощью удобного инструмента

2. Объедините несколько листов в сводную таблицу.

Таблица Google

1. Объедините листы Google в один лист.

1.1 Объедините листы Google в один лист с помощью функции фильтра

1.2 Объедините листы Google в один лист с помощью функции ИМПОРТРАНЖ

2. Объедините листы Google в одну книгу.

Расширение

1. Объедините листы и удалите дубликаты.

1.1 Объедините листы, затем удалите дубликаты, удалив дубликаты

1.2 Объедините листы и удалите дубликаты с помощью мощного инструмента

2. Объедините одноименные листы в одну книгу.

3. Объедините одинаковые диапазоны на разных листах в один лист.

Внимание

В этом руководстве я создаю несколько листов и данных для лучшего объяснения методов. Вы можете изменить ссылки по своему усмотрению, когда используете приведенный ниже код VBA или формулы, или вы можете напрямую загрузить образцы для опробования методов.

Объединить содержимое

1. Объедините все листы в один лист.

Вот рабочая тетрадь с 4 листами, которые необходимо объединить в один лист.

Нажмите, чтобы загрузить образец файла

1.1 Объедините все листы в один лист с кодом VBA

В Excel, кроме традиционного метода — копирования и вставки, вы можете использовать код VBA для быстрого объединения всех листов в один лист.

1. Нажмите F11 и другой ключи для включения Microsoft Visual Basic для приложений окно.

2. Затем во всплывающем окне нажмите Вставить > Модули чтобы вставить новый пустой модуль.

3. Скопируйте и вставьте приведенный ниже код в новый модуль.

VBA: объединить все листы в один

Sub CombineAllSheetsIntoOneSheet()
'UpdatebyExtendoffice
    Dim I As Long
    Dim xRg As Range
    On Error Resume Next
    Worksheets.Add Sheets(1)
    ActiveSheet.Name = "Combined"
   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange
        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If
        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next
End Sub

В приведенном выше коде сценарий «Комбинированный» — это имя листа, на котором размещается объединенное содержимое, вы можете изменить этот сценарий на другой по своему усмотрению.

4. нажмите F5 Клавиша для запуска кода, лист с именем Combined был создан перед всеми листами, чтобы разместить все содержимое листов.

1.2 Объедините все таблицы или именованные диапазоны с помощью запроса (Excel 2016 или более поздние версии)

Если вы работаете в Excel 2016 или более поздних версиях, функция запроса позволяет одновременно объединять все созданные таблицы или именованные диапазоны в одну.

Нажмите, чтобы загрузить образец файла

Во-первых, убедитесь, что диапазоны были созданы как таблицы или именованные диапазоны, для создания таблицы и именованного диапазона см. Как преобразовать диапазон в таблицу или наоборот в Excel и Определение и использование имен в формулах.

1. Откройте книгу, в которой вы хотите объединить все листы, щелкните Данные > Новый запрос > Из других источников > Пустой запрос.

2. Во всплывающем Редактор запросов окна, перейдите к строке формул, введите в нее формулу ниже.

= Excel.CurrentWorkbook ()

Нажмите Enter key, все таблицы в текущей книге были перечислены.

3. Нажмите кнопку «Развернуть» рядом с Содержание и проверить Расширьте вариант и Выбрать все столбцы флажок.

4. Нажмите OK. Все таблицы перечислены одна за другой.

Вы можете щелкнуть правой кнопкой мыши заголовок столбца, чтобы выполнить другие операции с выбранным столбцом.

5. Затем нажмите Файл > Закрыть и загрузить в….

6. в Загрузить в диалог, проверьте Настольные вариант, затем выберите место для загрузки объединенной таблицы в Выберите, куда должны быть загружены данные разделом, щелкните нагрузка.

Теперь создается новый лист для размещения всех объединенных таблиц.

1.3 Объедините все листы в один с помощью удобного инструмента

Если описанные выше методы не могут вас удовлетворить, вы можете попробовать полезный и удобный инструмент, Kutools for Excel, его Сочетать Эта мощная функция не только может объединять все листы в один лист, но также может выполнять расширенные комбинированные задания, такие как объединение листов в одну книгу, объединение листов с одинаковыми именами, объединение только выбранных листов, объединение листов в файлах и т. д.

1. Включите книгу, листы которой вы хотите объединить, щелкните Кутулс Плюс > Сочетать. Появится диалоговое окно, напоминающее вам о некоторых уведомлениях о пароле. Если книги, которые вы хотите использовать, не касаются пароля, просто нажмите OK для продолжения.

2. в Объедините рабочие листы — шаг 1 из 3 окно, проверка Объедините несколько листов из книг в один лист , нажмите Download кнопку.

3. в Шаг 2 из 3 окно, по умолчанию текущая книга была указана и проверена в Список рабочих книг панели, и все листы текущей книги были перечислены и отмечены в Список рабочих листов панели, нажмите Download для продолжения.

Примечание: если вы открыли несколько книг, все открытые книги перечислены в списке книг, пожалуйста, отметьте только ту книгу, которую хотите использовать.

4. На последнем шаге выберите нужный режим комбинирования, вы можете выбрать Объединить по строкам or Объединить по столбцу; затем укажите другие параметры по мере необходимости. Нажмите Завершить кнопку.

5. Появится диалоговое окно, в котором вы можете выбрать одну папку для размещения объединенной книги, вы можете переименовать ее в Имя файла панель, щелкните Сохраните в конце.

6. Теперь все листы объединены вместе, и появляется диалоговое окно, в котором вас спросят, сохранить ли настройки как сценарий, нажмите Да or Нет как тебе нравится.

Появится новая книга с перечисленным результатом объединения, щелкните ссылку Выходной файл, чтобы проверить объединенный лист.

Объединить по строкам

Объединить по столбцу

1.4 Дополнение к объединению листов в один лист

1.41 С помощью удобного инструмента, чтобы объединить только выбранные листы в один лист

Если вы хотите объединить только некоторые листы в книге в один лист, встроенная функция в Excel не может этого добиться. Но Сочетать особенность Kutools for Excel может сделать это.

1. Включите используемую книгу и нажмите Кутулс Плюс > Сочетать > OK для включения мастера объединения.

2. в Шаг 1 из 3 окно, проверка Объедините несколько листов из книг в один лист , нажмите Download кнопку.

3. В окне Шаг 2 из 3 по умолчанию текущая книга была указана и отмечена на панели списка рабочих книг, а все листы текущей книги перечислены и отмечены на панели списка рабочих листов, снимите отметки с листов, которые не нужно объединять, нажмите «Далее», чтобы продолжить.

4. На последнем шаге укажите необходимые параметры. Нажмите Завершить кнопку.

6. Теперь только отмеченные листы были объединены вместе, и появится диалоговое окно, в котором вас спросят, сохранить ли настройки как сценарий, нажмите Да or Нет как тебе нравится.

1.42 С помощью удобного инструмента для объединения листов из нескольких книг в один лист

Например, вы хотите объединить все листы book1, book2 и book3 в один лист, как показано на скриншоте ниже. Сочетать особенность Kutools for Excel также может вам помочь.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Включите используемые книги и нажмите Кутулс Плюс > Сочетать > OK для Сочетать Мастер.

2. в Шаг 1 из 3 окно, проверка Объедините несколько листов из книг в один лист , нажмите Download кнопку.

3. в Шаг 2 из 3 окно, все открытые книги были перечислены и отмечены в Список рабочих книг панели, и все листы открытых книг были перечислены и отмечены в Список рабочих листов панели, нажмите Download для продолжения.

Совет: если вы хотите добавить книги для объединения, нажмите кнопку «Добавить», чтобы выбрать путь для добавления книг.

4. На последнем шаге выберите нужные вам параметры. Нажмите Завершить кнопку.

6. Теперь все листы в открытых книгах были объединены вместе, и появится диалоговое окно, в котором вас спросят, сохранить ли настройки как сценарий, нажмите Да or Нет как тебе нравится.

Откройте объединенную книгу, которую вы сохранили, листы книг были объединены в один лист.

2. Объедините несколько книг в одну книгу.

Вот три книги, которые необходимо объединить в одну книгу.

янв.xlsx фев.xlsx мар.xlsx

2.1 Объединение книг в одну с помощью команды «Переместить» или «Копировать»

Только для объединения листов в нескольких книгах Excel Переместить или скопировать Команда может оказать вам услугу.

1. Откройте первые две книги, которые вы хотите объединить, активируйте первую книгу, выберите листы, которые вы хотите переместить, а затем щелкните правой кнопкой мыши, чтобы включить контекстное меню, и нажмите Переместить или скопировать.

Tips

1) Щелкните правой кнопкой мыши на одной вкладке и выберите Выбрать все листы из контекстного меню сначала, если вы хотите переместить все листы, затем используйте Переместить или скопировать команда.

2) Холдинг Ctrl Клавиша выбора нескольких несмежных листов.

3) Выберите первый лист и удерживайте Shift Клавиша выбора последнего листа для выбора нескольких соседних листов.

2. в Переместить или скопировать диалог, в Бронировать раскрывающийся список, выберите книгу, в которую вы хотите переместить листы, здесь выберите Янв, затем укажите место, в которое вы хотите поместить листы. Перед листом разделом, щелкните OK.

Примечание:

1) Вам лучше проверить Создать копию, или исходная книга потеряет лист после перемещения.

2) Если вы хотите поместить все книги в новую книгу, выберите (новая книга) in Бронировать выпадающий список.

Как листы были перемещены в основную книгу.

Повторите шаги, описанные выше, чтобы переместить все книги в одну.

2.2 Объединение нескольких книг (в одной папке) в одну книгу с кодом VBA

Чтобы объединить множество книг, которые все находятся в одной папке, вы можете использовать код VBA.

1. Включите книгу, в которую вы хотите объединить все книги, затем нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Во всплывающем окне щелкните Вставить > Модули чтобы вставить новый пустой модуль.

3. Скопируйте и вставьте ниже код VBA в новый модуль.

VBA: объединить несколько книг в текущую книгу

Sub GetSheets()
'Updated by Extendoffice
Path = "C:UsersAddinTestWin10Desktopcombine sheetscombine sheets into one workbook"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Внимание

В коде VBA сценарий «C: Users AddinTestWin10 Desktop объединить листы объединить листы в одну книгу «- это путь к папке, в которой находятся книги, которые вы хотите объединить, измените его в соответствии с вашими потребностями.

Если книги, которые вы хотите объединить, находятся в разных папках, сначала скопируйте их в одну папку.

4. Нажмите F5 нажмите клавишу для запуска кода, тогда все книги будут скопированы в конец текущей книги.

Наконечник: все скопированные листы будут использовать свое исходное имя, если вы хотите использовать имя книги в качестве префикса, используйте приведенный ниже код:

Sub MergeWorkbooks()
'Updated by Extendoffice
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:UsersAddinTestWin10Desktopcombine sheetscombine sheets into one workbook"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

2.3 Объедините несколько книг (из нескольких папок) в одну книгу с помощью удобного инструмента

Иногда вам может потребоваться объединить все книги из разных папок в одну книгу. Например, чтобы объединить все книги в папке 2020 и 2021 в одну книгу, в Excel нет прямого способа справиться с этим.

Однако Сочетать особенность Kutools for Excel предоставляет возможность объединить книги из нескольких папок в одну.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Включите Excel, щелкните Кутулс Плюс > Сочетать, Появится диалоговое окно, напоминающее вам о некоторых уведомлениях о пароле. Если книги, которые вы хотите использовать, не касаются пароля, просто нажмите OK для продолжения.

2. в Объедините рабочие листы — шаг 1 из 3 окно, проверка Объедините несколько листов из книг в одну книгу , нажмите Download кнопку.

3. в Шаг 2 из 3 в окне щелкните стрелку рядом с Добавить кнопку, чтобы отобразить раскрывающееся меню, щелкните Папка.

4. Затем в Выбор папки диалоговом окне выберите одну папку, которую вы хотите использовать, щелкните Выбор папки добавить это к Список рабочих книг .

5. Повторите описанный выше шаг, чтобы добавить все папки и перечислить все книги в Список рабочих книг, нажмите Download.

6. На последнем шаге выберите нужные вам параметры. Нажмите Завершить кнопку.

7. Появится диалоговое окно, в котором вы можете выбрать одну папку для размещения объединенной книги, вы можете переименовать ее в Имя файла панель, щелкните Сохраните в конце.

8. Теперь все листы объединены вместе, и появляется диалоговое окно, в котором вас спросят, сохранить ли настройки как сценарий, нажмите Да or Нет как тебе нравится.

Появится новая книга, в которой перечислены результаты объединения, щелкните ссылку Выходной файл, чтобы проверить объединенный лист.

Объединить результат

Примечание. В объединенной книге первый лист с именем Kutools for Excel содержит некоторую информацию об исходных рабочих листах и окончательных объединенных листах, вы можете удалить ее, если она вам не нужна.

3. Объедините отдельные листы из нескольких книг в одну книгу.

Если вы хотите объединить только несколько листов книг в одну книгу, а не все листы каждой книги, вы можете попробовать следующие методы.

четверть-1.xlsx четверть-2.xlsx четверть-3.xlsx

3.1 Объединение определенных листов из книг (все книги в одной папке) в одну книгу с кодом VBA

1. Откройте книгу, чтобы найти объединенные листы, затем нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Во всплывающем окне щелкните Вставить > Модули чтобы вставить новый пустой модуль.

3. Скопируйте и вставьте ниже код VBA в новый модуль.

VBA: объединить определенные листы нескольких книг в текущую книгу

Sub MergeSheets2()
'Updated by Extendoffice
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
 
xStrPath = "C:UsersAddinTestWin10Desktopcombine sheetscombine specific sheets from multiple workbooks"
xStrName = "A,B"
 
xArr = Split(xStrName, ",")
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
 
End Sub

Внимание

1) В коде VBA скрипт » C: Users AddinTestWin10 Desktop объединить листы объединить определенные листы из нескольких книг «- это путь, по которому находятся книги, которые вы хотите объединить, измените его в соответствии с вашими потребностями.

2) В коде VBA скрипт «А, В«- это имена отдельных листов из книг, которые я хочу объединить, измените их по своему усмотрению, используя запятые для разделения каждого имени листа.

3) Если книги, которые вы хотите объединить, находятся в разных папках, сначала скопируйте их в одну папку.

4. Нажмите F5 ключ для запуска кода, то только определенные рабочие листы будут скопированы в конец текущей книги.

3.2 Объединение определенных листов из нескольких книг (из нескольких папок) с помощью удобного инструмента

Если книги, которые вы хотите объединить, находятся во многих разных папках, вы можете попробовать Kutools for ExcelАвтора Сочетать функцию.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

5. Повторите вышеуказанный шаг, чтобы добавить все папки и перечислить все книги в Список рабочих книг.

6. Тогда оставайтесь в Шаг 2 из 3 в окне выберите одну книгу в Список рабочих книг, и проверяйте только те листы, которые хотите использовать в Список рабочих листовзатем нажмите Тот же лист кнопка. Теперь все одноименные листы рабочих тетрадей в Список рабочих книг были проверены. Нажмите Download для продолжения.

7. На последнем шаге выберите нужные вам параметры. Нажмите Завершить кнопку.

8. Появится диалоговое окно, в котором вы можете выбрать одну папку для размещения объединенной книги, вы можете переименовать ее в Имя файла панель, щелкните Сохраните заканчивать

9. Теперь отдельные листы были объединены вместе, и появляется диалоговое окно, в котором вас спросят, сохранить ли настройки как сценарий, нажмите Да or Нет как тебе нравится.

Объединить результат

4. Объедините два листа на основе ключевого столбца.

Как показано на скриншоте ниже, есть две таблицы на двух листах, вы хотите объединить эти две таблицы в одну на основе одного ключевого столбца в Excel.

Комбинированный стол

Наблюдения и советы этой статьи мы подготовили на основании опыта команды запрос Функция в Excel 2016 или более поздних версиях очень мощная, она поддерживает объединение двух таблиц на основе ключевого столбца.

Перед использованием запрос убедитесь, что диапазоны, которые вы хотите объединить, были созданы в виде таблиц.

объединить две таблицы на основе ключевого столбца запроса.xlsx

1. Щелкните любую ячейку первой таблицы, щелкните Данные > Из таблицы в Получить и преобразовать группа.

2. в Редактор запросов диалоговое окно, нажмите Файл > Закрыть и загрузить к команда. Смотрите скриншот:

3. Затем во всплывающем Загрузить в диалог, проверьте Только создать соединение вариант. Нажмите нагрузка.

Теперь вы можете увидеть Запросы к книге отображение панели, и таблица была указана на панели в виде ссылки.

Повторите шаги, указанные выше, чтобы добавить вторую таблицу в Запросы к книге панель.

4. Затем нажмите Данные > Новый запрос > Объединить запросы > идти.

5. в идти В двух раскрывающихся списках отдельно выберите две таблицы, которые вы хотите объединить. Таблица внизу будет объединена с таблицей выше.

6. Щелкните ключевой столбец, на основе которого вы хотите объединить две таблицы, щелкните OK.

7. Merge1 — редактор запросов всплывающее окно, нажмите кнопку «Развернуть» рядом с Новая колонка, затем отметьте все столбцы, кроме ключевого, снимите флажок Использовать исходное имя столбца в качестве префикса флажок, щелкните OK.

Теперь две таблицы были объединены в одну на основе указанного ключевого столбца.

8. Нажмите Файл > Закрыть и загрузить в, В Загрузить в диалог, проверьте Настольные вариант и укажите место, которое вы хотите загрузить. Нажмите нагрузка.

Теперь две таблицы были объединены на основе ключевого столбца.

4.2 Объединение двух листов на основе одного ключевого столбца с помощью функций Excel

Если вы хотите переместить только один или два столбца с одного листа на другой и определить местоположение на основе ключевого столбца, функции Excel могут вам помочь.

Например, переместите полные данные с листа 2 на лист 1 и на основе столбца A найдите данные.

объединить два листа на основе ключевого столбца functions.xlsx

4.21 Объединение двух листов по столбцу с помощью функции ВПР.

1. Скопируйте и вставьте формулу ниже рядом с таблицей на листе 1:

= ВПР (A2; Лист2! $ A $ 2: $ B $ 5,2; ЛОЖЬ)

Объяснение:

A2: первое значение поиска (ключевой столбец);

Sheet2! $ A $ 2: $ B $ 5: массив таблицы, таблица содержит два или более столбца, в которых находятся столбец значения поиска и столбец значения результата;

2: индекс столбца, конкретный номер столбца (это целое число) table_array, из которого вы вернете совпадающее значение.

2. Нажмите Enter ключ, чтобы получить первый результат.

3. Затем перетащите маркер автозаполнения вниз, чтобы заполнить все данные.

4. Не снимая выделения с ячеек формулы, щелкните Главная вкладка и перейдите к форматированию ячеек так, как вам нужно, в Число группа.

Для получения дополнительной информации о функции ВПР щелкните здесь.

4.22 Объединение двух листов по столбцу с помощью формулы объединение функций ПОИСКПОЗ и ИНДЕКС

1. Скопируйте и вставьте формулу ниже рядом с таблицей на листе 1:

=INDEX(Sheet2!$B$2:$B$5,MATCH(Sheet1!A2,Sheet2!$A$2:$A$5,0))

Объяснение:

Sheet2! $ B $ 2: $ B $ 5: столбец с совпадающим значением, которое вы хотите найти;

Sheet1! A2: первое значение поиска (в ключевом столбце);

Sheet2! $ A $ 2: $ A $ 5: ключевой столбец, на основе которого вы хотите объединить два листа.

2. Нажмите Enter ключ, чтобы получить первый результат.

3. Затем перетащите маркер автозаполнения вниз, чтобы заполнить все данные.

Подробнее об INDEX.

Подробнее о МАТЧЕ.

4.3 Объединение двух листов на основе одного ключевого столбца с помощью удобного инструмента

Кроме функции объединения, есть еще одна мощная функция — Слияние таблиц in Kutools for Excel, который может быстро и легко объединить два листа на основе одного ключевого столбца.

Комбинировать два листа на основе ключевого столбца удобный инструмент.xlsx

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс >Слияние таблиц.

2. В TСлияние способностей — шаг 1 из 5 в окне выберите диапазоны таблиц в Выберите основную таблицу и Выберите таблицу поиска раздел отдельно, нажмите Download.

3. в Шаг 2 из 5 в окне, отметьте ключевой столбец, на основе которого вы хотите объединить, щелкните Download.

4. в Шаг 3 из 5 в окне вы можете проверить столбцы, данные в которых вы хотите обновить, на основе таблицы поиска, если вам не нужны данные для обновления, просто щелкните непосредственно Download.

5. в Шаг 4 из 5 в окне, здесь отметьте столбцы, которые вы хотите объединить в основную таблицу, затем нажмите Download.

6. На последнем шаге укажите нужные вам параметры, нажмите Завершить.

Эта функция поддерживает объединение двух листов в разных книгах.

5. Объедините два листа на основе двух столбцов.

Предположим, есть две таблицы на листе Sheet1 и Sheet2 отдельно, теперь, чтобы переместить данные в столбце End_Dates с листа2 на лист1 на основе столбца Project и столбца Start_Date, как показано ниже:

Комбинированный лист

Нажмите, чтобы загрузить образец файла

В Excel встроенные функции не поддерживают эту операцию, но Слияние таблиц of Kutools for Excel может справиться с этим.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс > Слияние таблиц.

2. в Объединение таблиц — шаг 1 из 5 в окне выберите диапазоны таблиц в Выберите основную таблицу и Выберите вкладку поискараздел e отдельно, нажмите Download.

3. в Шаг 2 из 5 в окне отметьте два ключевых столбца, на основе которых вы хотите объединить, щелкните Download.

Примечание: автоматически соответствующие столбцы в таблице поиска будут сопоставлены, вы можете щелкнуть имя столбца в столбцах таблицы поиска, чтобы изменить их по своему усмотрению.

5. в Шаг 4 из 5 в окне, отметьте здесь столбцы, которые вы хотите объединить в основную таблицу, затем щелкните Download.

6. На последнем шаге укажите нужные вам параметры, нажмите Завершить.

Затем столбцы, которые вы хотите добавить, были добавлены в конец основной таблицы.

Эта функция поддерживает объединение двух листов в разных книгах.

6. Объедините листы с одинаковыми заголовками.

Чтобы объединить несколько листов с одинаковым заголовком, как показано на скриншоте ниже:

Комбинированный лист

Нажмите, чтобы загрузить образец файла

6.1 Объедините все листы с одинаковыми заголовками с помощью VBA

Существует код VBA, который может объединить все листы книги с одинаковыми заголовками.

1. Включите книгу, в которой вы хотите объединить листы с одинаковым заголовком, затем нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Во всплывающем окне щелкните Вставить > Модули чтобы вставить новый пустой модуль.

3. Скопируйте и вставьте ниже код VBA в новый модуль.

VBA: объединить листы с одинаковым заголовком

Sub Combine()
'Update by Extendoffice
    Dim i As Integer
    Dim xTCount As Variant
    Dim xWs As Worksheet
    On Error Resume Next
LInput:
    xTCount = Application.InputBox("The number of title rows", "", "1")
    If TypeName(xTCount) = "Boolean" Then Exit Sub
    If Not IsNumeric(xTCount) Then
        MsgBox "Only can enter number", , "Kutools for Excel"
        GoTo LInput
    End If
    Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
    xWs.Name = "Combined"
    Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
    For i = 2 To Worksheets.Count
        Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
               Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
    Next
End Sub

4. нажмите F5 нажмите клавишу для запуска кода, появится диалоговое окно с запросом количества строк заголовка, введите число в текстовое поле. Нажмите OK.

Теперь все листы в этой книге были объединены в новый лист с именем Combined.

6.2 Объединение листов с одинаковыми заголовками с помощью удобного инструмента

Наблюдения и советы этой статьи мы подготовили на основании опыта команды Сочетать особенность Kutools for Excel также может справиться с этой задачей и поддерживает объединение листов в книгах.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Включите книгу, листы которой вы хотите объединить с одинаковыми заголовками, щелкните Кутулс Плюс > Сочетать.

2. Появится диалоговое окно с напоминанием о пароле. Если книги, которые вы используете, не содержат паролей, щелкните OK продолжить. В появлении Объедините рабочие листы — шаг 1 из 3 окно, проверка Объедините несколько листов из книг в один лист , нажмите Download.

3. в Шаг 2 из 3 окно, все листы перечислены и зарегистрированы Список рабочих листов разделом, щелкните Download продолжать.

Советы:

1) Если вы хотите объединить только некоторые листы, просто отметьте нужные имена листов и оставьте другие не отмеченными.

2) Если вы хотите добавить больше книг для объединения, щелкните Добавить для добавления файлов или папок в Список рабочих книг .

4. в Шаг 3 из 3, проверить Объединить по строкам вариант и введите количество строк заголовка в поле Количество строк заголовка текстовое поле, укажите другие параметры по своему усмотрению. Нажмите Завершить.

5. Выберите папку и дайте имя новой книге в Укажите имя файла и расположение для объединенной книги диалоговое окно, нажмите Сохраните.

6. Появится диалоговое окно, в котором вас спросят, сохранить ли настройки как сценарий, нажмите Да or Нет для вас нужно. Появится рабочая книга со списком ссылок на исходную книгу и новую книгу, щелкните ссылку пути к новой книге, чтобы открыть ее для проверки.

Консолидировать

1. Объедините листы и произведите расчеты.

Например, есть три листа с одинаковыми заголовками строк и столбцов, теперь вы хотите объединить их с одинаковыми заголовками и суммировать данные, как показано на скриншотах ниже.

Результат

Нажмите, чтобы загрузить образец файла

1.1 Объединяйте листы и выполняйте вычисления с помощью функции «Объединить»

В Excel Консолидировать функция поддерживает объединение листов и выполнение расчетов.

1. Включите книгу, листы которой вы хотите объединить, и выберите ячейку, в которую вы хотите поместить объединенные данные, щелкните Данные > Консолидировать.

2. в Консолидировать диалоговое окно, выполните следующие настройки:

1). Функция в раскрывающемся меню выберите расчет, который нужно выполнить после объединения листов.

2) Щелкните значок выбора рядом с Приложения кнопку, чтобы выбрать диапазон для объединения, и нажмите кнопку Добавить до Все ссылки .

Повторите этот шаг, чтобы добавить все диапазоны, которые необходимо объединить в Все ссылки .

3). Используйте ярлыки в раздел, проверьте Верхний ряд и Левая колонка флажки, если диапазоны имеют как заголовок строки, так и заголовок столбца.

4) Если вы хотите, чтобы объединенное содержимое изменялось по мере изменения данных источников, установите флажок Создавать ссылки на исходные данные флажок.

3. Нажмите OK. Диапазоны объединены и суммированы по заголовкам.

Примечание: если диапазоны, которые вы хотите объединить, находятся в других книгах, нажмите кнопку «Обзор» в диалоговом окне «Объединить», чтобы выбрать книгу, а затем введите имя листа и диапазон в текстовое поле и нажмите «Добавить», чтобы добавить диапазон в раздел «Все ссылки».

1.2 Объединяйте листы и проводите расчеты с помощью удобного инструмента

Наблюдения и советы этой статьи мы подготовили на основании опыта команды Сочетать особенность Kutools for Excel поддерживает объединение листов в нескольких книгах и выполнение вычислений на одном листе.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Включите книги, которые вы хотите объединить, щелкните Кутулс Плюс > Сочетать.

2. Появится диалоговое окно с напоминанием о пароле. Если книги, которые вы используете, не содержат паролей, щелкните OK продолжить. В появлении Объедините рабочие листы — шаг 1 из 3 окно, проверка Объединяйте и вычисляйте значения из нескольких книг на одном листе , нажмите Download.

3. в Шаг 2 из 3 окно, все листы открытых книг перечислены и проверены Список рабочих листов разделом, щелкните Download продолжать.

Совет: если вы хотите объединить только некоторые листы, просто отметьте нужные имена листов и оставьте другие не отмеченными. Если вы хотите добавить больше книг для объединения, нажмите «Добавить», чтобы добавить файлы или папки в раздел «Список книг».

4. в Шаг 3 из 3, укажите расчет, нужные вам ярлыки. Нажмите Завершить.

2. Объедините несколько листов в сводную таблицу.

Если ваши данные имеют простую структуру, как показано на скриншоте ниже, вы можете напрямую объединить листы в сводную таблицу.

Нажмите, чтобы скачать образец

1. Включите рабочую книгу, которую вы будете использовать, щелкните Настройка панели быстрого доступа > Дополнительные команды.

2. Во всплывающем Параметры Excel окно, выберите Все команды из Выберите команды из раздел, затем перетащите полосу прокрутки, чтобы выбрать Мастер сводных таблиц и диаграмм.

3. Нажмите Добавить добавить Мастер сводных таблиц и диаграмм до Настройка панели быстрого доступа, нажмите OK.

4. Нажмите Мастер сводных таблиц и диаграмм на панели инструментов и в Шаг 1 из 3, проверить Несколько диапазонов консолидации и сводная таблица параметры, щелкните Download.

5. в Шаг 2а из 3, отметьте, что я создам опцию полей страницы, нажмите Download.

6. в Шаг 2b из 3, щелкните значок выбора, чтобы выбрать диапазон, который вы хотите объединить, щелкните Добавить добавить его в Все диапазоны раздел, повторите этот шаг, чтобы добавить все диапазоны, используемые для объединения. Отметьте 0 в Сколько полей страницы вы хотите. Нажмите Download.

7. Выберите место, в котором вы хотите создать сводную таблицу. Шаг 3 из 3, нажмите Завершить.

Теперь сводная таблица создана, укажите настройки в Поля сводной таблицы панель, как вам нужно.

Примечание: если структура данных сложная, на мой взгляд, объедините листы с общим списком методов выше, а затем преобразуйте лист результатов в сводную таблицу.

Таблица Google

1. Объедините листы Google в один лист.

Предположим, что необходимо объединить три листа Google в один, как показано на скриншоте ниже:

Нажмите, чтобы загрузить образец файла

1.1 Объедините листы Google в один лист с помощью функции фильтра

На листе, на котором вы хотите разместить комбинированные данные, выберите ячейку, введите формулу ниже:

= ({filter (A! A2: B, len (A! A2: A)); filter (B! A2: B, len (B! A2: A)); filter (‘C’! A2: B, len (‘C’! A2: A))})

Затем данные на листах A, B и C были скопированы.

В формуле:

А, В, С имена листов, A2: B диапазон данных на каждом листе, A2: A — это первый столбец каждого диапазона данных.

1.2 Объедините листы Google в один лист с помощью функции ИМПОРТРАНЖ

Эта формула часто используется для объединения двух диапазонов в таблице Google.

Выберите ячейку под первым диапазоном данных, введите формулу ниже:

=IMPORTRANGE(«https://docs.google.com/spreadsheets/d/13K4vuZukmS4-x0qJs0EAXQkneIdNqelruDBF5ff5xNQ/edit»,»B!A2:B4″)

Затем данные из листа B были скопированы ниже.

В формуле

https://docs.google.com/spreadsheets/d/13K4vuZukmS4-x0qJs0EAXQkneIdNqelruDBF5ff5xNQ/edit

это расположение листа, вы можете найти его в строке веб-адреса.

В! А2: В4 — это диапазон ячеек на листе B, который вы хотите скопировать в первый диапазон.

Примечание: если ячейка, в которой размещается формула, была отредактирована ранее, формула вернет # ССЫЛКА!

2. Объедините листы Google в одну книгу.

Если вы хотите объединить листы из нескольких книг в Google Sheet, нет быстрого способа, как Excel.

Чтобы объединить листы Google из книг в одну книгу, вы можете использовать Скопировать в команда контекстного меню.

Щелкните правой кнопкой мыши лист, который вы хотите использовать, щелкните Скопировать в > Новая таблица or Существующая таблица.

Если вы выбираете Новая таблица, появится диалоговое окно с напоминанием о том, что лист был скопирован, щелкните OK. Теперь текущий лист скопирован в новую книгу. Вы можете нажать Открыть таблицу Проверять.

Если вы выбираете Существующая таблица, Выберите электронную таблицу, в которую нужно скопировать этот лист появляется диалоговое окно.

1) Выберите, где находится существующая электронная таблица;

2) Выберите книгу, в которую вы хотите скопировать лист. Файлы;

3) Или вы можете напрямую ввести веб-адрес книги, в которую хотите скопировать, в поле Или вставить веб-адрес здесь .

4) Нажмите Выберите.

Если лист копируется в новую электронную таблицу, имя листа в новой книге совпадает с исходным именем, если лист копируется в существующую электронную таблицу, к имени листа в объединенной книге будет добавлен префикс Копия .

Расширение

1. Объедините листы и удалите дубликаты.

Предположим, есть два листа, на которых есть несколько дубликатов, нам нужно объединить данные и удалить дубликаты, как показано на скриншоте ниже:

Нажмите, чтобы скачать образец

1.1 Объедините листы, затем удалите дубликаты, удалив дубликаты

В Excel Удалить дубликаты функция поможет вам быстро удалить повторяющиеся данные.

После использования вышеуказанных методов для объединения листов, затем выберите объединенные данные, нажмите Данные > Удалить дубликаты.

В разделе Удалить дубликаты диалоговом окне выберите столбцы, из которых вы хотите удалить дубликаты, вы можете проверить У моих данных есть заголовки чтобы игнорировать заголовки, нажмите OK.

Затем повторяющиеся строки были удалены.

1.2 Объедините листы и удалите дубликаты с помощью удобного инструмента

Если нужно объединить только два диапазона и удалить дубликаты, Слияние таблиц of Kutools for Excel может напрямую удалять дубликаты при объединении.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Включите книгу, содержащую данные, которые вы хотите объединить, щелкните Кутулс Плюс > Слияние таблиц.

2. В TСлияние способностей — шаг 1 из 5 выберите два диапазона, которые вы хотите объединить, и, если в таблицах есть два заголовка, установите флажок Основная таблица имеет заголовок и Таблица поиска имеет заголовок флажки, щелкните Download.

3. в Шаг 2 из 5 в окне, отметьте ключевой столбец, на основе которого вы хотите объединить диапазоны, щелкните Download.

4. в Шаг 3 из 5 в окне вы можете проверить столбцы, данные в которых вы хотите обновить, на основе таблицы поиска, щелкните Download перейти к последнему шагу.

Совет: если в таблице поиска есть новый столбец, который необходимо добавить в основную таблицу, появится окно шага 4 из 5 для добавления столбцов.

5. в Шаг 5 из 5 окно, в Добавить параметры раздел, проверка Добавить несовпадающие строки в конец основной таблицы флажок в Варианты обновления раздел, проверка Обновляйте ячейки только при наличии данных в таблице поиска флажок. Нажмите Завершить.

Затем две таблицы объединяются в основную таблицу без дубликатов.

2. Объедините рабочие листы с одинаковыми именами в один рабочий лист.

Предположим, что существует несколько книг с листами с одинаковыми именами, такими как лист1, лист2, теперь, чтобы объединить все листы с именем лист1 в один лист, все листы с именем лист2 в один лист, как показано ниже, вы можете использовать Kutools for ExcelАвтора Сочетать функция, чтобы быстро справиться с этой работой.

2020.xlsx 2021.xlsx

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Включите книги, которые вы объедините, нажмите Kутулс плюс > Сочетать.

2. Появится диалоговое окно с напоминанием о пароле. Если книги, которые вы используете, не содержат паролей, щелкните OK продолжить. В появлении Объедините рабочие листы — шаг 1 из 3 окно, проверка Объедините все листы с одинаковыми именами в один лист , нажмите Download.

Советы:

Если вы хотите объединить только некоторые листы, просто отметьте нужные имена листов и оставьте другие не отмеченными.

Если вы хотите добавить больше книг для объединения, щелкните Добавить для добавления файлов или папок в Список рабочих книг .

4. в Шаг 3 из 3, укажите нужные вам настройки. Нажмите Завершить.

Объединить по строкам

Объединить по столбцу

3. Объедините одинаковые диапазоны на разных листах в один лист.

Если вы хотите объединить одни и те же диапазоны на листах в один лист, например, объедините только диапазон A1: B5 рабочей книги A и рабочей книги B на один лист, функция «Объединить» Kutools for Excel будет хорошим выбором.

A.xlsx B.xlsx

1. Включите книги, которые вы будете использовать, щелкните Кутулс Плюс > Сочетать.

3. в Шаг 2 из 3 окно, все листы открытых книг перечислены и проверены Список рабочих листов раздел, щелкните значок выбора в Список рабочих листов, затем выберите диапазон, который вы хотите использовать. Затем нажмите Тот же диапазон кнопку, чтобы установить диапазон всех листов A1: B5. Нажмите Download.

Советы:

4. в Шаг 3 из 3, укажите нужные вам настройки. Нажмите Завершить.

5. Выберите папку и дайте имя новой книге в диалоговом окне «Укажите имя файла и расположение для объединенной книги», нажмите Сохраните.

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Группировка сводной таблицы по номер недели, день недели и другое … Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя…

Вкладка Office — предоставляет интерфейс с вкладками в Office и значительно упрощает вашу работу

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Источник

Как объеденить кучу Excel файлов в один?

Передо мной стала задача — нужно автоматизировать рутинную работу. Есть куча Excel файлов и нужно собрать их в один. Делать это придется неоднократно, поэтому стал вопрос в написании программы.

Вопрос заключается в следующем: объективно ли будет писать данную программу на Python? Если нет, то как можно решить данную проблему проще?

Заранее благодарен всем, кто попытается помочь.

Вопрос задан более трёх лет назад
109281 просмотр

Facebook
Вконтакте
Twitter

Открываем книгу, куда хотим собрать листы из других файлов, входим в редактор Visual Basic (ALT+F11), добавляем новый пустой модуль (в меню Insert — Module) и копируем туда текст вот такого макроса:

Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer

Application.ScreenUpdating = False ‘отключаем обновление экрана для скорости

‘вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename _
(FileFilter:=»All files (*.*), *.*», _
MultiSelect:=True, Title:=»Files to Merge»)

If TypeName(FilesToOpen) = «Boolean» Then
MsgBox «Не выбрано ни одного файла!»
Exit Sub
End If

Как объединить файлы Excel в один

Часто при работе в табличном редакторе происходит так, что необходимая информация располагается на отдельных рабочих листах или же файлах. Перед пользователями встает задача объединения нескольких листов и файлов в единое целое. Можно, конечно, путем копирования ячеек из одного документа и вставки их в другой файл реализовать процедуру объединения, но это неудобно и неэффективно. В статье мы детально рассмотрим несколько эффективных методов, позволяющих реализовать объединение табличных документов в один.

Объединение рабочих листов в один в табличном редакторе

Первоначально рассмотрим такую процедуру, как объединение рабочих листов в один документ. Подробная инструкция выглядит так:

Производим открытие рабочих листов, которые мы планируем объединить в один файл.
Передвигаемся в подраздел, имеющий наименование «Главная». Здесь в блоке команд «Формат» находим элемент под наименованием «Переместить или скопировать лист» и жмем по нему левой клавишей мышки.
В раскрывшемся перечне жмем левой клавишей мышки на кнопку «(новая книга)».
После реализации всех действий жмем на «ОК».
Аналогичные операции необходимо произвести с остальными листами табличного документа.

Объединение информации в один файл

Часто возникают такие ситуации, когда необходимо произвести объединение некоторых фрагментов информации в единый файл. Эта процедура выполняется достаточно легко при помощи инструментов табличного редактора. Самое главное – информация, расположенная в табличках, должна быть заранее отформатирована, чтобы в дальнейшем не тратить огромное количество времени на приведение общей таблички к нормальному внешнему виду. Подробная инструкция выглядит так:

К примеру, у нас есть следующие данные, которые необходимо перенести в один файл. Процесс объединения будет правильно работать только при соблюдении нескольких определенных моментов. Рабочие листики, которые будут проходить процедуру консолидации, должны быть приведены к единому форматированию с идентичными заголовками и форматами информации. Ко всему прочему, объединяемая информация не должна содержать в себе незаполненных строчек и колонок.

После того как мы произведем приведение информации из разных рабочих областей к единому форматированию, нам необходимо реализовать создание нового рабочего листа. Сделать это можно путем нажатия левой клавиши мышки на небольшой плюсик темного цвета, расположенный в нижней части интерфейса табличного редактора рядом со вкладками других листов.

На заметку! Процедуру объединения можно реализовать и на той области, на которой уже находится нужная информация, но так можно запутаться из-за большого количества исходных данных.

На следующем этапе мы передвигаемся в раздел, имеющий наименование «Данные». Найти его можно сверху, в основном меню табличного редактора. Здесь мы находим элемент, имеющий название «Консолидация», и жмем по нему левой клавишей мышки.

В отобразившемся перечне жмем левой клавишей мышки по элементы «Сумма». Далее вводим координаты ячеек, которые мы планируем объединить.

Аналогичные действия мы производим и с другой информацией, которую мы планируем объединить в один файл.
После проведения всех необходимых действий жмем на «ОК», чтобы подтвердить внесенные изменения.

Важно! Этот метод плохо работает с информацией текстового вида. Для более качественного объединения данных в один файл следует воспользоваться следующим методом, подразумевающим использование макросов.

Объединение файлов при помощи VBA

Макросы, прописываемые в VBA, превосходно подходят для реализации процедуры объединения нескольких табличных документов в единый файл. Процедура не такая сложная, как кажется на первый взгляд. Главное – следовать пунктам подробной инструкции:

Первоначально необходимо убедиться в том, что все необходимые табличные документы располагаются в одном месте персонального компьютера.
На следующем этапе необходимо зайти в табличный редактор Эксель и создать в нем новую книгу, которая будет служить инструментом объединения остальных табличных документов.
При помощи специальной комбинации горячих клавиш «Alt+F11» перемещаемся в «Visual Basic».

Сначала нажимаем на «Вставить», а затем в появившемся перечне жмем левой клавишей мышки на элемент, имеющий наименование «Модуль».
Теперь сюда необходимо написать следующий небольшой код:

В переменную Path необходимо написать путь к тому месту персонального компьютера, в котором располагаются табличные документы для объединения.
Производим сохранение табличного документа в формате «XLSM», чтобы активировать созданные макросы.
Производим запуск макроса.
Готово! Мы объединили все файлы, находящиеся в папке, в один табличный документ.

Заключение

Мы выяснили, что существует множество способов, позволяющих реализовать объединение нескольких файлов в один табличный документ. Использовать функцию под названием «Консолидация» целесообразно только в том случае, если в файлах содержится только числовая информация, так как функция не способна корректно работать с данными текстового формата. Самый эффективный способ, позволяющий качественно объединить табличный документы в один файл без потери информации, – это использование интегрированного языка программирования «Visual Basic» и активация специальных макросов. Однако каждый пользователь сможет сам подобрать более удобный для себя способ объединения табличных документов.

Как объединить файлы Excel и листы

Нужно объединить несколько наборов данных в одну электронную таблицу? Вот как.

Иногда необходимые данные Excel разбиваются на несколько листов или даже несколько файлов. Может быть значительно удобнее поместить всю эту информацию в один и тот же документ.

В крайнем случае, можно скопировать и вставить различные необходимые ячейки, поместив их все на одном листе. Однако в зависимости от объема данных, с которыми вы работаете, это может занять много времени и усилий.

Вместо этого рассмотрим некоторые из более разумных способов выполнить ту же задачу. Эти три метода могут просто позволить вам пропустить некоторые из занятой работы

когда дело доходит до слияния листов или файлов в Excel.

Как объединить листы Excel

Excel позволяет легко объединить несколько листов в новую рабочую книгу.

Откройте листы, которые вы хотите объединить.
Нажмите Главная >Формат >Переместить или скопировать лист.
Используйте выпадающее меню, чтобы выбрать (новая книга).
Нажмите Хорошо.

Объединение листов в одну рабочую книгу

Самый простой способ объединить листы в Excel — это использовать Переместить или скопировать лист команда. Этот метод имеет свои ограничения, но он быстрый и простой.

Сначала откройте листы, которые вы хотите объединить в той же книге. Использовать Формат выпадающий в Главная выберите вкладку Переместить или скопировать лист.

Вы должны увидеть эти элементы управления:

Используйте выпадающий список, чтобы выбрать (новая книга). Это будет служить основной таблицей

куда мы отправляем все наши отдельные листы. Вы можете использовать Перед листом: поле, чтобы указать порядок, в котором находятся листы.

Повторите этот процесс с остальными листами, которые вы хотите объединить. Затем сохраните новый мастер-документ.

Объединение данных в один лист

Иногда вам может понадобиться взять несколько наборов данных и представить их как один лист. Это довольно легко сделать в Excel, если вы потратите время на то, чтобы ваши данные были отформатированы заблаговременно.

Вот данные, которые я собираюсь использовать. Есть две вещи, которые очень важны, если этот процесс работает правильно; листы, которые вы консолидируете, должны использовать точно такой же макет

с одинаковыми заголовками и типами данных, и не может быть никаких пустых строк или столбцов.

Когда вы приведете свои данные в соответствие с этими спецификациями, создайте новый рабочий лист. Процедуру консолидации можно запустить на листе, где уже есть данные, но это проще не делать.

На этом новом листе направляйтесь к Данные вкладка и нажмите закреплять.

Выбрать сумма из раскрывающегося списка, а затем используйте кнопку в Рекомендации поле для доступа к вашей электронной таблице, чтобы вы могли выбрать нужные данные.

Сделайте это для всех наборов данных, которые вы хотите объединить. Вы даже можете извлечь из других книг, используя Просматривать кнопка, иначе известный как Выбрать в Mac версии Excel.

Отметьте поле с названием Создать ссылки на исходные данные если вы собираетесь продолжать обновлять данные на других листах и хотите, чтобы этот лист отражал это. Вы также можете выбрать, какие ярлыки переносятся с помощью флажков, показанных выше. Я выбрал галочку в обоих полях, потому что хотел оба набора меток.

Наконец, нажмите Хорошо.

Вы должны получить что-то вроде скриншота выше. К сожалению, этот процесс не подходит, если вы хотите объединить ячейки с текстом в них — он работает только с числовыми данными. В этой ситуации вам нужно будет использовать VBA

Объединение рабочих тетрадей с VBA

Если вы хотите объединить листы из нескольких книг за один раз, лучше всего написать простой макрос VBA

, Это особенно удобно, если вы будете выполнять эту задачу на регулярной основе.

Во-первых, убедитесь, что все книги, которые вы хотите объединить, находятся в одной папке на вашем компьютере. Затем создайте новую электронную таблицу Excel, которая объединит их все.

Голова к разработчик вкладка и нажмите Visual Basic.

Нажмите Вставить> Модуль и скопируйте и вставьте следующий код, взятый из руководства ExtendOffice:

Обязательно измените путь к папке, где хранятся файлы на вашем компьютере.

Затем сохраните вашу книгу как файл XLSM, чтобы макросы были включены

, Затем запустите макрос, и вы обнаружите, что у вас есть одна рабочая книга, которая содержит все листы из всех файлов в папке.

Смотри, прежде чем прыгать

Объединение листов и файлов в Excel довольно сложное и грязное. Этот факт должен осветить один из самых важных уроков о Microsoft Excel: всегда полезно планировать заранее.

Объединение различных наборов данных после факта всегда вызывает некоторые головные боли, особенно если вы работаете с большими электронными таблицами, которые использовались в течение длительного времени. Всякий раз, когда вы начинаете работать с новой книгой

Лучше рассмотреть все возможности того, что файл понадобится для дальнейшего развития.

Excel отлично подходит для создания документов, на которые можно ссылаться и использовать в течение длительного периода времени, но решения, принятые на раннем этапе, могут вызвать проблемы позже.

У вас есть совет для объединения различных наборов данных? Или вы ищете помощь с методами в этом руководстве? В любом случае, почему бы не присоединиться к беседе в разделе комментариев ниже?

Источник