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

Kako združiti ali združiti delovne liste ali delovne zvezke v en delovni list?

Pri vsakodnevnem delu lahko naletimo na težavo, ki na stotine listov ali delovnih zvezkov združi v en list za analizo podatkov, kar traja veliko časa, če v Excelu uporabite ukaz Kopiraj in prilepi. Tu v tej vadnici bom našel nekaj nasvetov za hitro reševanje tega dela.

doc združiti 1

HITRA NAVIGACIJA

Združevanje vseh listov aktivnega delovnega zvezka v en list z VBA
Združevanje ducatov listov ali delovnih zvezkov v en delovni list / delovni zvezek s kliki
Združevanje dveh tabel v eno in posodobitev v stolpcu s kliki
Prenesite vzorčno datoteko


Združevanje vseh listov aktivnega delovnega zvezka v en list z VBA

V tem razdelku vam nudim kodo VBA, ki bo ustvarila nov list za zbiranje vseh listov aktivnega delovnega zvezka med izvajanjem.

1. Aktivirajte delovni zvezek, v katerega želite združiti vse liste, in pritisnite + tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V pojavnem oknu kliknite Vstavi > Moduli da ustvarite nov skript modula.

3. Kopirajte spodnjo kodo in jih prilepite v skript.

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 združiti 2

4. Pritisnite F5 ključ, potem so bili vsi podatki na listih združeni v nov list z imenom Kombinirano, ki je postavljen na sprednjo stran vseh listov.


ne premakni se

Ali želite dvig plač in veliko časa za spremstvo z družino?

Zavihek Office poveča vašo učinkovitost za 50% v Microsoft Officeu, ki deluje zdaj

Neverjetno, delo z dvema ali več dokumenti je lažje in hitrejše kot delo z enim.

V primerjavi z dobro znanimi brskalniki je orodje z zavihki v zavihku Office zmogljivejše in učinkovitejše.

Vsak dan zmanjšajte na stotine klikov z miško in tipkanja na tipkovnici, poslovite se od roke miške.

Če običajno delate z več dokumenti, vam bo Office Tab odlično prihranil čas.

30-dnevni brezplačni preizkus, kreditna kartica ni potrebna.

Preberi večBrezplačno prenesete zdaj


Združevanje ducatov listov ali delovnih zvezkov v en delovni list / delovni zvezek s kliki

Z VBA lahko kombinirate samo liste v aktivnem delovnem zvezku, kako pa lahko liste med delovnimi zvezki združite v list ali delovni zvezek?

Spoji liste v delovnih zvezkih v en list
doc združiti 18

Združite liste v delovnih zvezkih v en delovni zvezek
doc združiti 3

Za reševanje tega dela in izpolnjevanje drugih zahtev glede kombinacije listov je Združite funkcija je bila razvita s štirimi kombinacijskimi scenariji:

  • Več listov ali delovnih zvezkov združite v en list
  • Več listov ali delovnih zvezkov združite v en delovni zvezek
  • Združite iste imenske liste v en list
  • Združi vrednosti na listih ali v delovnih zvezkih v en list

Tu je za primer uporabljena druga možnost:

Več listov ali delovnih zvezkov združite v en delovni zvezek

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Aktivirajte Excel, kliknite Kutools Plus > Združite, odpre se pogovorno okno, ki vas opomni, da je treba delovne zvezke, ki jih želite združiti, zapreti. Kliknite OK za nadaljevanje.
doc združiti 4
doc združiti 5

2. V Ljubljani Združite delovne liste 1. korak pogovorno okno, preverite Več delovnih listov iz delovnih zvezkov združite v en delovni zvezek možnost. Kliknite Naslednji , da greste na naslednji korak čarovnika.
doc združiti 6

3. klik Dodaj > file or Mapa za dodajanje delovnih zvezkov, ki jih želite združiti, v Seznam delovnih zvezkov podokna, nato lahko določite, kateri delovni list bo združen, tako da preverite imena v Seznam delovnih listov podokno. Kliknite Naslednji iti na zadnji korak čarovnika.
doc združiti 7

