Küpsised aitavad meil pakkuda meie teenuseid. Kasutades meie teenuseid, nõustud meie küpsiste kasutamise kohta.
Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas ühendada mitu töövihti Exceli töölauale?

Kas olete kunagi olnud kinni, kui peate Excelis ühendama mitu töövihikut üheainsa töökirjaga? Kõige kohutavam on see, et töövihik, mida peate ühendama, sisaldab mitu töölehte. Kas keegi oskab seda probleemi lahendada?

Kombineeri mitu töövihti ühele töövihikule koos VBA-ga

Kombineeri mitu töövihti ühele töövihikule käsuga Teisalda või Kopeeri

Lihtsalt ühendage mitme töövihiku ühe Exceli töölauda Kutoolsiga


Lihtsalt ühendage mitu töölehte / töövihikuid ühe töölehe / töövihikuga:

Mitme töölehe või töövihiku kombineerimine üheks tööleheks või töövihikuks võib olla teie igapäevatöös tohutu ülesanne. Aga kui teil on Kutools Exceli jaoks, selle võimas rakendus - Ühendama aitab teil kiiresti kombineerida mitu töölehte, töövihikuid ühe töölehe või töövihikuga. Laadige alla täisväärtuslik 60-päevane tasuta jälgimine Kutools'ist Excelisse nüüd!

Kutools Exceli jaoks: rohkem kui 200i käepärased Exceli lisandmoodulid, mida saab tasuta proovida 60 päeva jooksul ilma piiranguteta. Laadige alla ja proovige kohe proovige nüüd!


Kombineeri mitu töövihti ühele töövihikule koos VBA-ga

Kvalifitseeritud ja professionaalsete programmeerijate jaoks võite kasutada VBA-skripte, et kombineerida mitu töövihti üheks peaväljaanikuks. Sellega saate tegeleda järgmiste sammudega:

1. Pange kõik töövihikud, mida soovite ühendada samasse kataloogi. Vaata pilti:

2. Käivitage Exceli fail, mille soovite teisi töövihti ühendada.

3. Klõpsa arendaja > Visual Basicuus Rakendused Microsoft Visual Basic aken kuvatakse, klõpsake Sisesta > moodulid, ja sisestage järgmine kood moodulisse:

Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

tüüp: Ülaltoodud koodis saate muuta tee, mida te kasutate.

4. Siis klõpsake doc-merge-multiple-workbooks-nupp nupu koodi käivitamiseks ja kõik töölehed (sh tühjad töölehed) töövihikute sees on koondatud peaväljaannete hulka.

märkused: See VBA-kood võib ühendada kogu töövihikud peaväljaannete hulka, kui soovid kombineerida töövihikute täpsustatud töölehti, see kood ei toimi.


Kombineeri mitu töövihti ühele töövihikule käsuga Teisalda või Kopeeri

Kui olete Microsoft Exceli uus kasutaja, pole teil muud valikut, vaid ainult kopeerige iga lehe andmed ja kleepige see uude töövihikusse ükshaaval ning rakendage käsku Teisalda või Kopeeri. Kasutades Teisalda või kopeeri käsk aitab teil ühe või mitu töölehte kiiresti uuele töövihikule eksportida või kopeerida.

1. Avage kõik töövihikud, mida soovite ühtseks töövihikuks ühendada.

2. Valige tööriba kõigi töölehtede nimed vahekaardiribal. Saate valida mitu, hoides alla Ctrl võti või nihe võti. Paremklõpsake töölehe nime ja klõpsake nuppu Teisalda või kopeeri kontekstimenüüst.

3. sisse Teisalda või kopeeri dialoogiboksis valige põhitööriist, kuhu soovite teisi töövihti ühendada rippmenüüst Teisalda valitud lehed raamatuga. Ja seejärel määrake ühendatud töölehtede asukoht. Vaadake ekraanipilte:

4. Siis klõpsake OK. Valitud töölehed on teisaldatud magistriõppesse.

5. Korrake samme 2ilt 4-ile, et teisi töövihikuid peaarvepidajale teisaldada. Siis ühendab see kõik avatud töövihikute töölehed üheks töövihikuks. Vaadake ekraanipilte:


Lihtsalt ühendage mitme töövihiku ühe Exceli töölauda Kutoolsiga

Õnneks on Microsoft Exceli rookies ja uute kätes saadaval mõned tööriistad, mis aitavad teil sadu töövihikuid kiiresti kombineerida. Funktsioon Ühendama in Kutools Exceli jaoks muudab paljude Exceli failide ühendamise palju lihtsamaks. Rakendust kasutatakse Excelis korduvate ja koondatud toimingute vabastamiseks. See mängib tõeliselt olulist rolli, kui teil on igapäevatöös palju töödelda Exceli faili. Nüüd vaatame, kuidas seda funktsiooni kasutada, et kombineerida mitu töövihikut.

Kutools Exceli jaoks : rohkem kui 300i käepärased Exceli lisandmoodulid, Tasuta proovida 60 päeva jooksul ilma piiranguteta.

1. Luba Exceli ja klõpsake Kutools Veel > Ühendama. Seejärel avaneb dialoog, mis meenutab teile, et kõik kombineeritud töövihikud tuleks salvestada ja seda funktsiooni ei saa kaitstavate töövihikute jaoks rakendada, klõpsake OK nuppu.

2. Aasta Ühendage töölehed viisard vali Kombineeri mitu töölehte töövihistest üheks töövihikuks, ja seejärel klõpsake nuppu järgmine nuppu. Vaata pilti:

2. Siis näete kõiki avatud töövihikuid ja töölehti Töölehtede ühendamine - 2i samm 3 Dialoogikast. Klõpsake nupul lisama > fail / Folder et lisada teisi Exceli faile või kaustu, mis sisaldaksid Exceli faile, mida te kombineerite. Pärast failide valimist klõpsake nuppu järgmine nuppu edasi minna. Vaata pilti:

doc ühendada mitu töölauda arrow1

3. Aasta Töölehtede ühendamine - 3i samm 3 dialoogiboksis, palun tehke järgmist.

  • 3.1 Saate välistada kõigi tühjade töölehtede liitmise, valides Jäta vahele alates Kui ilmub tühi tööleht rippmenüü.
  • 3.2 Kontrollige Iga töölehe esimene rida (kommentaar) võimalus sisestada töölehe teavet iga kombineeritud töölehe kohta.
  • 3.3 Võite uue kombineeritud töölehe ümber nimetada, sisestades töövihikute nimesid enne või pärast esialgsete töölehtede nimed või hoides esialgsete töölehtede nimesid, tühistades Lisades töövihiku nime valik.
  • 3.4 Klõpsake nupul lõpp nuppu.

4. Seejärel valige koondatud töövihiku salvestamiseks kaust ja avage see vastavalt vajadusele. Nüüd on kõik määratud töövihikud ühendatud üheks.

Märkused:

1. Teilt küsitakse, kas soovite stsenaariumi salvestada. Klõpsake jah vajadusel salvestamiseks, siis sisestage stsenaariumi nimi (vt järgmisi ekraanipilte). Pärast stsenaariumi salvestamist peate ainult klõpsama Stsenaarium nuppu, et valida step2i viisardi stsenaariumi nimi, et seda otse kasutada.

2. Valitud töövihikute töölehed on ühendatud uue töövihikuga ja töölehti nimetatakse töövihiku nimeks enne või pärast algse töölehe nime, kui olete kontrollinud Lisades töövihiku nime võimalus. Vahepeal uus tööleht nimega Kutools Exceli jaoks on loodud enne kõiki töölehti, kus loetletakse töövihikud, kus on üksikasjalik teave iga töölehe kohta. Vaata pilti:

3. Kui teie töölehe nimi on liiga pikk, võib nimemärgid olla suuremad kui 31-tähemärgid, kombineeritud nime ei kuvata ja kuvatakse ainult originaal-lehe nimi.

VihjeKui soovite selle utiliidi tasuta proovida, siis külastage palun alla laadida tarkvara vabalt kõigepealt ja seejärel käsku rakendada operatsioon vastavalt eespool toodud sammudele.


Office'i vahekaart - Exceli töövihikute vahelehtede sirvimine, redigeerimine ja haldamine:

Office'i vahekaart ühendab veebibrauseritega nagu Google Chrome, Internet Explorer uued versioonid ja Firefoxi Microsoft Exceliga kaetud liides. See on aja säästmise tööriist ja asendamatu töö. Vaadake demo allpoolt:

Klõpsake Office'i vahekaardi tasuta proovimiseks!

Office&#39;i tabel Exceli jaoks

Demo: hõlpsasti kombineerige Exceli abil Kutoolsi jaoks mitu töövihti ühe töövihikuga




Seotud artiklid:



Soovitatavad tööriistad

Office'i vahekaart

kuldne staatus1 Tooge kasulikke kaarte Exceli ja muudele Office'i tarkvaradele, nagu Chrome, Firefox ja uus Internet Explorer.

Kutools Exceli jaoks

kuldne staatus1 Amazing! Suurendage oma tootlikkust 5 minutiga. Ei vaja erilisi oskusi, välja arvatud kaks tundi iga päev!

kuldne staatus1 300 uued funktsioonid Exceli jaoks, tee Exceli palju lihtsaks ja võimsaks:

  • Ühendage lahtrid / ridad / veerud andmete kaotamata.
  • Mitme lehe ja töövihikute kombineerimine ja konsolideerimine.
  • Võrdlema diapasse, kopeeri mitu vahemikku, teisendades teksti kuupäeva, ühiku ja valuuta konverteerimise.
  • Värvide arv, lehtede vahesummad, täiustatud sorteerimine ja superfiltrid
  • Veel Vali / Lisa / Kustuta / Tekst / Vormindus / Link / Kommentaar / Töölehed / Töölehed Tööriistad ...

Kutoolsi ekraanipilt Exceli jaoks

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dezignext Technologies · 3 days ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 1 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 2 days ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      Dim xI As Integer
      On Error Resume Next

      xStrPath = " C:\Users\DT168\Desktop\KTE\"
      xStrName = "Sheet1,Sheet3"

      xArr = Split(xStrName, ",")

      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      xStrFName = Dir(xStrPath & "*.xlsx")
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      For xI = 0 To UBound(xArr)
      If xWS.Name = xArr(xI) Then
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
      xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
      Exit For
      End If
      Next xI
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True

      End Sub
  • To post as a guest, your comment is unpublished.
    Chris · 2 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 2 days ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      On Error Resume Next
      xStrPath = "C:\Users\DT168\Desktop\KTE\"
      xStrFName = Dir(xStrPath & "*.xlsx")
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
      xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Owen · 5 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.