Evästeet auttavat meitä tarjoamaan palveluitamme. Käyttämällä palveluitamme, hyväksyt evästeiden käytön.
Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Miten yhdistää useita työkirjoja Excel-työkirjaksi?

Oletko koskaan jumissa, kun yhdistät useita työkirjoja Excel-työkirjaksi? Kaikkein kauhea asia on, että työkirja, jonka haluat yhdistää, sisältää useita laskentataulukoita. Voiko kukaan ehdottaa hyvää tapaa käsitellä tätä ongelmaa?

Yhdistä useita työkirjoja yhteen VBA-työtilaan

Yhdistä useita työkirjoja yhteen työkirjaan Move tai Copy-komennolla

Voit yhdistää useita työkirjoja yhteen työkirjaan Kutools for Excel -ohjelmalla


Voit yhdistää useita laskentataulukoita / työkirjoja yhteen laskentataulukkoon / työkirjaan:

Yhdistä useita laskentataulukoita tai työkirjoja yhteen ainoaan laskentataulukkoon tai työkirjaan voi olla valtava tehtävä päivittäisessä työssäsi. Mutta jos sinulla on Kutools for Excel, sen tehokas apuohjelma - Yhdistää auttaa sinua yhdistämään nopeasti useita laskentataulukoita, työkirjoja yhteen laskentataulukkoon tai työkirjaan. Lataa täysi ominaisuus 60-päivä ilmaiseksi Kutools -reitistä Exceliin nyt!

Kutools for Excel: enemmän kuin 200 kätevä Excel-lisäosat, voit kokeilla rajoituksia 60-päivinä. Lataa ja kokeile nyt!


Yhdistä useita työkirjoja yhteen VBA-työtilaan

Ammattimaisille ja ammattimaisille ohjelmoijille voit käyttää VBA-skriptejä yhdistämään useita työkirjoja yhdeksi master-työkirjaksi. Voit käsitellä tätä seuraavilla tavoilla:

1. Laita kaikki työkirjat, jotka haluat yhdistää samaan hakemistoon. Katso kuvakaappaus:

2. Aloita Excel-tiedosto, johon haluat yhdistää muut työkirjat.

3. Klikkaus Kehittäjä > Visual Basic, Uusi Microsoft Visual Basic sovelluksiin -ikkuna tulee näkyviin, napsauta liite > Moduulit, ja syötä moduliin seuraava koodi:

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

Kärki: Yllä olevassa koodissa voit muuttaa polku, jota käytät.

4. Napsauta sitten doc-yhdistelyllä usean työkirjoja-painike -näppäimen avulla, ja kaikki työkirjoissa olevat laskentataulukot (mukaan lukien tyhjät laskentataulukot) on yhdistetty master-työkirjaan.

Huomautuksia: Tämä VBA-koodi voi yhdistää koko työkirjan master-työkirjaan, jos haluat yhdistää tietyn työkirjojen taulukot, tämä koodi ei toimi.


Yhdistä useita työkirjoja yhteen työkirjaan Move tai Copy-komennolla

Jos olet Microsoft Excelin aloittelija, sinulla ei ole muuta vaihtoehtoa kuin kopioida jokaisen arkin tiedot ja liittää ne uuteen työkirjaan yksitellen ja soveltaa Move- tai Copy-komentoa. Käyttämällä Siirrä tai kopioi komento auttaa sinua viemään tai kopioimaan yhden tai useamman laskentataulukon uuteen työkirjaan nopeasti.

1. Avaa kaikki työkirjat, jotka haluat yhdistää yhdeksi työkirjaksi.

2. Valitse kaikki työkirjan laskentataulukon nimet välilehdellä. Voit valita useita pitämällä alhaalla Ctrl avain tai siirtyminen näppäintä. Napsauta hiiren kakkospainikkeella laskentataulukon nimeä ja napsauta Siirrä tai kopioi pikavalikosta.

3. sisään Siirrä tai kopioi valintaikkunassa, valitse master-työkirja, jonka haluat yhdistää muihin työkirjoihin pudotusvalikosta Siirrä valitut arkit varaamaan. Määritä sitten sulautettujen työarkkien sijainti. Katso kuvakaappauksia:

4. Napsauta sitten OK. Valitut laskentataulukot on siirretty master-työkirjaan.

5. Toista vaiheet 2: stä 4: ään siirtääksesi muut työkirjat master-työkirjaan. Sitten se yhdistää avointen työkirjojen kaikki työarkit yhteen työkirjaan. Katso kuvakaappauksia:


Voit yhdistää useita työkirjoja yhteen työkirjaan Kutools for Excel -ohjelmalla

Onneksi Microsoft Excelin aloittelijoille ja uusille käsille on käytettävissä joitain työkaluja, jotka auttavat yhdistämään satoja työkirjoja yhdeksi. Toiminto Yhdistää in Kutools for Excel helpottaa useiden Excel-tiedostojen yhdistämistä. Sovellusta käytetään toistuvien ja tarpeettomien toimintojen vapauttamiseen Excelissä. Se on todella tärkeä rooli, jos sinun on käsiteltävä suurta Excel-tiedostoa päivittäisessä työssäsi. Katsotaan nyt, miten tämä toiminto toimii useiden työkirjojen yhdistämisessä.

Kutools for Excel : enemmän kuin 300 kätevä Excel-lisäosat, voit kokeilla rajoituksia 60-päivinä.

1. Ota Excel käyttöön ja napsauta Kutools More > Yhdistää. Tällöin avautuu valintaikkuna, joka muistuttaa sinua, että kaikki yhdistetyt työkirjat on tallennettava ja ominaisuutta ei saa soveltaa suojattuihin työkirjoihin. OK painiketta.

2. Vuonna Yhdistä laskentataulukot ohjattu toiminto, valitse Yhdistä useita työarkeja työkirjoista yhdeksi työkirjaksi, ja napsauta sitten seuraava painiketta. Katso kuvakaappaus:

2. Sitten näet, että kaikki avatut työkirjat ja taulukot on lueteltu Yhdistä laskentataulukot - Step 2 3 valintaikkuna. Klikkaa lisätä > filee / Kansio lisätä muita Excel-tiedostoja tai kansioita, jotka sisältävät Excel-tiedostoja, joita yhdistät. Valitse tiedostot valitsemalla seuraava painiketta mennä eteenpäin. Katso kuvakaappaus:

doc yhdistä useita työkirjoja arrow1

3. Vuonna Yhdistä laskentataulukot - Step 3 3 tee seuraavat asetukset:

  • 3.1 Voit sulkea kaikki tyhjät laskentataulukot yhdistämällä valitsemalla hyppiä mistä Kun kohtaat tyhjän laskentataulukon pudotusvalikosta.
  • 3.2 Tarkista Kunkin taulukon ensimmäinen rivi (kommentti) vaihtoehto lisätä jokaisen yhdistetyn laskentataulukon tiedot.
  • 3.3 Voit nimetä uudet yhdistetyt laskentataulukot lisäämällä työkirjan nimet alkuperäisen laskentataulukon nimeksi tai sen jälkeen tai vain säilyttää alkuperäinen laskentataulukko poistamalla Lisäämällä työkirjan nimi vaihtoehto.
  • 3.4 Napsauta painiketta Suorittaa loppuun painiketta.

4. Valitse sitten kansio, jolla voit tallentaa yhdistetyn työkirjan ja avata sen suoraan, kuten tarvitset. Nyt kaikki määritetyt työkirjat yhdistyvät yhteen.

Huomautuksia:

1. Sinulta kysytään, haluatko tallentaa tämän skenaarion. Klikkaus Kyllä tallenna haluamasi nimi ja anna skenaarion nimi (katso seuraavaa kuvakaappausta). Kun olet tallentanut skenaarion, sinun tarvitsee vain napsauttaa skenaario -painiketta valitaksesi vaiheen2 ohjattua skenaarion nimeä ja käytä sitä suoraan.

2. Valittujen työkirjojen työarkit on yhdistetty uuteen työkirjaan ja laskentataulukot on nimetty työkirja-nimellä ennen alkuperäisen laskentataulukon nimeä tai sen jälkeen, jos olet tarkistanut Lisäämällä työkirjan nimi vaihtoehto. Samaan aikaan uusi nimike Kutools for Excel luodaan ennen kaikkia laskentataulukoita, joissa luetellaan työkirjat, joissa on yksityiskohtaiset tiedot jokaisesta työarkista. Katso kuvakaappaus:

3. Jos laskentataulun nimi on liian pitkä, ehkä nimimerkit ovat suuremmat kuin 31-merkinnät, yhdistettyä nimeä ei näytetä ja vain alkuperäinen arkin nimi näkyy.

Kärki.Jos haluat saada ilmaisen kokeiluversion tästä apuohjelmasta, siirry osoitteeseen lataa ohjelmisto vapaasti ensin, ja siirry sitten soveltamaan toimintaa yllä olevien vaiheiden mukaisesti.


Office-välilehti - Työkirjojen pikaselaus, muokkaus ja hallinta Excelissä:

Office-välilehti tuo välilehden käyttöliittymän verkkoselaimissa, kuten Google Chrome, Internet Explorerin uusista versioista ja Firefoxista Microsoft Exceliin. Se on aikaa säästävä työkalu ja korvaamaton työsi. Katso alla demo:

Klikkaa ilmaiseksi Office-välilehtiä!

Office-välilehti Excelille

Demo: Yhdistä useita työkirjoja yhteen työkirjallisuuteen Kutools for Excel -ohjelmalla




Aiheeseen liittyviä artikkeleita:



Suositeltavat tuottavuustyökalut

Office-välilehti

kulta star1 Tuo kätevät välilehdet Exceliin ja muihin Office-ohjelmistoihin, kuten Chrome, Firefox ja uusi Internet Explorer.

Kutools for Excel

kulta star1 Hämmästyttävä! Lisää tuottavuutta 5 minuutissa. Älä tarvitse mitään erikoistaitoja, paitsi kaksi tuntia päivässä!

kulta star1 300 Excelin uudet ominaisuudet, Excelin ansiosta helppo ja tehokas:

  • Yhdistä solu / rivit / sarakkeet ilman tietojen menettämistä.
  • Yhdistä ja yhdistä useita arkkeja ja työkirjoja.
  • Vertaa alueita, kopioi useita alueita, muuntaa tekstin päivämäärän, yksikön ja valuutan muuntamisen.
  • Laske värit, hakulausekartat, Advanced Sort ja Super Filter,
  • Lisää Valitse / Lisää / Poista / Teksti / Muoto / Link / Kommentti / Työkirjat / Työtaso Työkalut ...

Kutools for Excel -näyttö

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 · 7 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 · 5 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 · 5 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.