Об’єднайте робочі аркуші з однаковою назвою з кількох книг в одну

Об'єднання даних з кількох книг Excel в один аркуш є поширеною вимогою в аналізі даних, особливо під час роботи зі зведеною звітністю або агрегацією даних з різних джерел. Це може бути особливо складно, коли потрібно об'єднати аркуші з однаковою назвою в різних книгах. Цей посібник проведе вас через два ефективні методи оптимізації цього процесу: використання коду VBA для тих, хто віддає перевагу практичному, програмованому підходу, та використання... Kutools for Excel для користувачів, які шукають більш зручне, автоматизоване рішення.

• Об’єднайте аркуші з однаковою назвою в один за допомогою коду VBA
• Легко об'єднуйте робочі аркуші з однаковими назвами в один за допомогою Kutools for Excel

Об’єднайте аркуші з однаковою назвою в один за допомогою коду VBA

У цьому розділі наведено код VBA для об’єднання робочих аркушів із однаковою назвою з кількох книг в одну. Виконайте такі дії:

1. Натисніть «Alt» + «F11», щоб відкрити редактор VBA.
2. У редакторі VBA натисніть «Вставити» > «Модуль», а потім введіть наступний код VBA в модуль.
   Код VBA: об’єднайте книги з однаковою назвою в одну

   Sub CombineSameNameSheetsFromMultipleWorkbooks()
   'Updated by Extendoffice 2025/3/27
       Dim wsTarget As Worksheet
       Dim wbTarget As Workbook
       Dim wbSource As Workbook
       Dim wsSource As Worksheet
       Dim strSheetName As String
       Dim fd As FileDialog
       Dim FileChosen As Integer
       Dim FileName As String
       Dim lastRow As Long
   
       ' Set the name of the sheets to combine
       strSheetName = "SheetName" ' Change "SheetName" to the name of your sheet
   
       Set wbTarget = Workbooks.Add
       Set wsTarget = wbTarget.Sheets(1)
       wsTarget.Name = "Combined Data"
   
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       fd.AllowMultiSelect = True
   
       FileChosen = fd.Show
       If FileChosen = -1 Then
           For Each varFile In fd.SelectedItems
               Set wbSource = Workbooks.Open(varFile)
               
               On Error Resume Next
               Set wsSource = wbSource.Sheets(strSheetName)
               On Error GoTo 0
               
               If Not wsSource Is Nothing Then
                   lastRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row
                   
                   wsSource.UsedRange.Copy Destination:=wsTarget.Cells(lastRow + 1, 1)
                   
                   Set wsSource = Nothing
               End If
               wbSource.Close False
           Next varFile
       End If
       MsgBox "Data has been combined successfully!", vbInformation
   End Sub

   Примітка: перед запуском коду потрібно змінити «SheetName» у змінній «strSheetName» на фактичну назву аркушів, які потрібно об’єднати.

   

3. Натисніть "F5", щоб запустити код. З’явиться вікно «Виберіть файли Excel», виберіть робочі книги, які містять робочі аркуші з однаковою назвою, які ви хочете об’єднати, а потім натисніть кнопку «Відкрити».

   

4. Після завершення об’єднання з’явиться діалогове вікно «Microsoft Excel», щоб підтвердити, що аркуші успішно об’єднано. Натисніть «ОК», щоб закрити його.

   

Тепер вміст усіх робочих аркушів із однаковою назвою з вибраних робочих книг об’єднано в один аркуш у новій робочій книзі.

Легко об'єднуйте робочі аркуші з однаковими назвами в один за допомогою Kutools for Excel

Хоча VBA пропонує потужні можливості автоматизації в Excel, він може бути складним і лякаючим для користувачів без навичок програмування. Крім того, VBA вимагає ретельних практик безпеки та може створювати проблеми сумісності. Натомість, «Kutools for Excel«надає зручнішу та безпечнішу альтернативу для спрощення процесу об’єднання аркушів з кількох книг, усуваючи необхідність складного кодування та роблячи завдання доступним для всіх користувачів Excel.

після установки Kutools for Excel, виберіть "Kutools "Плюс" > "Об'єднати", щоб відкрити майстер "Об'єднання робочих аркушів". Потім налаштуйте наступним чином.

1. У майстрі «Об’єднати робочі аркуші – крок 1 із 3» виберіть опцію «Об’єднати всі аркуші з однаковими назвами в один» і виберіть «Далі».

   

2. У майстрі «Крок 2 з 3» натисніть кнопку «Додати», щоб вибрати робочі книги, які містять робочі аркуші з однаковою назвою, які ви хочете об’єднати.
   Примітка. Якщо робочі книги збережено в папці, ви можете натиснути стрілку спадного меню поруч із кнопкою «Додати», щоб розгорнути підменю, а потім вибрати «Папка», щоб швидко додати всі файли Excel із цієї папки.

   

3. Після додавання робочих книг у вас є два варіанти залежно від ваших потреб:
   • Якщо ви хочете об’єднати всі аркуші з вибраних книг в одну книгу, просто натисніть кнопку «Далі». Усі аркуші буде об’єднано, а вміст одноіменних аркушів буде об’єднано в один аркуш.
   • Якщо ви хочете об’єднати лише аркуші з однаковою назвою, спочатку виберіть робочий аркуш у розділі «Список робочих аркушів», а потім натисніть кнопку «Той самий аркуш». Це автоматично вибере всі аркуші з однаковою назвою в доданих книгах. Після цього натисніть «Далі», щоб продовжити.

   

4. На останньому кроці майстра або залиште вибраним параметр за замовчуванням, або налаштуйте параметри відповідно до ваших потреб, а потім натисніть «Готово».

   

5. Виберіть папку призначення для об’єднаної книги, введіть бажане ім’я файлу, а потім натисніть кнопку «Зберегти», щоб завершити операцію.

   

Об’єднання робочих аркушів з однаковою назвою з кількох робочих книг можна ефективно виконати за допомогою правильних інструментів. Незалежно від того, чи віддаєте ви перевагу вбудованим методам чи розширеним надбудовам, обидва підходи забезпечують надійні рішення для різних рівнів кваліфікації. Оволодіння цими методами значно підвищить вашу продуктивність і оптимізує консолідацію даних у Excel.

Якщо ви хочете дізнатися більше про цю функцію, перегляньте цю сторінку: Об’єднайте всі робочі аркуші з однаковими назвами в один підручник з робочих аркушів.

Статті по темі:

Як об’єднати кілька книг до однієї книги в Excel?

Як об’єднати робочі аркуші / книги в один аркуш?

Як узагальнити дані з робочих аркушів / книг на одному аркуші?