Łączenie plików Excel jest niezwykle przydatne podczas pracy z dużymi zbiorami danych. Poniżej przedstawiamy dwa najpopularniejsze sposoby scalania plików Excel: za pomocą wbudowanej funkcji Konsoliduj oraz przy użyciu Power Query.
1. Metoda z Użyciem Wbudowanej Funkcji Konsoliduj
Ta metoda jest idealna dla osób potrzebujących połączyć dane z kilku arkuszy lub plików, zachowując proste operacje matematyczne, takie jak suma lub średnia.
Krok po Kroku –
- Otwórz Nowy Arkusz –
- Utwórz nowy skoroszyt Excel, w którym chcesz umieścić połączone dane.
- Zakładka Dane –
- Przejdź do zakładki „Dane” i kliknij opcję „Konsoliduj”.
- Wybór Funkcji Konsolidacji –
- W oknie dialogowym wybierz funkcję Konsoliduj i wybierz działanie matematyczne (np. Suma).
- Dodawanie Zakresów –
- Wskaż zakres danych w arkuszu źródłowym i kliknij ” Dodaj”.
- W(obszarze „Użyj etykiet w” zaznacz nagłówki kolumn/wierszy, jeśli chcesz je zachować.
- Zakończenie Konsolidacji –
- Kliknij „OK”, a Excel automatycznie połączy wskazane dane.
2. Metoda z Użyciem Power Query
Power Query jest wydajnym narzędziem do automatycznego łączenia danych, idealnym dla osób pracujących z złożonymi danymi.
Krok po Kroku –
- Otwórz Skoroszyt –
- Utwórz nowy lub otwórz istniejący skoroszyt, w którym chcesz umieścić połączone dane.
- Pobierz Dane –
- Przejdź do zakładki „Dane” i wybierz „Pobierz dane” → „Z folderu”.
- Wybór Folderu –
- Wskaż folder zawierający pliki, które chcesz połączyć, i kliknij „Otwórz”.
- Połączenie Zapytań –
- Wybierz opcję „Połącz pliki”, a następnie wybierz typ pliku (np. Excel).
- Kliknij „Ok”, by zobaczyć listę plików. Wszystkie pliki zostaną automatycznie połączone.
- Dołączanie Kolumn –
- W oknie Power Query wybierz „Dołącz zapytania”, aby połączyć dane pionowo.
- Upewnij się, że nazwy kolumn są identyczne w wszystkich plikach.
- Zamknij i Załaduj –
- Po złączeniu kliknij „Zamknij i załaduj”, a tabela zostanie załadowana do nowego arkusza.
Kod VBA Dla Połączenia Plików
Jeśli chcesz użyć kodu VBA, poniżej znajdziesz przykładowy kod, który łączy wszystkie pliki Excel z określonego folderu:
Sub ŁączPlikExcel() Dim FolderŚcieżka As String, Plik As String Dim WbŹródło As Workbook, WsŹródło As Worksheet Dim WbCel As Workbook, WsCel As Worksheet Dim OstatniWiersz As Long ' Ustaw ścieżkę do folderu z plikami FolderŚcieżka = "C:\Twoja\Ścieżka\Do\Folderu\" ' Ustaw arkusz docelowy Set WbCel = ThisWorkbook Set WsCel = WbCel.Sheets("Arkusz1") ' Znajdź ostatni wiersz w arkuszu docelowym OstatniWiersz = WsCel.Cells(WsCel.Rows.Count, "A").End(xlUp).Row ' Pętla przez wszystkie pliki Excel w folderze Plik = Dir(FolderŚcieżka & "*.xlsx") Do While Plik <> "" ' Otwórz plik źródłowy Set WbŹródło = Workbooks.Open(FolderŚcieżka & Plik) Set WsŹródło = WbŹródło.Sheets(1) ' Kopiuj dane z pliku źródłowego do docelowego WsŹródło.UsedRange.Offset(1).Copy WsCel.Cells(OstatniWiersz + 1, 1).PasteSpecial xlPasteValues ' Zamknij plik źródłowy WbŹródło.Close SaveChanges:=False ' Aktualizuj ostatni wiersz OstatniWiersz = WsCel.Cells(WsCel.Rows.Count, "A").End(xlUp).Row ' Przejdź do następnego pliku Plik = Dir() Loop MsgBox "Łączenie plików zakończone!" End Sub
Porady Ogólne:
- Spójność Struktury – Uważaj, aby nazwy kolumn i struktura danych były takie same we wszystkich plikach.
- Sprawdzanie Danych – Po złączeniu przeglądaj dane, aby uniknąć pomyłek.
- Aktualizacja Danych – Korzystaj z Power Query, aby zapewnić dynamiczną aktualizację danych.
Obie metody są skuteczne w zależności od potrzeb i stopnia skomplikowania danych. Power Query jest szczególnie przydatny przy dużych zbiorach danych, natomiast wbudowana funkcja konsolidacji sprawdza się w przypadku prostszych zestawień.
