Перейти до основного матеріалу

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

Автор: Сяоян Остання зміна: 2025-04-09

Об'єднання даних з кількох книг 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» на фактичну назву аркушів, які потрібно об’єднати.
    знімок екрана, на якому показано SheetName у рядку коду
  3. Натисніть "F5", щоб запустити код. З’явиться вікно «Виберіть файли Excel», виберіть робочі книги, які містять робочі аркуші з однаковою назвою, які ви хочете об’єднати, а потім натисніть кнопку «Відкрити».
    скріншот вибору робочих книг
  4. Після завершення об’єднання з’явиться діалогове вікно «Microsoft Excel», щоб підтвердити, що аркуші успішно об’єднано. Натисніть «ОК», щоб закрити його.
    знімок вікна сповіщення про успішне злиття

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

Примітка: цей код VBA не може об’єднати кілька аркушів з однаковою назвою.

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

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

Kutools for Excel - Містить понад 300 основних інструментів для Excel. Насолоджуйтесь постійно безкоштовними функціями ШІ! Скачати зараз!

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

  1. У майстрі «Об’єднати робочі аркуші – крок 1 із 3» виберіть опцію «Об’єднати всі аркуші з однаковими назвами в один» і виберіть «Далі».
    знімок екрана майстра Step1
  2. У майстрі «Крок 2 з 3» натисніть кнопку «Додати», щоб вибрати робочі книги, які містять робочі аркуші з однаковою назвою, які ви хочете об’єднати.
    Примітка. Якщо робочі книги збережено в папці, ви можете натиснути стрілку спадного меню поруч із кнопкою «Додати», щоб розгорнути підменю, а потім вибрати «Папка», щоб швидко додати всі файли Excel із цієї папки.
    знімок екрана майстра кроку 2
  3. Після додавання робочих книг у вас є два варіанти залежно від ваших потреб:
    • Якщо ви хочете об’єднати всі аркуші з вибраних книг в одну книгу, просто натисніть кнопку «Далі». Усі аркуші буде об’єднано, а вміст одноіменних аркушів буде об’єднано в один аркуш.
    • Якщо ви хочете об’єднати лише аркуші з однаковою назвою, спочатку виберіть робочий аркуш у розділі «Список робочих аркушів», а потім натисніть кнопку «Той самий аркуш». Це автоматично вибере всі аркуші з однаковою назвою в доданих книгах. Після цього натисніть «Далі», щоб продовжити.
    скріншот із вибором лише однойменного аркуша
  4. На останньому кроці майстра або залиште вибраним параметр за замовчуванням, або налаштуйте параметри відповідно до ваших потреб, а потім натисніть «Готово».
    знімок екрана майстра кроку 3
  5. Виберіть папку призначення для об’єднаної книги, введіть бажане ім’я файлу, а потім натисніть кнопку «Зберегти», щоб завершити операцію.
    знімок екрана вибору папки призначення

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

Kutools for Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь постійно безкоштовними функціями ШІ! Get It Now

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


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

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

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

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


Найкращі інструменти продуктивності офісу

🤖 Kutools А. І. помічник: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  волати Kutools Функції...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Інструменти (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Інструменти (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Інструменти (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Інструменти (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше
Скористайтеся кнопкою Kutools вашою бажаною мовою – підтримується англійська, іспанська, німецька, французька, китайська та понад 40 інших!

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


Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!