Об’єднайте робочі аркуші з однаковою назвою з кількох книг в одну
Об'єднання даних з кількох книг Excel в один аркуш є поширеною вимогою в аналізі даних, особливо під час роботи зі зведеною звітністю або агрегацією даних з різних джерел. Це може бути особливо складно, коли потрібно об'єднати аркуші з однаковою назвою в різних книгах. Цей посібник проведе вас через два ефективні методи оптимізації цього процесу: використання коду VBA для тих, хто віддає перевагу практичному, програмованому підходу, та використання... Kutools for Excel для користувачів, які шукають більш зручне, автоматизоване рішення.
- Об’єднайте аркуші з однаковою назвою в один за допомогою коду VBA
- Легко об'єднуйте робочі аркуші з однаковими назвами в один за допомогою Kutools for Excel
Об’єднайте аркуші з однаковою назвою в один за допомогою коду VBA
У цьому розділі наведено код VBA для об’єднання робочих аркушів із однаковою назвою з кількох книг в одну. Виконайте такі дії:
- Натисніть «Alt» + «F11», щоб відкрити редактор VBA.
- У редакторі 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» на фактичну назву аркушів, які потрібно об’єднати. - Натисніть "F5", щоб запустити код. З’явиться вікно «Виберіть файли Excel», виберіть робочі книги, які містять робочі аркуші з однаковою назвою, які ви хочете об’єднати, а потім натисніть кнопку «Відкрити».
- Після завершення об’єднання з’явиться діалогове вікно «Microsoft Excel», щоб підтвердити, що аркуші успішно об’єднано. Натисніть «ОК», щоб закрити його.
Тепер вміст усіх робочих аркушів із однаковою назвою з вибраних робочих книг об’єднано в один аркуш у новій робочій книзі.
Легко об'єднуйте робочі аркуші з однаковими назвами в один за допомогою Kutools for Excel
Хоча VBA пропонує потужні можливості автоматизації в Excel, він може бути складним і лякаючим для користувачів без навичок програмування. Крім того, VBA вимагає ретельних практик безпеки та може створювати проблеми сумісності. Натомість, «Kutools for Excel«надає зручнішу та безпечнішу альтернативу для спрощення процесу об’єднання аркушів з кількох книг, усуваючи необхідність складного кодування та роблячи завдання доступним для всіх користувачів Excel.
Kutools for Excel - Містить понад 300 основних інструментів для Excel. Насолоджуйтесь постійно безкоштовними функціями ШІ! Скачати зараз!
після установки Kutools for Excel, виберіть "Kutools "Плюс" > "Об'єднати", щоб відкрити майстер "Об'єднання робочих аркушів". Потім налаштуйте наступним чином.
- У майстрі «Об’єднати робочі аркуші – крок 1 із 3» виберіть опцію «Об’єднати всі аркуші з однаковими назвами в один» і виберіть «Далі».
- У майстрі «Крок 2 з 3» натисніть кнопку «Додати», щоб вибрати робочі книги, які містять робочі аркуші з однаковою назвою, які ви хочете об’єднати. Примітка. Якщо робочі книги збережено в папці, ви можете натиснути стрілку спадного меню поруч із кнопкою «Додати», щоб розгорнути підменю, а потім вибрати «Папка», щоб швидко додати всі файли Excel із цієї папки.
- Після додавання робочих книг у вас є два варіанти залежно від ваших потреб:
- Якщо ви хочете об’єднати всі аркуші з вибраних книг в одну книгу, просто натисніть кнопку «Далі». Усі аркуші буде об’єднано, а вміст одноіменних аркушів буде об’єднано в один аркуш.
- Якщо ви хочете об’єднати лише аркуші з однаковою назвою, спочатку виберіть робочий аркуш у розділі «Список робочих аркушів», а потім натисніть кнопку «Той самий аркуш». Це автоматично вибере всі аркуші з однаковою назвою в доданих книгах. Після цього натисніть «Далі», щоб продовжити.
- На останньому кроці майстра або залиште вибраним параметр за замовчуванням, або налаштуйте параметри відповідно до ваших потреб, а потім натисніть «Готово».
- Виберіть папку призначення для об’єднаної книги, введіть бажане ім’я файлу, а потім натисніть кнопку «Зберегти», щоб завершити операцію.
Об’єднання робочих аркушів з однаковою назвою з кількох робочих книг можна ефективно виконати за допомогою правильних інструментів. Незалежно від того, чи віддаєте ви перевагу вбудованим методам чи розширеним надбудовам, обидва підходи забезпечують надійні рішення для різних рівнів кваліфікації. Оволодіння цими методами значно підвищить вашу продуктивність і оптимізує консолідацію даних у Excel.
Kutools for Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь постійно безкоштовними функціями ШІ! Get It Now
Якщо ви хочете дізнатися більше про цю функцію, перегляньте цю сторінку: Об’єднайте всі робочі аркуші з однаковими назвами в один підручник з робочих аркушів.
Статті по темі:
Як об’єднати кілька книг до однієї книги в Excel?
Як об’єднати робочі аркуші / книги в один аркуш?
Як узагальнити дані з робочих аркушів / книг на одному аркуші?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!