Come unire più cartelle di lavoro in un’unica cartella di lavoro principale in Excel?
Vi è mai capitato di rimanere bloccati quando dovete combinare più cartelle di lavoro in una cartella di lavoro principale in Excel? La cosa peggiore è che le cartelle di lavoro da combinare contengono diversi fogli di lavoro. E come combinare soltanto determinati fogli di lavoro di più cartelle di lavoro in un’unica cartella di lavoro? Questa guida illustra diversi metodi utili per risolvere il problema passo dopo passo.
- Metodo A:Combina più cartelle di lavoro in una singola cartella di lavoro con la funzione Sposta o Copia
- Metodo B:Combina più cartelle di lavoro o fogli specificati di cartelle di lavoro in una cartella di lavoro principale con VBA
- Metodo C:Combina facilmente più cartelle di lavoro o fogli specificati di cartelle di lavoro in un’unica cartella di lavoro
Combina più cartelle di lavoro in un’unica cartella di lavoro con la funzione Sposta o Copia
Se devi combinare solo un paio di cartelle di lavoro, puoi usare il comando **Sposta o Copia** per trasferire manualmente le schede dalla cartella di lavoro originale a quella principale.
1. Apri le cartelle di lavoro che desideri unire in una cartella principale.
2. Seleziona i fogli di lavoro nella cartella di lavoro originale che desideri spostare o copiare nella cartella di lavoro principale.
Note:
1). È possibile selezionare più fogli di lavoro non adiacenti tenendo premuto il tasto Ctrl e facendo clic sulle schede dei fogli uno alla volta.
2). Per selezionare più fogli di lavoro adiacenti, fai clic sulla prima scheda del foglio, tieni premuto il tasto Maiusc e poi fai clic sull’ultima scheda del foglio per selezionarli tutti.
3). È possibile fare clic con il pulsante destro su qualsiasi scheda del foglio e scegliere Seleziona tutti i fogli dal menu contestuale per selezionare contemporaneamente tutti i fogli di lavoro della cartella di lavoro.
3. Dopo aver selezionato i fogli necessari, fare clic con il pulsante destro sulla scheda del foglio e scegliere Sposta o Copia dal menu contestuale. Vedere lo screenshot:
4. Si aprirà quindi la finestra di dialogo Sposta o Copia. Nell’elenco a discesa Nella cartella, seleziona la cartella di lavoro principale in cui desideri spostare o copiare i fogli di lavoro. Seleziona l’opzione Prima del foglio, spunta la casella Crea una copia e infine fai clic sul pulsante OK.
A questo punto, i fogli di lavoro delle due cartelle verranno visualizzati combinati in un’unica cartella. Ripeti i passaggi precedenti per spostare i fogli di lavoro da altre cartelle nella cartella di lavoro principale.
Combina più cartelle di lavoro o fogli specificati di cartelle di lavoro in una cartella di lavoro principale con VBA
Quando si devono unire numerose cartelle di lavoro in un’unica cartella, è possibile utilizzare i seguenti codici VBA per ottenere rapidamente il risultato desiderato. Procedere come segue.
1. Posiziona tutte le cartelle di lavoro che desideri combinare in un’unica cartella all’interno della stessa directory.
2. Avvia un file Excel (questa cartella di lavoro diventerà la cartella principale).
3. Premere i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications. Nella finestra di Microsoft Visual Basic, Applications, fare clic su Inserisci > Modulo, quindi copiare il seguente codice VBA nella finestra del modulo.
Codice VBA 1: Unisci più Cartella di lavoro Excel in uno
Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
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 SubNote:
1. Il codice VBA riportato in alto manterrà i nomi originali dei fogli delle cartelle di lavoro anche dopo l’unione.
2. Per distinguere da quale cartella di lavoro provengano i fogli nella cartella principale dopo l’unione, applica il seguente codice VBA 2.
3. Se si desidera semplicemente unire i fogli di lavoro selezionati da diverse cartelle di lavoro in un’unica cartella principale, il seguente codice VBA 3 potrà esservi utile.
Nei codici VBA, “C:\Users\DT168\Desktop\KTE\” rappresenta il percorso del file. Nel codice VBA 3, "Foglio1,Foglio3" indica i fogli di lavoro specificati delle cartelle di lavoro da combinare in una cartella di lavoro principale. Puoi personalizzarli in base alle tue esigenze.
Codice VBA 2: Unisci Workbook in uno (ogni foglio di lavoro verrà denominato con il prefisso del nome del file originale):
Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
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
Codice VBA 3: Unisci i fogli di lavoro specificati delle cartelle di lavoro in una cartella di lavoro principale:
Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
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 Sub4. Premere il tasto F5 per eseguire il codice. Tutti i fogli di lavoro o i fogli specificati delle cartelle di lavoro presenti nella cartella indicata verranno immediatamente combinati in un’unica cartella di lavoro principale.
Combina facilmente più cartelle di lavoro o fogli specificati di cartelle di lavoro in un’unica cartella di lavoro
Fortunatamente, la funzione Combina cartelle di lavoro di Kutools per Excel rende estremamente semplice unire più cartelle di lavoro in un unico file. Scopriamo insieme come sfruttare questa potente funzionalità per combinare più cartelle di lavoro in modo rapido ed efficiente.
Prima di applicare Kutools per Excel, la preghiamo di scaricarlo e installarlo innanzitutto.
1. Crea una nuova cartella di lavoro e fai clic su KUTOOLS PLUS > Combina. Si aprirà quindi una finestra di dialogo che ti ricorda che tutte le cartelle di lavoro da combinare devono essere salvate e che la funzione non può essere applicata a cartelle protette; fai clic sul pulsante OK.
2. Nella procedura guidata Unisci fogli di lavoro, seleziona l’opzione Copia fogli di lavoro da più cartelle di lavoro in una sola cartella di lavoro e fai clic sul pulsante Avanti. Vedere lo screenshot:
3. Nella finestra di dialogo Unisci fogli di lavoro - Passaggio 2 di 3, fai clic su Aggiungi > File o Cartella per aggiungere i file di Excel che desideri unire in un unico documento. Dopo aver aggiunto i file di Excel, fai clic sul pulsante Fine e scegli una cartella in cui salvare la cartella di lavoro principale. Vedere lo screenshot:
Ora tutte le cartelle di lavoro sono state unite in un unico file.
Rispetto ai due metodi precedenti,Kutools per Excelpresenta i seguenti vantaggi:
- 1) Tutte le cartelle di lavoro e i fogli di lavoro sono elencati nella finestra di dialogo;
- 2) Per escludere dall’unione i fogli di lavoro desiderati, deselezionarli semplicemente;
- 3) I Foglio di lavoro vuoto vengono esclusi automaticamente;
- 4) Il nome del file originale verrà aggiunto come prefisso al nome del foglio dopo l’unione;
- Per scoprire ulteriori funzionalità di questa caratteristica, visita qui.
Se desidera provare gratuitamente (30 giorni) questa utility, faccia clic qui per scaricarla, quindi segua la procedura illustrata nei passaggi sopra.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi