Печыва дапамагчы нам даставіць нашы паслугі. Карыстаючыся нашымі паслугамі, Вы згаджаецеся на выкарыстанне намі печыва.
Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як аб'яднаць некалькі кніг у адну кнігу ў Excel?

Вы калі-небудзь затрымаліся, калі трэба аб'яднаць некалькі кніг у адну кнігу ў Excel? Самае страшнае ў тым, што кніга вам трэба аб'яднаць некалькі лістоў. Можа хто-небудзь прапанаваць добры спосаб справіцца з гэтай праблемай?

Аб'яднанне некалькіх кніг у адной кнізе з дапамогай VBA

Аб'яднанне некалькіх кніг у адну кнігу з Move ці камандай Copy

Лёгка аб'яднаць некалькі кніг у адной кнізе з Kutools для Excel


Лёгка аб'яднаць некалькі працоўных лістоў / кніг у адзін працоўны ліст / кнігі:

Аб'яднанне некалькіх лістоў або кніг у адзін ліст або навучальны дапаможнік можа быць велізарнай задачай у сваёй паўсядзённай працы. Але, калі ў вас ёсць Kutools для ExcelЯго магутная ўтыліта - Спалучаць можа дапамагчы вам хутка аб'яднаць некалькі працоўных лістоў, кнігі ў адзін ліст ці кнігу. Загрузіць поўную асаблівасць 60-дзённы бясплатны след Kutools для Excel прама зараз!

Kutools для Excel: З больш чым 200 зручны Excel надбудовы, бясплатна паспрабаваць без якіх-небудзь абмежаванняў у 60 дзён. Спампаваць і бясплатную пробную версію зараз!


Аб'яднанне некалькіх кніг у адной кнізе з дапамогай VBA

Для вопытных і прафесійных праграмістаў, вы можаце выкарыстоўваць сцэнары VBA, каб аб'яднаць некалькі кніг у адзін майстар кнігі. Вы можаце мець справу з гэтым з наступнымі крокамі:

1, Змесціце ўсе кнігі, якія вы хочаце аб'яднаць у адзін каталог. Глядзіце скрыншот:

2, Запусціце файл Excel, які вы жадаеце аб'яднаць іншыя кнігі ст.

3, націсніце распрацоўшчык > Візуальны Бейсик, Новы Microsoft Visual Basic для прыкладанняў З'явіцца акно, націсніце Уставіць > МодуліІ увядзіце наступны код у модуль:

Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  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

ЧаявыяУ прыведзеным вышэй кодзе, вы можаце змяніць шлях да таго, што вы выкарыстоўваеце.

4. затым націсніце док-зліццё-шматваконны працоўныя сшыткі кнопка Кнопка для запуску кода, і ўсё лісты (уключаючы пустыя рабочыя лісты) у межах кніг былі аб'яднаны ў асноўны кнігу.

НататкаГэты код VBA можа аб'яднаць цэлыя кнігі ў галоўную кнігу, калі вы хочаце, каб аб'яднаць названыя лісты з сшыткаў, гэты код не будзе працаваць.


Аб'яднанне некалькіх кніг у адну кнігу з Move ці камандай Copy

Калі вы пачатковец у Microsoft Excel, у вас няма выбару, акрамя як толькі скапіяваць дадзеныя кожнага ліста і ўставіць іх у новую кнігу па адным і ужываючы Перамясціць або каманду Капіяваць. выкарыстанне Перамясціць або Капіяваць каманда дапаможа вам экспартаваць або скапіяваць адзін або некалькі працоўных лістоў у новую кнігу хутка.

1, Адкрыць усе кнігі, якія вы хочаце аб'яднаць у адну кнігу.

2, Выбраць усе імёны працоўнага ліста рабочай кнігі ў панэлі ўкладак. Вы можаце выбраць некалькі з націснутай Ctrl ключ ці Зрух ключ. Пстрыкніце правай кнопкай мышы імя ліста і націсніце Перамясціць або Капіяваць з кантэкстнага меню.

3. У Перамясціць або Капіяваць дыялогавае акно, абярыце майстар-кнігу, якую вы хочаце, каб аб'яднаць іншыя кнігі ў з выпадальнага спісу Перамясціць выбраныя лісты замовіць, А затым пазначыць размяшчэнне далучаюцца лістоў. Глядзіце скрыншоты:

4, затым націсніце OK, Выбраныя працоўныя аркушы былі перанесены ў асноўны кнізе.

5, Паўтарыце крокі з 2 да 4, каб перамясціць іншыя кнігі ў галоўнай кнізе. Затым ён спалучае ў сабе ўсе рабочыя лісты з адкрытых кніг у адну кнігу. Глядзіце скрыншоты:


Лёгка аб'яднаць некалькі кніг у адной кнізе з Kutools для Excel

На шчасце, для пачаткоўцаў і новых рук Microsoft Excel, ёсць некаторыя даступныя інструменты, якія дапамогуць вам хутка аб'яднаць сотні кніг у адзін. функцыя Спалучаць in Kutools для Excel робіць яго значна прасцей аб'яднаць некалькі файлаў Excel. Прыкладанне выкарыстоўваецца для вызвалення паўтаральных і залішніх аперацый у Excel. Гэта на самай справе гуляе важную ролю, калі вам даводзіцца мець справу з вялікай колькасцю файлаў Excel ў сваёй паўсядзённай працы. Зараз давайце паглядзім, як атрымаць гэтую функцыю працаваць у аб'яднанні некалькіх кніг.

Kutools для Excel : З больш чым 300 зручны Excel надбудовы, бясплатна паспрабаваць без якіх-небудзь абмежаванняў у 60 дзён.

