В ежедневната си работа може да срещнем проблем, който обединява стотици листове или работни книги в един лист за анализиране на данни, което отнема много време, ако използвате командата Копиране и поставяне в Excel. Тук, в този урок, ще дам някои съвети за бързо решаване на тази задача.
БЪРЗА НАВИГАЦИЯ >Обединяване на всички листове на активната работна книга в един лист с VBA >Обединяване на десетки листове или работни книги в един работен лист/работна книга с щраквания >Обединяване на две таблици в една и актуализиране по колона с кликвания >Изтеглете примерен файл

В този раздел предоставям VBA код, който ще създаде нов лист за събиране на всички листове на активната работна книга, докато я изпълнявате.

1. Активирайте работната книга, в която искате да комбинирате всички листове, след което натиснете Друг + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.

2. В изскачащия прозорец щракнете Поставете > Модули за създаване на нов модулен скрипт.

3. Копирайте кода по-долу и го поставете в скрипта.

Sub Combine() 'UpdatebyExtendoffice Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub

4. Натиснете F5 ключ, тогава всички данни в листовете са обединени в нов лист с име Комбиниран, който се поставя в предната част на всички листове.

Искате ли да получите увеличение на заплатата и много време да прекарвате със семейството си? Разделът Office подобрява вашата ефективност с 50% в Microsoft Office, работещ точно сега Невероятно, работата с два или повече документа е по-лесна и по-бърза от работата с един. В сравнение с добре познатите браузъри, инструментът с раздели в Office Tab е по-мощен и по-ефективен. Намалете стотиците щраквания с мишката и писането от клавиатурата всеки ден вместо вас, кажете сбогом на ръката с мишката сега. Ако обикновено работите с множество документи, Office Tab ще ви спести чудесно време. 30-дневен безплатен пробен период, не се изисква кредитна карта. Вижте повечеБезплатно изтегляне сега

С VBA можете да комбинирате само листове в активната работна книга, но как можете да обедините листове в работни книги в лист или работна книга?

Обединяване на листове от работни книги в един лист

Обединяване на листове от работни книги в една работна книга

За решаване на тази задача и задоволяване на други изисквания за комбинация от листове Комбинирам функцията е разработена с четири комбинирани сценария:

• Комбинирайте няколко листа или работни книги в един лист
• Комбинирайте няколко листа или работни книги в една работна книга
• Комбинирайте листове с едно и също име в един лист
• Консолидирайте стойности в листове или работни книги в един лист

Тук вземаме втората опция като пример:

Комбинирайте няколко листа или работни книги в една работна книга

След безплатно инсталиране Kutools за Excel, моля, направете следното:

1. Активирайте Excel, щракнете Kutools плюс > Комбинирам, изскача диалогов прозорец, за да ви напомни, че трябва да затворите работните книги, които искате да комбинирате. Кликнете OK да продължи.

2. В Комбинирайте работни листове, стъпка 1 диалог, проверка Комбинирайте няколко работни листа от работни книги в една работна книга опция. Кликнете Напред за да преминете към следващата стъпка на съветника.

3. кликване Добави > досие or Папка за да добавите работните книги, които искате да комбинирате към Списък с работни книги прозорец, след което можете да посочите кой работен лист ще бъде обединен, като поставите отметка в имената Списък с работни листове прозорец. Кликнете Напред за да преминете към последната стъпка на съветника.

4. В тази стъпка задайте необходимите настройки. След това щракнете завършеност.

5. Изскача прозорец, за да изберете папка, в която да поставите комбинираната работна книга, след което щракнете Save.

Сега работните книги са обединени в една работна книга. И в предната част на всички листове също се създава главен лист, наречен Kutools за Excel, който изброява информация за листовете и връзки за всеки лист.

Безплатен пробен период Кажете сбогом на мишата ръка и цервикалната спондилоза сега

300 разширени инструмента на Kutools за Excel решават 80% Excel задачи за секунди, измъкват ви от хилядите кликвания на мишката.

Лесно се справяйте с 1500 работни сценария, няма нужда да губите време за търсене на решения, имайте много време да се наслаждавате на живота си. Подобрете 80% производителност за 110000 XNUMX+ високоефективни хора всеки ден, разбира се включително и вас. Вече няма да бъдете измъчвани от болезнени формули и VBA, дайте на мозъка си почивка и радостно работно настроение. 30-дневен безплатен пробен период с пълни функции, 30-дневно връщане на парите без причини. По-доброто тяло създава по-добър живот.

Вижте повече Свали сега

Ако искате да обедините две таблици в една и да актуализирате данни въз основа на колона, както е показано на екранната снимка по-долу, можете да опитате Обединяване на таблици полезност на Kutools за Excel.

Kutools за Excel: повече от 200 удобни добавки за Excel за опростяване на сложни задачи с няколко кликвания в Excel

След безплатно инсталиране Kutools за Excel, моля, направете следното:

1. кликване Kutools плюс > Обединяване на таблици да се даде възможност Обединяване на таблици съветника.

Kutools за Excel

30-дневен безплатен пробен период 300 разширени инструменти Решаване на 80% Проблеми с Excel Подобрете 80% работна ефективност Бъдете експерт в Excel, спечелете признание от хората

2. В стъпка 1 на съветника трябва да изберете отделно главната таблица и диапазоните на справочната таблица. След това щракнете Напред.

3. Поставете отметка в ключовата колона, въз основа на която искате да актуализирате данните в главната таблица. Кликнете Напред.

4. След това проверете колоните в главната таблица, в която искате да актуализирате данните въз основа на справочна таблица. Кликнете Напред.

5. В стъпка 4 на съветника проверете колоните, които искате да добавите от таблицата за справка към основната таблица. Кликнете Напред.

6. В последната стъпка на съветника задайте необходимите опции за настройка. След това щракнете завършеност.

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

Препоръчителни инструменти за продуктивност

Раздел Office - сърфиране с раздели, редактиране, управление на документи в Microsoft Office 2019 - 2003 и Office 365

Пълнофункционален безплатен пробен период за 30 дни

Професионална добавка за ускоряване на Excel 2019-2007, свива часовете задачи до секунди

Тази добавка включва десетки професионални групи, с 300+ опции, ще автоматизира повечето от ежедневните ви задачи в Excel и ще увеличи производителността ви поне с 50%. Като групи от опции с едно щракване и пакетни реализации.
Сега е вашият шанс да се ускорите с Kutools за Excel!

Пълнофункционален безплатен пробен период за 60 дни