4. V tem koraku določite želene nastavitve. Nato kliknite Konec.
doc združiti 8

5. Odpre se okno, v katerem izberete mapo, v katero želite združiti delovni zvezek, in kliknite Shrani.
doc združiti 9

Zdaj so delovni zvezki združeni v en delovni zvezek. In na sprednji strani vseh listov je ustvarjen tudi glavni list z imenom Kutools za Excel, ki vsebuje nekaj informacij o listih in povezave za posamezen list.
doc združiti 10

Predstavitev: liste / delovne zvezke združite v en list ali delovni zvezek

Kutools za Excel: 200+ uporabnih priročnih orodij, ki poenostavijo zapletene naloge v Excelu v nekaj klikov.

Poslovite se od mišje roke in cervikalne spondiloze

300 naprednih orodij Kutools for Excel rešuje 80% Opravila v Excelu v nekaj sekundah, izvlečejo vas iz tisočih klikov miške.

Preprosto obravnavajte 1500 delovnih scenarijev, ni treba izgubljati časa za iskanje rešitev, imate veliko časa za uživanje v svojem življenju.

Vsak dan izboljšajte 80% produktivnost za 110000+ zelo učinkovitih ljudi, seveda tudi vi.

Da vas ne bodo več mučile boleče formule in VBA, dajte možganom počitek in veselo delovno razpoloženje.

30-dnevni brezplačni preizkus s polnimi funkcijami, 30-dnevno vračilo denarja brez razloga.

Boljše telo ustvarja boljše življenje.


Združevanje dveh tabel v eno in posodobitev v stolpcu s kliki

Če želite združiti dve tabeli v eno in posodobiti podatke na podlagi stolpca, kot je prikazano na spodnji sliki zaslona, ​​lahko poskusite Združi tabele uporabnost Kutools za Excel.
doc združiti 11

Kutools za Excel: več kot 200 priročnih Excelovih dodatkov za poenostavitev zapletenih nalog v nekaj klikov v Excelu

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. klik Kutools Plus > Združi tabele omogočiti Združi tabele čarovnik.
doc združiti 12

2. V 1. koraku čarovnika morate ločeno izbrati obseg glavne tabele in obsega iskalne tabele. Nato kliknite Naslednji.
doc združiti 13

3. Označite stolpec s ključi, na podlagi katerega želite posodobiti podatke v glavni tabeli. Kliknite Naslednji.
doc združiti 14

4. Nato označite stolpce v glavni tabeli, v katerih želite posodobiti podatke na podlagi iskalne tabele. Kliknite Naslednji.
doc združiti 15

5. V 4. koraku čarovnika označite stolpce, ki jih želite dodati iz iskalne tabele v glavno tabelo. Kliknite Naslednji.
doc združiti 16

6. V zadnjem koraku čarovnika določite želene nastavitvene možnosti. Nato kliknite Konec.
doc združiti 17

Zdaj je glavna tabela posodobila podatke in dodala nove podatke na podlagi iskalne tabele.

Predstavitev: liste / delovne zvezke združite v en list ali delovni zvezek

Kutools za Excel: 200+ uporabnih priročnih orodij, ki poenostavijo zapletene naloge v Excelu v nekaj klikov.


Prenesite vzorčno datoteko

Vzorec


Priporočena orodja za produktivnost

Zavihek Office - brskanje, urejanje in upravljanje dokumentov z zavihki v sistemih Microsoft Office 2019 - 2003 in Office 365


zavihek pisarne

Profesionalni dodatek za pospeševanje Excela 2019-2007, opravila za ure zmanjša na sekunde

Ta dodatek vključuje na desetine poklicnih skupin, pri čemer bo več kot 300 možnosti avtomatiziralo večino vaših dnevnih opravil v Excelu in povečalo vašo produktivnost vsaj za 50%. Na primer skupine optonov z enim klikom in paketne pretvorbe.
Zdaj je vaša priložnost, da se pospešite s programom Kutools for Excel!


Komentarji (168)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
uporabil svojo prvo makro funkcijo. WOW! hvala za objavo
Ta komentar je moderator na spletnem mestu minimiziral
Mislim, da je kodaIzbira.Odmik(0, 0).Spreminjanje velikosti(Izbor.vrstic.Število - 1).Izberi' ne mora biti tam. Na mojem koncu izbere drugo vrstico naprej in manjka prva.
Ta komentar je moderator na spletnem mestu minimiziral
jaz imam enak problem. Izpušča prvo vrstico iz drugega dodanega delovnega lista.
Ta komentar je moderator na spletnem mestu minimiziral
Odstrani glave, tako da nimate podvojenih glav
Ta komentar je moderator na spletnem mestu minimiziral
Deluje kot čar, hvala za delitev!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam! Makro je deloval odlično.
Ta komentar je moderator na spletnem mestu minimiziral
ne vem, kako uporabiti funkcijo VBN v excelu, mi lahko prosim pomagate, kako to narediti.
Ta komentar je moderator na spletnem mestu minimiziral
Super, hvala!!! Zelo Zelo Koristno
Ta komentar je moderator na spletnem mestu minimiziral
Makro ena deluje dobro. Hvala!! To je super!!!! :)
Ta komentar je moderator na spletnem mestu minimiziral
Upoštevajte, da je to omejeno z omejitvijo 65k vrstic, če morate za odpravo težave povečati obseg vrstice Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2).
Ta komentar je moderator na spletnem mestu minimiziral
Odlično orodje, vendar ne združuje vseh 21 listov. Kako lahko razširim obseg?
Ta komentar je moderator na spletnem mestu minimiziral
OPOMBA!!! Z makrom morate biti previdni.. bo deloval, če imajo vaši podatki stalen pretok informacij in ni prazne vrstice. to počne vrstica "Selection.CurrentRegion.Select". Na primer, če morate kopirati VSE podatke v preglednici, vendar je v (recimo) vrstici 200 prazna vrstica, bo makro kopiral samo navzdol v vrstico 200; VSE PODATKE POD TO VRSTICO BO UPOŠTEVIL!!!
Ta komentar je moderator na spletnem mestu minimiziral
Ali kdo pozna ukaz, da bi se izognil tej težavi?? Ali je mogoče rešiti težavo z Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select? Selection.Rows.Count - 1) je ukaz, ki povzroča težavo. kdo??
Ta komentar je moderator na spletnem mestu minimiziral
Namesto da začnete od vrha in se spuščate navzdol, začnite od spodaj in pojdite navzgor
Ta komentar je moderator na spletnem mestu minimiziral
Ali kdo pozna kodo za reševanje problemov praznih vrstic in stolpcev?. Imam ga v svojih podatkih, vendar ni preproste rešitve, kot je začetek od spodaj navzgor? Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Za brisanje praznih vrstic: 1. možnost: izberite celice v stolpcu A, ki jih je treba izbrisati. Uporabite Ctrl - in nato v pojavnem oknu izberite Celotna vrstica. Shranite delovni zvezek in zapustite. Nato odprite delovni zvezek. 2. možnost: izberite vrstice, ki jih je treba izbrisati. Uporabite Ctrl -. Shranite delovni zvezek in zaprite Odprti delovni zvezek. Dali ste možnost 1, da vam je bilo jasno, kaj se dogaja. Za brisanje praznih stolpcev: Izberite stolpec. Ctrl -. Shranite delovni zvezek in zaprite Odprti delovni zvezek.
Ta komentar je moderator na spletnem mestu minimiziral
Ali imamo kakšno rešitev za kopiranje podatkov pod prazno celico?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam ! Moja 2. vrstica je bila prazna na vseh listih in bil sem zmeden.
Ta komentar je moderator na spletnem mestu minimiziral
koda vba je delovala odlično, vendar potrebujem kombinirani delovni list za posodobitev, ko dodam nove vrstice ali nove podatke v celice na delovnih listih, ki jih združujem. Ali obstaja način za to? Hvala za vašo pomoč.
Ta komentar je moderator na spletnem mestu minimiziral
Koda makra je delovala odlično za prvi kombinirani delovni list, vendar moram kombinirani delovni list posodobiti, ko dodam podatke obstoječim delovnim listom, ki jih združujem. Ali obstaja način za to?
Ta komentar je moderator na spletnem mestu minimiziral
Ali ste kdaj ugotovili, kako ga posodobiti v glavnem listu, ko dodate vrstice na druge delovne liste?
Ta komentar je moderator na spletnem mestu minimiziral
Odlično delo. To je zmanjšalo moje delo z 2 uri na 10 minut.
Ta komentar je moderator na spletnem mestu minimiziral
Odlično, uporabil sem tako prvi makro kot Kutools, oba sta močno zmanjšala moje delo pri zbiranju in sestavljanju podatkov. Hvala za deljenje.
Ta komentar je moderator na spletnem mestu minimiziral
Pravkar sem izbrisal spodnji del in zdaj se samo posodablja. Upam, da to pomaga... Listi(1).Izberite Delovni listi.Dodaj
Ta komentar je moderator na spletnem mestu minimiziral
Koda deluje odlično! Potrebujem makro za kopiranje vseh podatkov na listih. Odreže prvo vrstico po listu 1. Samo prvi list ima naslovno vrstico, drugi listi so samo podatki. Ali je to možno?
Ta komentar je moderator na spletnem mestu minimiziral
Imam vprašanje o "Združi vse delovne liste v en delovni list s kodo VBA": koda deluje zelo dobro, vendar le, ko je prazna, doda glavo, je mogoče spremeniti kodo, da rečemo, da ne združite praznega lista?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, prihranili ste mi uro kopiranja in lepljenja :D
Ta komentar je moderator na spletnem mestu minimiziral
Imeti dva delovna zvezka, enake podatke, drugi pa ima dodatne podatke in nekateri podatki so bili posodobljeni, inv# Status 123 7/2 odprto inv# status 123 7/2 odprto 7/7 zaprto, kako se združiti v enega odstranjevanje ali označevanje dvojnikov in dodajanje vsak nov inv#, ki ni v prvem
Ta komentar je moderator na spletnem mestu minimiziral
Odlično deluje, če vaš stolpec A ni prazen. Na listih, kjer je stolpec A prazen, se zdi, da se prepisuje. V mojem dtaa stolpec E ni prazen na vseh listih. Kako lahko spremenim cilj kopiranja, da upoštevam prazen stolpec A na nekaterih listih?
Ta komentar je moderator na spletnem mestu minimiziral
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer Za i = 2 do 25 listov("Sheet1").Izberite obseg("A1").Izberite Selection.End(xlDown).Izberite obseg("A" & CStr(Izbor.Vrstica) + 1).Izberi liste("List" & CStr(i)).Izberi obseg("A2").Izberi obseg(Izbor, Izbor.Konec(xlDown)).Izberi obseg(Izbor, Izbor .End(xlToRight)).Izberite izbor.Izrežite liste("List1").Izberite ActiveSheet.Prilepi naslednji konec pod
Ta komentar je moderator na spletnem mestu minimiziral
Range("A:A").SpecialCells(xlCellTypeLastCell).Izberite ActiveCell.Offset(1, 0).Izberite 'uporabi to kodo za izbiro zadnje celice v stolpcu "A" [citat] Sub CopySheet() ' ' CopySheet Macro ' ' Dim i kot celo število za i = 2 do 25 listov ("Sheet1").Izberite obseg("A1").Izberite Selection.End(xlDown).Izberite obseg("A" & CStr(Selection.Row) + 1) .Izberite liste("List" & CStr(i)).Izberite obseg("A2").Izberite obseg(Izbor, Izbor.Konec(xlDown)).Izberite obseg(Izbor, Izbor.Konec(xlToRight)).Izberite izbor .Cut Sheets("Sheet1").Izberite ActiveSheet.Prilepi Next End SubOd clopeza[/ Quote]
Ta komentar je moderator na spletnem mestu minimiziral
MAKRO KODA JE DELULA TAKO DOBRO ... ODLIČNO DELO :-)
Tu še ni objavljenih komentarjev
Obremenitev Več

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL