Jak połączyć pliki excela .xlsx w folderze w jeden?

Menu Excel na karcie Dane klikamy Pobierz dane > Z pliku > Z folderu. Jeśli nie widzisz przycisku Pobierz dane, kliknij pozycję Nowe zapytanie > Z pliku > Z folderu

Przeglądaj > wybierz opcję Połącz i załaduj.

Jak podzielić skoroszyt na arkusze w oddzielnych plikach .xlsx?

Otwórz Edytor Visual Basic używająć skrótu klawiaturowego lewy Alt + F11. Z menu Insert wybierz polecenie Module i wpisz kod makra:


Sub Kopiowanie_arkuszy()
  Dim sht As Worksheet, path As String
    Application.ScreenUpdating = False
        path = ActiveWorkbook.path & "\"
        For Each sht In ActiveWorkbook.Worksheets
            sht.Copy
            ActiveWorkbook.SaveAs Filename:=path & sht.Name & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook
        Next sht
    Application.ScreenUpdating = True
End Sub