1. Ўключыць Excel і націсніце Kutools падрабязна > Спалучаць, Затым з'явіцца дыялогавае акно, каб нагадаць вам, што ўсе аб'яднаныя навучальныя дапаможнікі павінны быць захаваны, і функцыя не можа быць ужытыя да абароненым сшыткаў, калі ласка, націсніце OK кнопкі.

2, ў аб'яднаць Worksheets Майстар, абярыце Аб'яднанне некалькіх лістоў з кніг у адну кнігу, А затым націсніце наступны кнопка. Глядзіце скрыншот:

2, Затым вы можаце ўбачыць усе адкрытыя рабочыя кнігі і рабочыя табліцы пералічаныя ў Аб'яднаць Worksheets - Крок 2 з 3 дыялогавае акно. націсніце Дадаваць > Размовы / Тэчка дадаць іншыя файлы Excel або тэчкі whih, якія змяшчаюць файлы Excel вы камбінуюць. Пасля выбару файлаў, націсніце кнопку наступны кнопку, каб ісці наперад. Глядзіце скрыншот:

док аб&#39;яднаць некалькі кніг arrow1

3, ў Аб'яднаць Worksheets - Крок 3 з 3 дыялогавае акно, выканайце наступныя налады:

  • 3.1 Вы можаце выключыць усе пустыя лісты з аб'яднання, выбраўшы Прапускаць ад Пры выяўленні пустога ліста выпадальны спіс.
  • 3.2 Праверце Першы радок кожнага ліста (Каментарыі) опцыя для ўстаўкі ліста інфармацыі кожнага камбінаванага ліста.
  • 3.3 Вы можаце перайменаваць новыя аб'яднаныя рабочыя лісты, устаўляючы імёны рабочых кніг да або пасля таго, як арыгінальных назваў працоўнага ліста, або проста захаваць арыгінальныя імёны лістоў з прыбраўшы Па устаўляючы імя працоўнай кнігі варыянт.
  • 3.4 Націсніце Заканчэнне кнопкі.

4, Затым абярыце тэчку для захавання камбінаванай кнігі, і адкрыць яго, як вы адносяцца непасрэдна трэба. Зараз усе названыя навучальныя дапаможнікі аб'яднаны ў адзін.

Заўвагі:

1. Вам будзе прапанавана, калі вы хочаце захаваць гэты сцэнар. націсніце ды захаваць як вам трэба, а затым увядзіце імя сцэнарыя (гл наступныя скрыншоты). Пасля захавання сцэнара, вам трэба ўсяго толькі націснуць сцэнар кнопку, каб выбраць імя сцэнара на майстры step2 выкарыстоўваць яго непасрэдна.

2, Рабочыя ў асобных кнігах, былі аб'яднаны ў новую кнігу, і працоўныя аркушы названыя з імем рабочай кнігі да або пасля таго, як зыходнага імя працоўнага ліста, калі вы праверылі Па устаўляючы імя працоўнай кнігі варыянт. У той жа час, новы працоўны аркуш з імем Kutools для Excel генеруюцца перад усімі рабочымі лістамі, у якім пералічаныя кнігах з падрабязнай інфармацыяй аб кожных лістах. Глядзіце скрыншот:

3. Калі ваша імя працоўнага ліста занадта доўга, можа быць, персанажы імя больш, чым 31characters, не будзе адлюстроўвацца камбінаванае назву, і толькі паказаць зыходнае імя ліста.

Савет.Калі вы хочаце мець бясплатную пробную версію гэтай утыліты, перайдзіце, калі ласка спампаваць праграмнае забеспячэнне свабодна першы, а затым прымяніць аперацыю па вышэй крокаў.


ўкладка Упраўленне - ўкладкі, рэдагаванне і кіраванне кнігамі ў Excel:

Office Tab прыносіць укладкамі інтэрфейс, як паказана ў вэб-браўзэры, такія як Google Chrome, Internet Explorer, новыя версіі і Firefox у Microsoft Excel. Гэта будзе інструмент эканоміі часу і irreplaceble ў сваёй працы. Глядзіце ніжэй дэма:

Націсніце для бясплатнай пробнай Таб офіса!

Office Tab для Excel

Дэманстрацыя: Лёгка аб'яднаць некалькі кніг у адной кнізе з Kutools для Excel




Артыкулы па тэме:



Рэкамендаваны інструменты для павышэння прадукцыйнасці

ўкладка Упраўленне

золата star1 Прынясіце зручныя укладкі ў Excel і іншыя офісныя праграмы, гэтак жа, як Chrome, Firefox і новы Internet Explorer.

Kutools для Excel

золата star1 Дзіўна! Павышэнне прадукцыйнасці ў 5 хвілін. Не трэба ніякіх спецыяльных навыкаў, захаваць абодва гадзіны кожны дзень!

золата star1 300 Новыя магчымасці для Excel, зрабіць Excel Шмат Лёгкі і магутны:

  • Зліццё клетак / радкоў / слупкоў без страты дадзеных.
  • Аб'яднанне і аб'яднанне некалькіх лістоў і працоўных кніг.
  • Параўнанне дыяпазонаў, капіраванне некалькіх дыяпазонаў, пераўтварэнне тэксту ў дату, групу і валютнай канверсію.
  • Граф па Colors, пэйджынгавай подытогами, Advanced Сартаванне і супер фільтр,
  • Больш Select / Insert / Delete / Тэкст / Фармат / Спасылка / каментар / Workbooks / Рабочыя лісты Інструменты ...

Здымак экрана Kutools для Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dezignext Technologies · 5 days ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 1 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 3 days ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      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
  • To post as a guest, your comment is unpublished.
    Chris · 2 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 3 days ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      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
  • To post as a guest, your comment is unpublished.
    Owen · 5 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.