Note: The other languages of the website are Google-translated. Back to English

Cum se îmbină sau se consolidează foile de lucru sau registrele de lucru într-o singură foaie de lucru?

În munca noastră zilnică, putem întâlni o problemă care îmbină sute de foi sau registre de lucru într-o singură foaie pentru analiza datelor, care necesită mult timp dacă utilizați comanda Copiere și lipire în Excel. Aici, în acest tutorial, voi oferi câteva sfaturi pentru rezolvarea rapidă a acestui job.

doc combina 1

NAVIGAȚIE RAPIDĂ

Combinarea tuturor foilor de registru de lucru activ într-o singură coală cu VBA
Fuzionarea a zeci de foi sau registre de lucru într-o singură foaie de lucru / registru de lucru cu clicuri
Fuzionarea a două tabele într-unul și actualizarea printr-o coloană cu clicuri
Descărcați fișierul eșantion


Combinarea tuturor foilor de registru de lucru activ într-o singură coală cu VBA

În această secțiune, ofer un cod VBA care va crea o foaie nouă pentru a colecta toate foile din registrul de lucru activ în timp ce îl rulați.

1. Activați registrul de lucru pe care doriți să-l combinați toate foile, apoi apăsați + tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În fereastra popping, faceți clic pe Insera > Module pentru a crea un nou script Module.

3. Copiați codul de mai jos și lipiți-le în script.

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 combina 2

4. presa F5 tasta, apoi toate datele din foi au fost îmbinate într-o nouă foaie numită Combinată care este plasată în partea din față a tuturor foilor.


nu se mișcă

Vreți să aveți o creștere a plății și mult timp pentru a însoți cu familia?

Fila Office vă îmbunătățește eficiența cu 50% în Microsoft Office funcționând chiar acum

Incredibil, lucrul la două sau mai multe documente este mai ușor și mai rapid decât lucrul la unul singur.

Comparat cu browsere cunoscute, instrumentul cu file din fila Office este mai puternic și mai eficient.

Reduceți sute de clicuri de mouse și tastarea tastaturii în fiecare zi pentru dvs., spuneți adio mâinii mouse-ului acum.

Dacă lucrați de obicei la mai multe documente, Office Office va economisi timp excelent pentru dvs.

30- zi de probă gratuită, nu este necesar un card de credit.

Citeste mai multeDescărcare gratuită acum


Fuzionarea a zeci de foi sau registre de lucru într-o singură foaie de lucru / registru de lucru cu clicuri

Cu VBA, puteți combina doar foi în registrul de lucru activ, dar cum puteți combina foliile din registrele de lucru cu o foaie sau un registru de lucru?

Îmbinați foile din registrele de lucru într-o singură coală
doc combina 18

Îmbinați foi între cărți de lucru într-un singur registru de lucru
doc combina 3

Pentru rezolvarea acestei sarcini și pentru a satisface alte cerințe privind combinația de foi, Combina funcția a fost dezvoltată cu patru scenarii de combinație:

  • Combinați mai multe foi sau registre de lucru într-o singură coală
  • Combinați mai multe foi sau registre de lucru într-un singur registru de lucru
  • Combinați aceleași foi de nume într-o singură coală
  • Consolidați valorile între coli sau registre de lucru într-o singură coală

Aici ia a doua opțiune ca exemplu:

Combinați mai multe foi sau registre de lucru într-un singur registru de lucru

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Activați Excel, faceți clic pe Kutools Plus > Combina, apare un dialog pentru a vă reaminti că registrele de lucru pe care doriți să le combinați trebuie închise. Clic OK pentru a continua.
doc combina 4
doc combina 5

2. În Combinați foile de lucru pasul 1 dialog, verificați Combinați mai multe foi de lucru din registrele de lucru într-un singur registru de lucru opțiune. Clic Pagina Următoare → pentru a trece la pasul următor al vrăjitorului.
doc combina 6

3. clic Adăuga > Fișier or Dosar pentru a adăuga registrele de lucru pe care doriți să le combinați la Lista registrului de lucru , puteți specifica ce foaie de lucru va fi unită, bifând numele Lista foilor de lucru panou. Clic Pagina Următoare → pentru a trece la ultimul pas al vrăjitorului.
doc combina 7

4. În acest pas, specificați setările după cum aveți nevoie. Apoi apasa finalizarea.
doc combina 8

5. Se afișează o fereastră pentru selectarea unui folder pentru a plasa registrul de lucru combinat, apoi faceți clic pe Economisiți.
doc combina 9

Acum, registrele de lucru au fost îmbinate într-un singur registru de lucru. Și în partea din față a tuturor foilor, este creată și o foaie principală numită Kutools pentru Excel, care listează câteva informații despre foi și linkuri pentru fiecare foaie.
doc combina 10

Demo: Combinați foi / registre de lucru într-o singură foaie sau registru de lucru

Kutools pentru Excel: 200 de instrumente utile la îndemână, simplificând sarcinile complicate din Excel în câteva clicuri.

Spuneți adio mâinii șoarecilor și spondilozei cervicale acum

300 de instrumente avansate de rezolvare Kutools pentru Excel 80% Sarcini Excel în câteva secunde, scoateți-vă din miile de clicuri de mouse.

Faceți cu ușurință 1500 de scenarii de lucru, nu este nevoie să pierdeți timp pentru căutarea soluțiilor, aveți mult timp să vă bucurați de viață.

Îmbunătățiți productivitatea cu 80% pentru peste 110000 de persoane extrem de eficiente în fiecare zi, desigur, inclusiv pe dvs.

Nu mai fi chinuit de formule dureroase și VBA, dă-i creierului tău o odihnă și o dispoziție plăcută de lucru.

30- o zi de încercare gratuită cu funcții complete, 30-zi banii înapoi fără motive.

Un corp mai bun creează o viață mai bună.


Fuzionarea a două tabele într-unul și actualizarea printr-o coloană cu clicuri

Dacă doriți să îmbinați două tabele într-unul și să actualizați datele pe baza unei coloane, așa cum este prezentat mai jos, puteți încerca Combinarea tabelelor utilitatea Kutools pentru Excel.
doc combina 11

Kutools pentru Excel: peste 200 de programe de completare Excel la îndemână pentru a simplifica sarcinile complicate în câteva clicuri în Excel

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. clic Kutools Plus > Combinarea tabelelor pentru a permite Combinarea tabelelor Wizard.
doc combina 12

2. La pasul 1 al expertului, trebuie să selectați separat tabelul principal și intervalele tabelului de căutare. Apoi apasa Pagina Următoare →.
doc combina 13

3. Verificați coloana cheie pe care doriți să actualizați datele din tabelul principal pe baza. Clic Pagina Următoare →.
doc combina 14

4. Apoi verificați coloanele din tabelul principal pe care doriți să le actualizați pe baza tabelului de căutare. Clic Pagina Următoare →.
doc combina 15

5. La pasul 4 al expertului, verificați coloanele pe care doriți să le adăugați din tabelul de căutare în tabelul principal. Clic Pagina Următoare →.
doc combina 16

6. În ultimul pas al expertului, specificați opțiunile de setare după cum aveți nevoie. Apoi apasa finalizarea.
doc combina 17

Acum, tabelul principal a fost actualizat și a adăugat date noi pe baza tabelului de căutare.

Demo: Combinați foi / registre de lucru într-o singură foaie sau registru de lucru

Kutools pentru Excel: 200 de instrumente utile la îndemână, simplificând sarcinile complicate din Excel în câteva clicuri.


Descărcați fișierul eșantion

probă


Instrumente de productivitate recomandate

Fila Office - Navigarea cu tab-uri, editarea, gestionarea documentelor în Microsoft Office 2019 - 2003 și Office 365


fila birou

Un program de completare profesional pentru accelerarea Excel 2019-2007, micșorează sarcinile de ore la secunde

Acest supliment include zeci de grupuri profesionale, cu peste 300 de opțiuni care vă vor automatiza majoritatea sarcinilor zilnice în Excel și vă vor crește productivitatea cu cel puțin 50%. De exemplu, grupuri de opțiuni cu un singur clic și conversii în serie.
Acum este șansa ta de a te accelera cu Kutools pentru Excel!


Comentarii (168)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
a folosit prima funcție Macro. WOW! multumesc pentru postare
Acest comentariu a fost redus la minimum de moderatorul de pe site
cred ca codul'Selection.Offset(0, 0).Resize(Selection.Rows.Count - 1).Select' nu trebuie să fie acolo. Din punctul meu de vedere, ceea ce face este să selecteze al doilea rând în continuare, lipsind primul.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am aceeasi problema. Se omite primul rând din a doua foaie de lucru adăugată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Elimină anteturile, astfel încât să nu aveți antete duplicate
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează ca un farmec, mulțumesc pentru distribuire!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc! Macro-ul a funcționat perfect.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu știu cum să folosești funcția VBN în Excel, poți te rog să mă ajuți cum să faci asta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Minunat multumesc!!! Foarte Foarte Util
Acest comentariu a fost redus la minimum de moderatorul de pe site
Macro unu funcționează bine. Mulțumiri!! Este minunat!!!! :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Rețineți că acest lucru este limitat de limita de 65k de rânduri, dacă trebuie să creșteți linia Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) range pentru a rezolva problema.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cu toate acestea, un instrument excelent, nu combină toate cele 21 de foi. Cum pot extinde gama?
Acest comentariu a fost redus la minimum de moderatorul de pe site
NOTĂ!!! Trebuie să fii atent cu macrocomandă.. va funcționa dacă datele tale au un flux continuu de informații și nici un rând gol. asta face linia „Selection.CurrentRegion.Select”. De exemplu, dacă trebuie să copiați TOATE datele dintr-o foaie de calcul, dar există o linie goală la (să spunem) rândul 200, macrocomanda se va copia doar la rândul 200; VA NE CONSULTA TOATE DATELE DE SUB ACEL RÂND!!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Știe cineva o comandă pentru a evita această problemă?? Problema cu Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select poate fi rezolvată? Selection.Rows.Count - 1) este comanda care generează problema. Oricine??
Acest comentariu a fost redus la minimum de moderatorul de pe site
În loc să începeți de sus și să coborâți, începeți de jos și mergeți în sus
Acest comentariu a fost redus la minimum de moderatorul de pe site
Știe cineva codul pentru a rezolva problemele de rânduri și coloane goale?. Îl am în datele mele, dar nu există o soluție simplă ca să porniți de jos în sus? Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pentru ștergerea rândurilor care sunt goale: Opțiunea 1: Selectați celulele din coloana A care trebuie șterse. Folosiți Ctrl - și apoi selectați întregul rând în fereastra pop-up. Salvați registrul de lucru și ieșiți. Apoi deschide registrul de lucru. Opțiunea 2: Selectați rândurile care trebuie șterse. Folosiți Ctrl -. Salvați registrul de lucru și ieșiți din registrul de lucru deschis. Am dat opțiunea 1, astfel încât să vă fie vizibil ce se întâmplă. Pentru ștergerea coloanelor care sunt goale: Selectați coloana. Ctrl -. Salvați registrul de lucru și ieșiți din registrul de lucru deschis.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Avem vreo soluție pentru a copia datele de sub celula goală?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc ! Al 2-lea rând era gol pe toate foile și am fost confuz.
Acest comentariu a fost redus la minimum de moderatorul de pe site
codul vba a funcționat excelent, dar am nevoie ca foaia de lucru combinată să se actualizeze pe măsură ce adaug noi rânduri sau date noi la celulele din foile de lucru pe care le combin. Există vreo modalitate de a face asta? Vă mulţumesc pentru ajutor.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Codul macro a funcționat excelent pentru prima foaie de lucru combinată, dar am nevoie ca foaia de lucru combinată să se actualizeze pe măsură ce adaug date la foile de lucru existente pe care le combin. Există vreo modalitate de a face asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Te-ai gândit vreodată cum să-l actualizezi în master pe măsură ce adaugi rânduri la celelalte foi de lucru?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Lucru excelent.. Acest lucru mi-a redus munca de la 2 ore la 10 minute.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Excelent, am folosit atât prima macrocomandă, cât și Kutools, ambele mi-au redus enorm munca de colectare și compilare a datelor. Mulțumesc pentru distribuire.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Tocmai am șters partea de mai jos și acum se actualizează doar. Sper că acest lucru vă va ajuta... Foi de calcul(1).Selectați Foi de lucru.Adăugați
Acest comentariu a fost redus la minimum de moderatorul de pe site
Codul funcționează excelent! Am nevoie de macro pentru a copia toate datele de pe foi. Se taie primul rând după Foaia 1. Doar foaia unu are rândul antetului, celelalte foi sunt doar date. Este posibil?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am o întrebare despre „Îmbinați toate foile de lucru într-o singură foaie de lucru cu cod VBA”: Codul funcționează foarte bine, dar numai când este gol, adaugă antetul, este posibil să modificați codul pentru a spune să nu consolidați foaia goală?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc, mi-ai economisit o oră de copy and paste :D
Acest comentariu a fost redus la minimum de moderatorul de pe site
Aveți două registre de lucru, aceleași date, dar al doilea are date suplimentare și unele date au fost actualizate, inv# Stare 123 7/2 deschis inv# stare 123 7/2 deschis 7/7 închis cum să fuzionați într-un singur eliminând sau evidențiind duplicatele și adăugând orice inv# nou nu în primul
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează grozav dacă coloana dvs. A este ne=blankă. Pe foile cu coloana A goală, pare a fi suprascris. În datele mele, coloana E nu este goală pe toate foile. Cum pot modifica Destinația de copiere pentru a ține cont de coloana A goală pe unele foi?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1).Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection) .Sfârșit(xlToRight)).Selectați Selecția.Foi tăiate(„Foaie1”).Selectați ActiveSheet.Lipiți Next End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Range("A:A").SpecialCells(xlCellTypeLastCell).Selectați ActiveCell.Offset(1, 0).Selectați „utilizați acest cod pentru a selecta ultima celulă din coloana „A” [quote] Sub CopySheet() '' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1) .Selectați foi(„Foaie” și CStr(i)).Selectați intervalul(„A2”).Selectați intervalul (Selectare, Selecție.Sfârșit(xlJos)).Selectați intervalul (Selectare, Selecție.Sfârșit(xlLaDreapta)).Selectați Selecția .Cut Sheets(„Sheet1”).Selectați ActiveSheet.Paste Next End SubDe clopez[/ Quote]
Acest comentariu a fost redus la minimum de moderatorul de pe site
CODUL MACRO A FUNCTAT ATAT DE BINE... LUCRARE FAB :-)
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL