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

Били ли сте някога в затруднение, когато трябва да комбинирате множество работни книги в главна работна книга в Excel? Най-ужасното е, че работните книги, които трябва да комбинирате, съдържат множество работни листове. И как да комбинирате само посочените работни листове от множество работни книги в една работна книга? Този урок демонстрира няколко полезни метода, които да ви помогнат да разрешите проблема стъпка по стъпка.

Комбинирайте множество работни книги в една работна книга с функцията за преместване или копиране

Ако има само няколко работни книги, които трябва да бъдат комбинирани, можете да използвате командата Преместване или Копиране, за да преместите или копирате ръчно работни листове от оригиналната работна книга в основната работна книга.

1. Отворете работните книги, които ще обедините в основна работна книга.

2. Изберете работните листове в оригиналната работна книга, които ще преместите или копирате в основната работна книга.

3. След като изберете необходимите работни листове, щракнете с десния бутон върху раздела на листа и след това щракнете Преместване или копиране от контекстното меню. Вижте екранна снимка:

4. След това Преместване или копиране изскача диалогов прозорец в Резервирам падащо меню, изберете основната работна книга, в която ще преместите или копирате работни листове. Изберете преместване, за да завършите в Преди лист поле, отметнете Създайте копие и накрая щракнете върху OK бутон.

След това можете да видите работни листове в две работни книги, комбинирани в една. Моля, повторете горните стъпки, за да преместите работни листове от други работни книги в основната работна книга.

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

Ако има няколко работни книги, които трябва да бъдат обединени в една, можете да приложите следните VBA кодове, за да го постигнете бързо. Моля, направете следното.

1. Поставете всички работни книги, които искате да комбинирате в една под една и съща директория.

2. Стартирайте Excel файл (тази работна книга ще бъде главната работна книга).

3. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте по-долу VBA кода в прозореца на модула.

VBA код 1: Обединете няколко работни книги на Excel в една

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
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
	

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
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:\Users\DT168\Desktop\KTE\"
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

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
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:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

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

4. Натисни F5 ключ за изпълнение на кода. След това всички работни листове или определени работни листове на работните книги в определена папка се комбинират в главна работна книга наведнъж.

Лесно комбинирайте множество работни книги или определени листове от работни книги в една работна книга

За щастие, Комбинирам работна книга полезност на Kutools за Excel прави много по-лесно обединяването на множество работни книги в една. Нека да видим как тази функция да работи при комбиниране на множество работни книги.

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

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

3. В Комбинирайте работни листове - Стъпка 2 от 3 кликнете върху Добави > досие or Папка за да добавите Excel файловете, които ще обедините в един. След като добавите Excel файловете, щракнете върху завършеност и изберете папка за запазване на главната работна книга. Вижте екранна снимка:

Сега всички работни книги са обединени в една.

В сравнение с горните два метода, Kutools за Excel има следните предимства:

• 1) Всички работни книги и работни листове са изброени в диалоговия прозорец;
• 2) За работните листове, които искате да изключите от сливането, просто махнете отметката;
• 3) Празните работни листове се изключват автоматично;
• 4) Оригиналното име на файл ще бъде добавено като префикс към името на листа след сливането;
• За повече функции на тази функция, моля посетете тук.

Kutools за Excel - Помага Ви винаги да приключвате работата преди време, да имате повече време да се наслаждавате на живота

Често ли се оказвате, че наваксвате с работа, липса на време за себе си и семейството?  Kutools за Excel може да ви помогне да се справите с 80% Excel пъзели и подобряване на 80% работна ефективност, дават ви повече време да се грижите за семейството и да се наслаждавате на живота.

300 усъвършенствани инструмента за 1500 работни сценария правят работата ви много по-лесна от всякога.
Вече няма нужда да запаметявате формули и VBA кодове, дайте почивка на мозъка си от сега нататък.
Сложните и повтарящи се операции могат да бъдат извършени еднократно за секунди.
Намалете хилядите операции с клавиатура и мишка всеки ден, кажете сбогом на професионалните заболявания сега.
Станете експерт по Excel за 3 минути, помогнете ви бързо да бъдете признати и промоция за повишаване на заплатата.
110,000 300 високоефективни хора и избор на XNUMX+ световноизвестни компании.
Направете вашите $39.0 струващи повече от $4000.0 обучение на други.
Пълен безплатен пробен период за 30 дни. 60-дневна гаранция за връщане на парите без причина.