Hvordan kombinere flere arbeidsbøker til en arbeidsbok i Excel?

For de dyktige og profesjonelle programmerere, kan du bruke VBA skript for å kombinere flere arbeidsbøker til en master arbeidsbok. Du kan håndtere dette på følgende måte:

1. Legg alle arbeidsbøker som du ønsker å kombinere i samme katalog. Se skjermbilde:


2. Lansere en Excel-fil som du ønsker å kombinere andre arbeidsbøker inn.

3. Klikk Developer > Visual Basic, en ny Microsoft Visual Basic for Applications-vinduet vises, klikker du Sett > Modul, og skriv inn følgende kode i modulen:
Sub GetSheets () path = "C: \\ Users \\ dt \\ Desktop \\ dt KTE \\" Filename = Dir (Bane & "* .xls") gjøre mens Name < > "" Workbooks.Open Name: = Sti & Filnavn, Skrivebeskyttet: = True for hvert ark I ActiveWorkbook.Sheets Sheet.Copy Etter: = ThisWorkbook.Sheets (1) neste ark arbeidsbøker (filnavn) Nært filnavn = Dir () LoopEnd Sub

Tips: I koden ovenfor, du kan endre banen til en som du bruker.

4. Klikk deretter på knappen for å kjøre koden, og alle regnearkene (inkludert tomme regneark) innenfor arbeidsbøkene er slått sammen til hovedboken

Merk:. Dette VBA-kode kan flette hele arbeidsbøker i hovedboken Hvis du ønsker å kombinere bestemte regneark av arbeidsbøker, vil denne koden ikke fungerer.

Kombiner flere arbeidsbøker til en arbeidsbok med kommandoen Kopier
Flytt eller

Hvis du er en rookie av Microsoft Excel, du har ikke noe annet valg enn bare å kopiere dataene på hvert ark og lime dem inn i en ny arbeidsbok en etter en og bruke den Flytt eller Kopier-kommandoen. Bruke Flytt eller Kopier-kommandoen vil hjelpe deg å eksportere eller kopiere en eller flere regneark til en ny arbeidsbok raskt.

1. Åpne alle arbeidsbøker som du ønsker å flette inn i en enkelt arbeidsbok.

2. Velg alle regneark navn på en arbeidsbok i fanelinjen. Du kan velge flere med å holde nede Ctrl-tasten eller Skift-tasten. Høyreklikk navnet på regnearket, og klikk på Flytt eller Kopier fra kontekstmenyen.


3. Velg hovedboken som du ønsker å flette andre arbeidsbøker inn fra rullegardinlisten flytte valgte ark å bestille i Flytt eller Kopier dialogboksen. Og deretter angi plasseringen av de fusjonerte regneark. Se skjermbilder:

4. Klikk deretter på OK. De valgte regneark har blitt flyttet til hovedboken.

5. Gjenta trinnene fra 2 til 4 for å flytte andre arbeidsbøker til master arbeidsbok. Deretter kombinerer alle regnearkene i åpnede arbeidsbøker til en enkelt arbeidsbok. Se skjermbilder:

Kombiner flere arbeidsbøker til en arbeidsbok med Kutools for Excel

Heldigvis for rookies og nye hender Microsoft Excel, er det noen tilgjengelige verktøy for å hjelpe deg raskt kombinere hundrevis av arbeidsbøker inn en. Funksjonen Kombiner i Kutools for Excel gjør det mye enklere å kombinere flere Excel-filer. Søknaden blir brukt for å frigjøre de repeterende og overflødige operasjoner i Excel. Det spiller faktisk en viktig rolle hvis du har å forholde seg til en stor mengde Excel-filen i ditt daglige arbeid. Nå, la oss se hvordan å få denne funksjonen arbeid i å kombinere flere arbeidsbøker.

4. Deretter klikker du på Fullfør-knappen for å slå sammen de arbeidsbøker, og du vil bli spurt om du vil lagre dette scenariet. Hvis du ønsker å lagre dette scenariet, må du klikke Ja, og skriv inn navnet på scenariet, (se skjermbilder), hvis du ikke ønsker å lagre dette scenariet, må du klikke No. Når du vil bruke dette scenariet, du bare bare må klikke Scenario-knappen for å velge navnet på scenariet du trenger på trinn 2 veiviseren.

5. Da de angitte regnearkene har blitt slått sammen til en ny arbeidsbok, og regnearkene er navngitt med navn arbeidsboken før opprinnelige regnearket navn. Et nytt regneark heter Kutools genereres også på forsiden av alle regnearkene på samme tid, som viser arbeidsbøker med detaljert informasjon om hver regneark. Se skjermbilde:


Merk: Hvis regnearket navnet er for langt, kanskje navnet tegnene er større enn 31characters, kombinert navn vil ikke bli vist, og bare se originalarket navn.

Hvis du vil vite mer om denne funksjonen, må du klikke Kombiner flere regneark fra arbeidsbøker i en arbeidsbok Gratis Last Kutools for Excel nå.



Previous: