Przejdź do głównej zawartości

Jak scalić lub skonsolidować arkusze lub skoroszyty w jeden arkusz?

W naszej codziennej pracy możemy napotkać problem polegający na scalaniu setek arkuszy lub skoroszytów w jeden arkusz w celu analizy danych, co zajmuje dużo czasu, jeśli używasz polecenia Kopiuj i wklej w programie Excel. W tym samouczku podam kilka wskazówek, jak szybko rozwiązać tę pracę.

doc połącz 1

SZYBKA NAWIGACJA

Scalanie wszystkich arkuszy aktywnego skoroszytu w jeden arkusz z VBA
Łączenie dziesiątek arkuszy lub skoroszytów w jeden arkusz / skoroszyt za pomocą kliknięć
Łączenie dwóch tabel w jedną i aktualizowanie według kolumny za pomocą kliknięć
Pobierz przykładowy plik


Scalanie wszystkich arkuszy aktywnego skoroszytu w jeden arkusz z VBA

W tej sekcji podaję kod VBA, który utworzy nowy arkusz, aby zebrać wszystkie arkusze aktywnego skoroszytu podczas jego uruchamiania.

1. Aktywuj skoroszyt, w którym chcesz połączyć wszystkie arkusze, a następnie naciśnij + klucze do otwarcia Microsoft Visual Basic for Applications okno.

2. W wyskakującym oknie kliknij wstawka > Moduł aby utworzyć nowy skrypt modułu.

3. Skopiuj poniższy kod i wklej go do skryptu.

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
doc połącz 2

4. naciśnij F5 klucz, następnie wszystkie dane w arkuszach zostały scalone w nowy arkusz o nazwie Połączone, który jest umieszczony na początku wszystkich arkuszy.


nie ruszaj się

Czy chcesz mieć podwyżkę i dużo czasu na towarzystwo rodziny?

Karta Office zwiększa wydajność o 50% podczas pracy pakietu Microsoft Office

Niewiarygodne, praca na dwóch lub więcej dokumentach jest łatwiejsza i szybsza niż praca na jednym.

W porównaniu ze znanymi przeglądarkami narzędzie z kartami na karcie Office jest wydajniejsze i bardziej wydajne.

Zredukuj dla siebie setki kliknięć myszą i pisania na klawiaturze każdego dnia, pożegnaj się z dłonią myszy.

Jeśli zwykle pracujesz nad wieloma dokumentami, karta Office to świetna oszczędność czasu.

30-dniowy bezpłatny okres próbny, Nie wymagamy karty kredytowej.

Czytaj więcejPobierz teraz


Łączenie dziesiątek arkuszy lub skoroszytów w jeden arkusz / skoroszyt za pomocą kliknięć

Dzięki VBA można łączyć arkusze tylko w aktywnym skoroszycie, ale jak można scalać arkusze w skoroszytach z arkuszem lub skoroszytem?

Scal arkusze ze skoroszytów w jeden arkusz
doc połącz 18

Scal arkusze ze skoroszytów w jeden skoroszyt
doc połącz 3

Aby rozwiązać tę pracę i spełnić inne wymagania dotyczące kombinacji arkuszy, plik Połączyć funkcja została opracowana z czterema scenariuszami kombinacji:

  • Połącz wiele arkuszy lub skoroszytów w jeden arkusz
  • Połącz wiele arkuszy lub skoroszytów w jeden skoroszyt
  • Połącz arkusze z tymi samymi nazwiskami w jeden arkusz
  • Konsoliduj wartości w arkuszach lub skoroszytach w jednym arkuszu

Oto druga opcja jako przykład:

Połącz wiele arkuszy lub skoroszytów w jeden skoroszyt

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. Aktywuj program Excel, kliknij Kutools Plus > Połączyć, pojawi się okno dialogowe przypominające o konieczności zamknięcia skoroszytów, które chcesz połączyć. Kliknij OK aby kontynuować.
doc połącz 4
doc połącz 5

2. w Połącz arkusze robocze krok 1 okno dialogowe, sprawdź Połącz wiele arkuszy ze skoroszytów w jeden skoroszyt opcja. Kliknij Następna aby przejść do następnego kroku kreatora.
doc połącz 6

3. kliknij Dodaj > filet or Teczka aby dodać skoroszyty, które chcesz połączyć z plikiem Lista skoroszytów okienku, możesz określić, który arkusz zostanie połączony, wpisując nazwy Lista arkuszy szkło. Kliknij Następna aby przejść do ostatniego kroku kreatora.
doc połącz 7

4. W tym kroku określ potrzebne ustawienia. Następnie kliknij koniec.
doc połącz 8

5. Pojawi się okno, w którym wybierzesz folder, w którym chcesz umieścić połączony skoroszyt, a następnie kliknij Zapisz.
doc połącz 9

Teraz skoroszyty zostały scalone w jeden skoroszyt. Na początku wszystkich arkuszy tworzony jest również arkusz główny o nazwie Kutools for Excel, który zawiera niektóre informacje o arkuszach i linkach dla każdego arkusza.
doc połącz 10

Demo: Połącz arkusze / skoroszyty w jeden arkusz lub skoroszyt

Kutools dla programu Excel: 200 + przydatne przydatne narzędzia, upraszczające skomplikowane zadania w programie Excel za pomocą kilku kliknięć.

Pożegnaj się teraz z dłonią myszy i spondylozy szyjnej

300 zaawansowanych narzędzi Kutools for Excel rozwiązuje 80% Zadania Excela w kilka sekund, wyrwij się z tysięcy kliknięć myszką.

Z łatwością poradzisz sobie z 1500 scenariuszami pracy, nie musisz tracić czasu na szukanie rozwiązań, masz dużo czasu na cieszenie się życiem.

Zwiększ produktywność o 80% dla ponad 110000 XNUMX wysoce efektywnych ludzi każdego dnia, oczywiście włączając Ciebie.

Nie męczy Cię już bolesne formuły i VBA, daj swojemu mózgowi spokój i radosny nastrój do pracy.

30-dniowy bezpłatny okres próbny z pełnymi funkcjami, 30-dniowy zwrot pieniędzy bez podania przyczyny.

Lepsze ciało tworzy lepsze życie.


Łączenie dwóch tabel w jedną i aktualizowanie według kolumny za pomocą kliknięć

Jeśli chcesz scalić dwie tabele w jedną i zaktualizować dane na podstawie kolumny, jak pokazano na poniższym zrzucie ekranu, możesz wypróbować Scalanie tabel użyteczność Kutools dla programu Excel.
doc połącz 11

Kutools dla programu Excel: ponad 200 poręcznych dodatków do programu Excel upraszczających skomplikowane zadania za pomocą kilku kliknięć w programie Excel

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. kliknij Kutools Plus > Scalanie tabel umożliwić Scalanie tabel Kreator.
doc połącz 12

2. W kroku 1 kreatora należy oddzielnie wybrać główną tabelę i zakresy tabel przeglądowych. Następnie kliknij Następna.
doc połącz 13

3. Zaznacz kolumnę kluczową, na podstawie której chcesz zaktualizować dane w głównej tabeli. Kliknij Następna.
doc połącz 14

4. Następnie sprawdź kolumny w głównej tabeli, dla których chcesz zaktualizować dane na podstawie tabeli przeglądowej. Kliknij Następna.
doc połącz 15

5. W kroku 4 kreatora zaznacz kolumny, które chcesz dodać z tabeli przeglądowej do tabeli głównej. Kliknij Następna.
doc połącz 16

6. W ostatnim kroku kreatora określ potrzebne opcje ustawień. Następnie kliknij koniec.
doc połącz 17

Teraz w głównej tabeli zaktualizowano dane i dodano nowe dane na podstawie tabeli przeglądowej.

Demo: Połącz arkusze / skoroszyty w jeden arkusz lub skoroszyt

Kutools dla programu Excel: 200 + przydatne przydatne narzędzia, upraszczające skomplikowane zadania w programie Excel za pomocą kilku kliknięć.


Pobierz przykładowy plik

próba


Zalecane narzędzia zwiększające produktywność

Karta Office - przeglądanie w kartach, edycja, zarządzanie dokumentami w pakiecie Microsoft Office 2019-2003 i Office 365


zakładka Office

Profesjonalny dodatek przyspieszający pracę programu Excel 2019-2007, skracający godziny zadań do sekund

Ten dodatek zawiera dziesiątki grup zawodowych, a ponad 300 opcji zautomatyzuje większość Twoich codziennych zadań w programie Excel i zwiększy produktywność co najmniej o 50%. Takich jak grupy opcji opcji za jednym kliknięciem i konwersje zbiorcze.
Teraz masz szansę przyspieszyć się dzięki Kutools for Excel!


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

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.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations