I cookie ci aiutano i nostri servizi. Utilizzando i nostri servizi, l'utente accetta di utilizzare i cookie.
Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come unire fogli di lavoro / cartelle di lavoro in un foglio di lavoro?

Quando utilizziamo Excel, di solito è necessario unire più fogli di lavoro o cartelle di lavoro in un unico foglio di lavoro principale, in modo da poter analizzare e calcolare i dati in modo rapido e semplice. Per gli utenti generici, non è stato possibile completarlo tranne l'utilizzo del comando copia e incolla, è facile combinare pochi fogli di lavoro, ma se ci sono numerosi fogli di lavoro, questo metodo richiederà molto tempo. Oggi parlerò di alcuni trucchi rapidi per risolvere questo problema.

Unisci tutti i fogli di lavoro della cartella di lavoro attiva in un foglio di lavoro con codice VBA

Unisci fogli di lavoro o cartelle di lavoro in un foglio di lavoro con Kutools per Excelbuona idea3

Unisci due tabelle e aggiorna per colonna con Kutools per Excelbuona idea3


Combina facilmente più fogli / cartella di lavoro in un unico foglio o cartella di lavoro

Combinare fogli multipli o cartelle di lavoro in un unico foglio o cartella di lavoro può essere rischioso in Excel, ma con il Combine funzione in Kutools per Excel, è possibile combinare dozzine di fogli / cartelle di lavoro in un unico foglio o cartella di lavoro, inoltre, è possibile consolidare i fogli in uno solo di diversi clic. Fai clic per una prova gratuita per tutti i giorni futuri di 60!
combinare fogli
Kutools per Excel: con più di 200 pratici componenti aggiuntivi di Excel, liberi di provare senza limiti nei giorni 60.

Unisci tutti i fogli di lavoro della cartella di lavoro attiva in un foglio di lavoro con codice VBA

Supponendo di avere tre fogli di lavoro (Grado1, Grado2, Grado3) che contengono alcune informazioni degli studenti e ora è necessario unirli in un unico foglio di lavoro. Vedi le seguenti schermate:

doc-merge-fogli di lavoro-in-one1
doc-button2



doc-merge-fogli di lavoro-in-one4




doc-button1
doc-merge-fogli di lavoro-in-one2
doc-button1
doc-merge-fogli di lavoro-in-one3

Il seguente codice VBA può aiutarti a ottenere i dati da tutti i fogli di lavoro della cartella di lavoro attiva insieme in un nuovo foglio di lavoro singolo. Allo stesso tempo, tutti i fogli di lavoro devono avere la stessa struttura di campo, le stesse intestazioni di colonna e lo stesso ordine di colonne. Si prega di fare come segue:

1. Tenere premuto il tasto ALT + F11 chiavi, e apre il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare il seguente codice nella finestra del modulo.

Sub Combine()
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

3. Quindi premere F5 chiave per eseguire il codice e tutti i dati nella cartella di lavoro sono stati uniti in un nuovo foglio di lavoro denominato Combinato che aggiungerà prima di tutti i fogli di lavoro.

Note:

(1.) I tuoi dati devono iniziare da A1, in caso contrario il codice non avrà effetto.

(2.) I tuoi dati devono avere la stessa struttura.

(3.) Solo questo codice può combinare tutti i fogli di lavoro della cartella di lavoro attiva, se si desidera unire fogli di lavoro da più cartelle di lavoro, questo codice non funzionerà.


Unisci fogli di lavoro o cartelle di lavoro in un foglio di lavoro con Kutools per Excel

Forse il codice VBA di cui sopra ha alcune limitazioni per te, Kutools for Excel'S Combinare l'utilità può aiutarti a unire rapidamente e facilmente i fogli di lavoro di una cartella di lavoro o di più cartelle di lavoro, indipendentemente dal fatto che abbiano le stesse strutture o meno.

Kutools for Excel, con oltre 300 funzioni a portata di mano, rende più facile il lavoro.

Supponendo che sia necessario unire due cartelle di lavoro e che i fogli di lavoro non abbiano le stesse strutture, come mostrato nelle schermate seguenti, in questo caso, anche Kutools per lo strumento Combina di Excel può risolvere questo problema.

doc-merge-fogli di lavoro-in-one7 doc-merge-fogli di lavoro-in-one8

Dopo l'installazione Kutools per Excel, si prega di fare come di seguito:(Scarica gratis Kutools per Excel ora!)

1. Clic Kutools Plus > Combinaree viene visualizzata una finestra di dialogo per ricordare che la cartella di lavoro aperta non può essere combinata, vedere schermate:
doc unisce le tabelle 9

doc combina fogli in un foglio 2

2. Fare clic su OK per andare avanti, nel Combina fogli di lavoro procedura guidata, selezionare Combina più fogli di lavoro dalle cartelle di lavoro in un foglio di lavoro opzione. Vedi screenshot:
doc combina fogli in un foglio 3

3. E fare clic su Successivo pulsante, su step2 della procedura guidata, tutte le cartelle di lavoro e i fogli di lavoro aperti sono elencati nelle caselle di elenco, fare clic su aggiungere pulsante per inserire i file che si desidera combinare. Quindi specificare i fogli di lavoro che si desidera combinare e anche è possibile fare clic button1 pulsante per selezionare l'intervallo che si desidera utilizzare. (Per impostazione predefinita, l'intervallo utilizzato è selezionato per ciascun foglio di lavoro) Vedi screenshot:

doc combina fogli in un foglio 4
freccia doc giù
doc combina fogli in un foglio 5
freccia doc giù
doc combina fogli in un foglio 6

4. Dopo aver specificato i fogli di lavoro e gli intervalli, quindi continuare a fare clic Successivo pulsante, su step3 della procedura guidata, effettuare le seguenti impostazioni in base alle proprie esigenze e vedere screenshot: doc combina fogli in un foglio 7

5. Dopo aver terminato le impostazioni, fare clic su Fine pulsante per combinare i fogli di lavoro e quindi è possibile aprire direttamente la cartella di lavoro combinata facendo clic su .
doc unisce le tabelle 10,
doc combina fogli in un foglio 9

6. E ti verrà chiesto se vuoi salvare questo scenario, se vuoi salvare questo scenario, clicca e inserisci il nome dello scenario, (vedi schermata successiva) e quando vuoi utilizzare questo scenario, devi solo fare clic Scenario pulsante per scegliere il nome dello scenario necessario sulla procedura guidata step2. Se non si desidera salvare questo scenario, fare clic non. guarda lo screenshot:
doc-merge-fogli di lavoro-in-one11

doc unisci fogli di lavoro in un foglio 9

E poi tutti i fogli di lavoro selezionati nelle cartelle di lavoro sono stati uniti in un nuovo foglio di lavoro di una cartella di lavoro. Le informazioni del foglio di lavoro sono state aggiunte prima dei dati. Vedi screenshot:
doc combina fogli in un foglio 10

Se si desidera unire più fogli di lavoro in una cartella di lavoro, è possibile applicare il controllo Combina più fogli di lavoro dalle cartelle di lavoro in un foglio di lavoro opzione Combina fogli di lavoro primo passo.
doc unisce le tabelle 1


Unisci due tabelle e aggiorna per colonna con Kutools per Excel

Se si desidera unire due tabelle da due fogli in una cartella di lavoro o in una cartella di lavoro diversa in una e aggiornare i dati in base a una colonna come mostrato di seguito, è possibile applicare Kutools for Excel'S Tabelle Unisci funzione per unire rapidamente tabelle e aggiornare i dati tra i fogli.
doc unisce le tabelle 2

Dopo l'installazione Kutools per Excel, si prega di fare come di seguito:(Scarica gratis Kutools per Excel ora!)

1. Seleziona la tabella come tabella principale che vuoi aggiornare per prima, table1, quindi fai clic su Kutools Plus > Tabelle Unisci.
doc unisce le tabelle 3

2. Nel Tabelle Unisci il primo passo 1 finestra di dialogo, selezionare la tabella di ricerca, tabella2. Se le tabelle hanno intestazioni, controlla le opzioni dell'intestazione.
doc unisce le tabelle 4

3. Clic Successivo, selezionare la colonna che si desidera aggiornare i dati in table1 in base a.
doc unisce le tabelle 5

4. in Tabelle Unisci passo 3, selezionare le colonne nella tabella principale (table1) che si desidera aggiornare i dati.
doc unisce le tabelle 6

5. Clic Successivo, selezionare la colonna che si desidera aggiungere alla tabella principale (table1) in base alla tabella di ricerca (table2).
doc unisce le tabelle 7

6. Nell'ultimo passaggio, puoi scegliere le opzioni per utilizzare il risultato di unione.
doc unisce le tabelle 8

7. Clic Fine, ora la tabella principale è stata aggiornata e aggiunta in base alla tabella di ricerca.


Navigazione a schede e modifica di più cartelle di lavoro Excel / documenti Word come Firefox, Chrome, Internet Esplora 10!

Potrebbe essere familiare visualizzare più pagine Web in Firefox / Chrome / IE e passare da una all'altra facendo clic sulle schede corrispondenti facilmente. Qui, Office Tab supporta l'elaborazione simile, che consente di sfogliare più cartelle di lavoro di Excel o documenti di Word in una finestra di Excel o in una finestra di Word e passare facilmente da una all'altra facendo clic sulle relative schede. Clicca per la prova gratuita di Office Tab!

ot Excel

freccia blu bolla destraArticoli relativi:

Come combinare più cartelle di lavoro in una cartella di lavoro in Excel?

Come combinare fogli di lavoro con lo stesso nome in un foglio di lavoro?

Come riassumere i dati da fogli di lavoro / cartelle di lavoro in un foglio di lavoro?



Strumenti di produttività consigliati

Office Tab

stella d'oro1 Porta pratiche schede ad Excel e ad altri software Office, proprio come Chrome, Firefox e il nuovo Internet Explorer.

Kutools for Excel

stella d'oro1 Stupefacente! Aumenta la tua produttività in 5 minuti. Non servono abilità speciali, risparmiate due ore al giorno!

stella d'oro1 300 Nuove funzionalità per Excel, rendono Excel molto semplice e potente:

  • Unisci cella / righe / colonne senza perdere dati.
  • Combina e consolida più fogli e cartelle di lavoro.
  • Confronta intervalli, copia intervalli multipli, conversione testo in data, unità e conversione valuta.
  • Contare in base a colori, totali parziali cercapersone, ordinamento avanzato e filtro super,
  • Altro Seleziona / Inserisci / Elimina / Testo / Formato / Link / Commento / Cartelle di lavoro / Fogli di lavoro Strumenti ...

Schermata di Kutools per Excel

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.
    elok · 12 hours ago
    i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
  • To post as a guest, your comment is unpublished.
    Andrew · 15 days ago
    Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
    • To post as a guest, your comment is unpublished.
      Sunny · 12 days ago
      Thanks for your support, Andrew, I am glad that the macro can help you.
  • To post as a guest, your comment is unpublished.
    Thangaraj R · 1 months ago
    hi I would like combine all the worksheets in single sheet where i need data of column A of all worksheets and I need the worksheet names in column B
    • To post as a guest, your comment is unpublished.
      Sunny · 12 days ago
      Sorry, Thangaraj R, I do not undertsand your problem clearly, could you upload a screenshot to describe your quetion with more detials?
  • To post as a guest, your comment is unpublished.
    Gio · 1 months ago
    Hi all,
    I need to combine only sheets with identical heading, ship other sheets.


    thanks
  • To post as a guest, your comment is unpublished.
    arul kumar · 6 months ago
    Hi all,

    I have used the below mentioned code, In my data some blank Rows is there for each tab. Data is not coping after the blank rows. How to combine the all data after the blank rows. Please advise.

    Sub Combine()
    Dim J As Integer
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    Sheets(2).Activate
    Range("A16").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
    For J = 2 To Sheets.Count
    Sheets(J).Activate
    Range("A17").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

    Thanks
    Arul
    • To post as a guest, your comment is unpublished.
      Sunny · 5 months ago
      You can try below code, it will merge all data and skip blank rows.

      Sub CombineForm()
      Dim xI, xMax As Integer
      Dim xCWS, xWS As Worksheet
      Dim xObjRRange, xObjCRange, xObjSR As Range
      On Error Resume Next
      Sheets(1).Select
      Set xCWS = Worksheets.Add
      xCWS.Name = "Combined"
      Sheets(2).Activate
      Range("A1").EntireRow.Select
      Selection.Copy Destination:=xCWS.Range("A1")
      For xI = 2 To Sheets.Count
      Set xWS = Sheets(xI)
      xWS.Activate
      Set xObjRRange = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
      Set xObjCRange = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
      Set xObjSR = Range(Cells(1, 1), Cells(xObjRRange.Row, xObjCRange.Column))
      xObjSR.Select
      Selection.Copy Destination:=xCWS.Range("A65536").End(xlUp)(2)
      Next
      xMax = xCWS.Range("a65536").End(3).Row
      xCWS.Range("a1:a" & xMax).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
      End Sub
      • To post as a guest, your comment is unpublished.
        arul kumar · 4 months ago
        Thank you, Sunny! This coding is working fine..

        But i want to combine all the sheets from row no: 16. Could you help us to update the coding.

        Thanks
        Arul
        • To post as a guest, your comment is unpublished.
          Sunny · 4 months ago
          The below code will combine sheets from the second row, you can change the number 2 (xStart = 2) to other number for you need.

          Sub CombineForm()
          Dim xStart, xFNum, xIntCFMax, xIntRRg, xIntCRg As Integer
          Dim xCFWS, xWS As Worksheet
          Dim xObjSR As Range
          Dim xStrName As String
          On Error Resume Next
          Application.ScreenUpdating = False
          xStart = 2
          xStrName = "CombinedForm"
          Set xWS = Sheets(xStrName)
          If xWS Is Nothing Then
          xWS.Delete
          End If
          Set xCFWS = Worksheets.Add
          xCFWS.Name = xStrName

          For xFNum = 1 To Sheets.Count
          Set xWS = Sheets(xFNum)
          If xWS.Name <> xStrName Then
          xWS.Activate
          xIntRRg = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
          xIntCRg = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
          If xStart <= xIntRRg Then
          Set xObjSR = Range(Cells(xStart, 1), Cells(xIntRRg, xIntCRg))
          xObjSR.Select
          Selection.Copy Destination:=xCFWS.Range("A65536").End(xlUp)(2)
          End If
          End If
          Next
          Application.ScreenUpdating = True
          End Sub
      • To post as a guest, your comment is unpublished.
        arul · 4 months ago
        Thank you, Sunny!

        I want to combine the sheet from row no:16. Could you help me to update the coding.

        Thanks
        Arul