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

Hogyan lehet egyesíteni vagy összevonni a munkalapokat vagy a munkafüzeteket egy munkalapba?

Mindennapi munkánk során olyan problémával találkozhatunk, amely több száz lapot vagy munkafüzetet egyesít egy lapba az adatok elemzéséhez, ami sok időt vesz igénybe, ha az Excel másolás és beillesztés parancsát használja. Itt, ebben az oktatóanyagban, adok néhány tippet a feladat gyors megoldásához.

doc kombájn 1

GYORS NAVIGÁCIÓ

Az aktív munkafüzet összes lapjának összevonása egy lapba a VBA-val
Több tucat lap vagy munkafüzet egyesítése egyetlen munkalapba / munkafüzetbe kattintásokkal
Két tábla egyesítése egybe, és egy oszlop frissítése kattintásokkal
Töltse le a minta fájlt


Az aktív munkafüzet összes lapjának összevonása egy lapba a VBA-val

Ebben a szakaszban egy VBA kódot adok meg, amely létrehoz egy új lapot az aktív munkafüzet összes lapjának összegyűjtésére, miközben futtatja.

1. Aktiválja azt a munkafüzetet, amelyben összesíteni kívánja az összes lapot, majd nyomja meg az gombot + gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

2. A felbukkanó ablakban kattintson a gombra betétlap > Modulok új modul parancsfájl létrehozásához.

3. Másolja az alábbi kódot, és illessze be a szkriptbe.

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 kombájn 2

4. nyomja meg F5 kulcsot, akkor az összes adat a lapon összevonásra kerül egy új, Kombinált lapra, amely az összes lap elé kerül.


mozogni

Szeretne fizetést emelni és sok időt arra, hogy elkísérje a családját?

Az Office fül 50% -kal növeli hatékonyságát a Microsoft Office jelenleg működésében

Hihetetlen, hogy két vagy több dokumentumnál dolgozni könnyebb és gyorsabb, mint egynél dolgozni.

A jól ismert böngészőkhöz képest az Office Tab füles eszköze erősebb és hatékonyabb.

Csökkentse az egérkattintások százait és a billentyűzet gépelését minden nap az Ön számára, búcsúzzon el most az egér kezétől.

Ha általában több dokumentummal dolgozik, az Office Tab nagyszerű időt takarít meg Önnek.

30-napos ingyenes próbaverzió, nincs szükség hitelkártyára.

Klikk ideIngyenes letöltése most


Több tucat lap vagy munkafüzet egyesítése egyetlen munkalapba / munkafüzetbe kattintásokkal

A VBA használatával csak kombinálhatja az aktív munkafüzet lapjait, de hogyan lehet egyesíteni a munkafüzetek lapjait munkalapokba?

A munkafüzetek lapjainak egyesítése egy lapba
doc kombájn 18

A munkafüzetek lapjainak egyesítése egy munkafüzetbe
doc kombájn 3

Ennek a feladatnak a megoldásához és a lapkombinációval kapcsolatos egyéb követelmények teljesítéséhez a Kombájn funkció négy kombinációs forgatókönyvvel lett kifejlesztve:

  • Egyesítsen több lapot vagy munkafüzetet egy lapba
  • Egyesítsen több lapot vagy munkafüzetet egy munkafüzetbe
  • Kombinálja ugyanazokat a névlapokat egy lapba
  • Konszolidálja az értékeket a lapok vagy a munkafüzetek között egyetlen lapba

Itt a második lehetőséget vesszük példának:

Egyesítsen több lapot vagy munkafüzetet egy munkafüzetbe

Után ingyenes telepítés Kutools for Excel, kérjük, tegye az alábbiak szerint:

1. Aktiválja az Excel alkalmazást, kattintson a gombra Kutools Plus > Kombájn, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy a kombinálni kívánt munkafüzeteket be kell zárni. Kattintson a gombra OK hogy folytassa.
doc kombájn 4
doc kombájn 5

2. Ban,-ben Kombinálja a munkalapokat 1. lépés párbeszédpanelen ellenőrizze Kombinálja a munkafüzetek több munkalapját egy munkafüzetbe választási lehetőség. Kattints Következő hogy a varázsló következő lépésére menjen.
doc kombájn 6

