Pliki cookie pomagają nam dostarczać nasze usługi. Korzystając z naszych usług, zgadzasz się na nasze pomocą plików cookie.
Wskazówka: inne języki są tłumaczone przez Google. Możesz odwiedzić English wersja tego linku.
Zaloguj Się
x
or
x
x
Zarejestruj
x

or

Jak połączyć wiele skoroszytów z jednym skoroszytem w programie Excel?

Czy kiedykolwiek utknąłeś, gdy musisz połączyć wiele skoroszytów w pojedynczy skoroszyt w programie Excel? Najstraszniejsze jest to, że skoroszyt, który chcesz połączyć, zawiera wiele arkuszy. Czy ktoś może zaproponować dobry sposób na rozwiązanie tego problemu?

Połącz wiele skoroszytów z jednym skoroszytem za pomocą VBA

Połącz wiele skoroszytów z jednym skoroszytem za pomocą polecenia Przenieś lub Kopiuj

Łatwe łączenie wielu skoroszytów z jednym skoroszytem za pomocą Kutools for Excel


Łatwe łączenie wielu arkuszy / zeszytów w jeden arkusz roboczy / skoroszyt:

Łączenie wielu arkuszy lub skoroszytów w jeden arkusz roboczy lub skoroszyt może być ogromnym zadaniem w codziennej pracy. Ale jeśli masz Kutools dla programu Excel, jego potężne narzędzie - Połączyć może pomóc szybko połączyć wiele arkuszy, skoroszytów w jeden arkusz lub skoroszyt. Pobierz teraz pełną funkcję 60 darmowego śladu Kutools dla Excela!

Kutools dla programu Excel: z więcej niż 200 poręcznymi dodatkami do Excela, możesz wypróbować bez ograniczeń w 60 dniach. Pobierz i bezpłatnie wersję próbną!


Połącz wiele skoroszytów z jednym skoroszytem za pomocą VBA

Dla doświadczonych i profesjonalnych programistów można używać skryptów VBA do łączenia wielu skoroszytów w jeden główny skoroszyt. Możesz sobie z tym poradzić, wykonując następujące czynności:

1. Umieść wszystkie skoroszytów, które chcesz połączyć w tym samym katalogu. Zobacz zrzut ekranu:

2. Uruchom plik programu Excel, do którego chcesz połączyć inne skoroszyty.

3, Kliknij Deweloper > Visual Basic, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka > Modułi wprowadź następujący kod do modułu:

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

Wskazówka: W powyższym kodzie możesz zmienić ścieżkę do tego, którego używasz.

4. Następnie kliknij doc-merge-multiple-workbooks-button Aby uruchomić kod, wszystkie arkusze robocze (łącznie z pustymi arkuszami) w skoroszytach zostały scalone w skoroszycie głównym.

Uwagi: Ten kod VBA może scalić całe skoroszytów ze skoroszytem głównym, jeśli chcesz połączyć określone arkusze robocze ze skoroszytami, ten kod nie będzie działał.


Połącz wiele skoroszytów z jednym skoroszytem za pomocą polecenia Przenieś lub Kopiuj

Jeśli jesteś nowicjuszem programu Microsoft Excel, nie masz wyboru, musisz tylko skopiować dane każdego arkusza i wkleić je do nowego skoroszytu, jeden po drugim i stosując polecenie Przenieś lub Kopiuj. Używając Przenieś lub skopiuj Polecenie pomoże szybko wyeksportować lub skopiować jeden lub kilka arkuszy do nowego skoroszytu.

1. Otwórz wszystkie skoroszytów, które chcesz scalić w pojedynczy skoroszyt.

2. Wybierz wszystkie nazwy skoroszytów skoroszytu na pasku kart. Możesz wybrać wiele przytrzymując Ctrl klucz lub przesunięcie klawisz. Kliknij nazwę arkusza prawym przyciskiem myszy i kliknij ikonę Przenieś lub skopiuj z menu kontekstowego.

3, w Przenieś lub skopiuj W oknie dialogowym wybierz skoroszyt główny, do którego chcesz scalić pozostałe skoroszyty z rozwijanej listy Przenieś wybrane arkusze do książki. Następnie określ położenie scalonych arkuszy. Zobacz zrzuty ekranu:

4. Następnie kliknij OK. Wybrane arkusze zostały przeniesione do głównego skoroszytu.

5. Powtórz kroki od 2 do 4, aby przenieść inne skoroszyty do głównego skoroszytu. Następnie łączy wszystkie arkusze z otwartymi skoroszytami w pojedynczy skoroszyt. Zobacz zrzuty ekranu:


Łatwe łączenie wielu skoroszytów z jednym skoroszytem za pomocą Kutools for Excel

Na szczęście dla początkujących i nowych użytkowników programu Microsoft Excel dostępnych jest kilka narzędzi, które pomogą szybko połączyć setki skoroszytów w jedno. Funkcja Połączyć in Kutools dla programu Excel znacznie ułatwia łączenie wielu plików Excel. Aplikacja służy do uwalniania powtarzalnych i nadmiarowych operacji w programie Excel. W rzeczywistości odgrywa ważną rolę, jeśli masz do czynienia z dużą ilością pliku Excel w swojej codziennej pracy. Zobaczmy teraz, jak sprawić, by ta funkcja działała w połączeniu wielu skoroszytów.

Kutools dla programu Excel : z więcej niż 300 przydatnymi dodatkami Excel, do wypróbowania bez ograniczeń w ciągu 60 dni.

1. Włącz Excel i kliknij Kutools Plus > Połączyć. Następnie pojawia się okno dialogowe przypominające o tym, że wszystkie połączone skoroszyty powinny zostać zapisane, a funkcja nie może być zastosowana do chronionych skoroszytów, kliknij przycisk OK przycisk.

2, w Połącz arkusze robocze kreator, wybierz Połącz wiele arkuszy roboczych ze skoroszytów w jeden skoroszyt, a następnie kliknij przycisk Dalej przycisk. Zobacz zrzut ekranu:

2. Następnie możesz zobaczyć wszystkie otwarte skoroszyty i arkusze robocze są wymienione w pliku Połącz arkusze - krok 2 3 Okno dialogowe. Kliknij dodać > filet / Teczka aby dodać inne pliki lub foldery Excela zawierające pliki Excel, które chcesz połączyć. Po wybraniu plików kliknij przycisk Dalej przycisk, aby przejść dalej. Zobacz zrzut ekranu:

doc scalanie wielu skoroszytów arrow1

3, w Połącz arkusze - krok 3 3 w oknie dialogowym, proszę wprowadzić następujące ustawienia:

  • 3.1 Możesz wykluczyć wszystkie puste arkusze z scalania, wybierając Skip z Po znalezieniu pustego arkusza roboczego Lista rozwijana.
  • 3.2 Sprawdź Pierwszy wiersz każdego arkusza roboczego (Komentarz) możliwość wstawienia informacji o arkuszach roboczych każdego połączonego arkusza roboczego.
  • 3.3 Możesz zmienić nazwy nowych połączonych arkuszy roboczych, wstawiając nazwy skoroszytów przed lub po oryginalnych nazwach arkuszy lub po prostu zachowując oryginalne nazwy arkuszy odznaczając Wstawiając nazwę skoroszytu opcja.
  • 3.4 Kliknij koniec przycisk.

4. Następnie wybierz folder, aby zapisać połączony skoroszyt i otwórz go bezpośrednio, jak potrzebujesz. Teraz wszystkie skoroszyty są połączone w jeden.

Uwagi:

1. Zostaniesz zapytany, czy chcesz zapisać ten scenariusz. Kliknij tak Aby zapisać, jak potrzebujesz, wpisz nazwę scenariusza (zobacz poniższe zrzuty ekranu). Po zapisaniu scenariusza wystarczy kliknąć Scenariusz aby wybrać nazwę scenariusza w kreatorze step2, aby użyć go bezpośrednio.

2. Arkusze robocze w wybranych zeszytach zostały scalone w nowy skoroszyt, a arkusze są nazwane nazwą skoroszytu przed lub po pierwotnej nazwie arkusza, jeśli sprawdzono Wstawiając nazwę skoroszytu opcja. Tymczasem nowy arkusz roboczy o nazwie Kutools dla programu Excel jest generowany przed wszystkimi arkuszami roboczymi, który zawiera skoroszyty ze szczegółowymi informacjami z każdego arkusza. Zobacz zrzut ekranu:

3. Jeśli nazwa Twojego arkusza jest zbyt długa, być może nazwy znaków są większe niż 31, kombinowana nazwa nie będzie wyświetlana i będzie wyświetlana tylko nazwa oryginalnego arkusza.

Wskazówka.Jeśli chcesz mieć bezpłatną wersję próbną tego narzędzia, przejdź do pobierz oprogramowanie swobodnie najpierw, a następnie przejdź do zastosowania operacji zgodnie z powyższymi krokami.


Karta Office - Przeglądanie w kartach, edycja i zarządzanie skoroszytami w programie Excel:

Office Tab wprowadza interfejs z kartami w przeglądarkach takich jak Google Chrome, nowe wersje przeglądarki Internet Explorer i Firefox do Microsoft Excel. Będzie to narzędzie oszczędzające czas i niezastąpione w Twojej pracy. Zobacz poniżej demo:

Kliknij, aby pobrać bezpłatną wersję próbną pakietu Office!

Karta Office dla programu Excel

Demo: Łatwe łączenie wielu skoroszytów z jednym skoroszytem z Kutools for Excel




Podobne artykuły:



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

Karta Office

złota star1 Przynieś poręczne zakładki do Excela i innego oprogramowania Office, tak jak Chrome, Firefox i nowy Internet Explorer.

Kutools dla programu Excel

złota star1 Niesamowity! Zwiększ swoją produktywność za 5 minut. Nie potrzebujesz żadnych specjalnych umiejętności, oszczędzając dwie godziny dziennie!

złota star1 300 Nowe funkcje programu Excel, uczynienie z Excela bardzo prostym i wydajnym:

  • Scal komórki / wiersze / kolumny bez utraty danych.
  • Łącz i konsoliduj wiele arkuszy i zeszytów.
  • Porównaj zakresy, skopiuj wiele zakresów, przelicz tekst na datę, jednostkę i walutę.
  • Zliczaj według kolorów, podstrony stronicowania, sortowanie zaawansowane i super filtry,
  • Więcej Wybierz / Wstaw / Usuń / Tekst / Format / Link / Komentarz / Skoroszyty / Arkusze zadań Narzędzia ...

Zrzut ekranu z Kutools dla Excela

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 · 4 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 · 4 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.