3. kettyenés hozzáad > filé or Mappa a kombinálni kívánt munkafüzetek hozzáadása a Munkafüzetek listája ablaktáblán, akkor megadhatja, hogy mely munkalap kerül összekapcsolásra a nevek ellenőrzésével Munkalap lista ablaktábla. Kattintson a gombra Következő hogy a varázsló utolsó lépésére menjen.
doc kombájn 7

4. Ebben a lépésben adja meg a szükséges beállításokat. Ezután kattintson a gombra befejez.
doc kombájn 8

5. Megjelenik egy ablak, ahol kiválaszthatja a mappát a kombinált munkafüzet elhelyezéséhez, majd kattintson a gombra Megtakarítás.
doc kombájn 9

Most a munkafüzeteket egy munkafüzetbe egyesítették. És az összes lap elején egy Kutools for Excel nevű törzslap is létrejön, amely felsorol néhány információt a lapokról és az egyes munkalapok hivatkozásait.
doc kombájn 10

Bemutató: Egyesítse a lapokat / munkafüzeteket egy lapba vagy munkafüzetbe

Kutools for Excel: 200 + hasznos, hasznos eszköz, néhány kattintással egyszerűsítve az Excel bonyolult feladatait.

Most búcsút mondjon az egér kezének és a nyaki spondylosisnak

A Kutools for Excel 300 fejlett eszköze megoldja 80% Az Excel-feladatok másodpercek alatt, húzza ki Önt a több ezer kattintásból.

Könnyen kezelheti 1500 működő forgatókönyvet, nem kell időt pazarolnia a megoldások keresésére, sok ideje van arra, hogy élvezze az életét.

Javítsa 80% -os termelékenységet minden nap 110000+ rendkívül hatékony ember számára, természetesen Önnel együtt.

Ne kínozzon többé fájdalmas formulák és VBA, adja meg az agyának a pihenést és az örömteli munkakedvet.

30-napos ingyenes próbaverzió teljes funkciókkal, 30-napi pénzvisszatérítés indoklás nélkül.

Egy jobb test jobb életet teremt.


Két tábla egyesítése egybe, és egy oszlop frissítése kattintásokkal

Ha két táblát szeretne egyesíteni egybe, és az adatokat egy oszlop alapján szeretné frissíteni, az alábbi képernyőképen látható módon, megpróbálhatja a Táblázatok egyesítése hasznossága Kutools az Excel számára.
doc kombájn 11

Kutools for Excel: Több mint 200 praktikus Excel-bővítmény a bonyolult feladatok egyszerűsítésére néhány kattintással az Excelben

Után ingyenes telepítés Kutools for Excel, kérjük, tegye az alábbiak szerint:

1. kettyenés Kutools Plus > Táblázatok egyesítése engedélyezni Táblázatok egyesítése varázsló.
doc kombájn 12

2. A varázsló 1. lépésében külön kell kiválasztania a főtábla és a keresőtáblák tartományait. Ezután kattintson a gombra Következő.
doc kombájn 13

3. Jelölje be a kulcsoszlopot, amely alapján frissíteni kívánja az adatokat. Kattintson a gombra Következő.
doc kombájn 14

4. Ezután ellenőrizze a főtábla oszlopait, amelyekben frissíteni kívánja az adatokat a keresési táblázat alapján. Kattintson a gombra Következő.
doc kombájn 15

5. A varázsló 4. lépésében ellenőrizze az oszlopokat, amelyeket hozzá kíván adni a keresési táblától a fő táblához. Kattintson a gombra Következő.
doc kombájn 16

6. A varázsló utolsó lépésében adja meg a szükséges beállításokat. Ezután kattintson a gombra befejez.
doc kombájn 17

Most a főtáblázat frissítette az adatokat, és új adatokat adott hozzá a keresési táblázat alapján.

Bemutató: Egyesítse a lapokat / munkafüzeteket egy lapba vagy munkafüzetbe

Kutools for Excel: 200 + hasznos, hasznos eszköz, néhány kattintással egyszerűsítve az Excel bonyolult feladatait.


Töltse le a mintafájlt

minta


Ajánlott termelékenységi eszközök

Office Tab - Füles böngészés, szerkesztés, dokumentumok kezelése a Microsoft Office 2019 - 2003 és az Office 365 rendszerben


iroda fül

Egy professzionális bővítmény az Excel 2019-2007 gyorsításához, az órai feladatok másodpercre zsugorítására

Ez a bővítmény több tucat szakmai csoportot tartalmaz, több mint 300 opcióval automatizálja a napi feladatok nagy részét az Excel programban, és legalább 50% -kal növeli a termelékenységet. Ilyenek például az egy kattintásos optonok és a kötegelt konverziók csoportjai.
Most itt az alkalom, hogy felgyorsítsa magát a Kutools for Excel alkalmazással!


A megjegyzések rendezése szerint
Hozzászólások (168)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
használta az első makró funkcióját. AZTA! köszönöm a hozzászólást
A weboldal moderátora ezt a megjegyzést minimalizálta
Szerintem a kódKijelölés.Eltolás(0, 0).Átméretezés(Kijelölés.Sorok.Szám. - 1).Kiválasztás' nem kell ott lennie. Az én részemről annyit tesz, hogy kiválasztja a második sort, és hiányzik az első.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanaz a problémám. Kihagyja az első sort a második hozzáadott munkalapról.
A weboldal moderátora ezt a megjegyzést minimalizálta
Megszünteti a fejléceket, hogy ne legyenek ismétlődő fejlécek
A weboldal moderátora ezt a megjegyzést minimalizálta
Úgy működik, mint egy varázslat, köszönöm a megosztást!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm! A makró tökéletesen működött.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem tudom, hogyan kell használni a VBN funkciót az Excelben, kérem, segítsen, hogyan kell ezt megtenni.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyszerű köszönöm!!! Nagyon Nagyon Hasznos
A weboldal moderátora ezt a megjegyzést minimalizálta
A makró jól működik. Kösz!! Ez szuper!!!! :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Ne feledje, hogy ezt a 65 1 soros korlát korlátozza, ha a Selection.Copy Destination:=Sheets(65536).Range("A2").End(xlUp)(XNUMX) tartományt felfelé kell növelnie a probléma megoldásához.
A weboldal moderátora ezt a megjegyzést minimalizálta
Remek eszköz, de nem kombinálja mind a 21 lapot. Hogyan bővíthetem a választékot?
A weboldal moderátora ezt a megjegyzést minimalizálta
JEGYZET!!! Óvatosnak kell lennie a makróval.. akkor működik, ha az adatok folyamatos információáramlással rendelkeznek, és nincsenek üres sorok. ezt teszi a "Selection.CurrentRegion.Select" sor. Például, ha az ÖSSZES adatot át kell másolnia egy táblázatba, de van egy üres sor (mondjuk) a 200. sorban, a makró csak a 200. sorba másolja le; A SOR ALATT MINDEN ADAT FIGYELEMBE VESZ!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Tud valaki olyan parancsot, amivel elkerülhető ez a probléma?? A Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select probléma megoldható? Selection.Rows.Count - 1) a probléma kiváltó parancsa. Bárki??
A weboldal moderátora ezt a megjegyzést minimalizálta
Ahelyett, hogy felülről kezdenénk és lemennénk, kezdjük alulról, és menjünk felfelé
A weboldal moderátora ezt a megjegyzést minimalizálta
Tudja valaki az üres sorok és oszlopok problémáinak megoldására szolgáló kódot? Az adataim között szerepel, de nincs olyan egyszerű megoldás, hogy alulról kezdjem? Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
Üres sorok törléséhez: 1. lehetőség: Válassza ki az A oszlopban azokat a cellákat, amelyeket törölni kell. Használja a Ctrl - billentyűt, majd a felugró ablakban válassza a Teljes sor lehetőséget. Mentse a munkafüzetet és lépjen ki. Ezután nyissa meg a munkafüzetet. 2. lehetőség: Válassza ki a törölni kívánt sorokat. Használja a Ctrl - billentyűt. Mentse a munkafüzetet és lépjen ki a megnyitott munkafüzetből. Megadta az 1. lehetőséget, hogy látható legyen, mi történik. Üres oszlopok törléséhez: Válassza ki az oszlopot. Ctrl -. Mentse a munkafüzetet és lépjen ki a megnyitott munkafüzetből.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van valami megoldás az üres cella alatti adatok másolására?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm ! A 2. sorom üres volt minden lapon, és össze voltam zavarodva.
A weboldal moderátora ezt a megjegyzést minimalizálta
a vba kód remekül működött, de frissítenem kell a kombinált munkalapot, amikor új sorokat vagy új adatokat adok az egyesített munkalapok celláihoz. Van erre mód? Köszönöm a segítségedet.
A weboldal moderátora ezt a megjegyzést minimalizálta
A makrókód remekül működött az első kombinált munkalapon, de frissítenem kell a kombinált munkalapot, amikor adatokat veszek fel az egyesített meglévő munkalapokhoz. Van erre mód?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kitalálta valaha, hogyan lehet frissíteni a mesterben, miközben sorokat ad hozzá a többi munkalaphoz?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kiváló munka. Ezzel a munkám 2 óráról 10 percre csökkent.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kiváló, az első makrót és a Kutools-t is használtam, mindkettő jelentősen csökkentette az adatgyűjtési és összeállítási munkámat. Köszönet a megosztásért.
A weboldal moderátora ezt a megjegyzést minimalizálta
Most töröltem az alábbi részt, és most csak frissül. Remélem, ez segít... Lapok(1).Válassza ki a Munkalapok.Hozzáadás elemet
A weboldal moderátora ezt a megjegyzést minimalizálta
A kód remekül működik! Szükségem van a makróra, hogy a lapokon lévő összes adatot másoljam. Az 1. munkalap utáni első sort levágja. Csak az első lapon van a fejléc, a többi lap csak adat. Van erre lehetőség?
A weboldal moderátora ezt a megjegyzést minimalizálta
"Összes munkalap összevonása egy munkalapba VBA kóddal" kérdésem lenne: A kód nagyon jól működik, de csak ha üres, akkor adja hozzá a fejlécet, lehet módosítani a kódot úgy, hogy ne konszolidálja az üres lapot?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm, megspóroltál egy órát a másolástól és beillesztéstől :D
A weboldal moderátora ezt a megjegyzést minimalizálta
Legyen két munkafüzet, ugyanazok az adatok, de a másodikban extra adatok vannak, és néhány adat frissítve lett minden új inv# nem az elsőben
A weboldal moderátora ezt a megjegyzést minimalizálta
Kiválóan működik, ha az A oszlop értéke nem üres. Az üres A oszlopú lapokon felülírásnak tűnik. Az én dtaa-ban az E oszlop minden lapon nem üres. Hogyan módosíthatom a másolási célt úgy, hogy figyelembe vegye az üres A oszlopot egyes lapokon?
A weboldal moderátora ezt a megjegyzést minimalizálta
Sub CopySheet() ' ' CopySheet makró ' ' Dim i As Integer For i = 2–25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Kijelölés.Sor) + 1).Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Sheet, Selection) .End(xlToRight)).Válassza ki a Selection.Cut Sheets("Sheet1") elemet.Válassza ki az ActiveSheet-et.Paste Next End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Tartomány("A:A").SpecialCells(xlCellTypeLastCell).Select ActiveCell.Offset(1).Válassza ki ezt a kódot az "A" oszlop utolsó cellájának kiválasztásához [quote] Sub CopySheet() ' ' CopySheet makró' ' Dim i As Integer For i = 0–2 Sheets("Sheet25").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1) .Select Sheets("Sheet" & CStr(i)).Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection .Cut Sheets("Sheet2").Válassza ki az ActiveSheet-et.Paste Next End SubClopez által[/ Quote]
A weboldal moderátora ezt a megjegyzést minimalizálta
A MAKRÓKÓD NAGYON JÓL MŰKÖDött... NAGY MUNKÁK :-)
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi