Se ottieni cartelle di lavoro con dati strutturati in modo identico su ogni foglio di lavoro, potresti essere interessato a un modo per combinare più fogli di lavoro in un unico foglio di lavoro di grandi dimensioni.

Il concetto alla base della condensazione è piuttosto semplice: è sufficiente copiare i dati dal secondo foglio di lavoro e da quelli successivi alla prima riga vuota del primo foglio di lavoro. Excel non include uno strumento che ti consente di farlo automaticamente, ma è un ottimo candidato per una macro. Ricorda, tuttavia, che la struttura di ogni foglio di lavoro che stai condensando dovrebbe essere identica.

La seguente macro passa attraverso tutti i fogli di lavoro e combina i dati in un nuovo foglio di lavoro che aggiunge all’inizio della cartella di lavoro.

Sub Combine()

Dim J As Integer     Dim s As Worksheet

On Error Resume Next     Sheets(1).Select     Worksheets.Add ' add a sheet in first place     Sheets(1).Name = "Combined"



' copy headings     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")



For Each s In ActiveWorkbook.Sheets         If s.Name <> "Combined" Then             Application.GoTo Sheets(s.Name).[a1]

Selection.CurrentRegion.Select             ' Don't copy the headings             Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select             Selection.Copy Destination:=Sheets("Combined"). _               Cells(Rows.Count, 1).End(xlUp)(2)

End If     Next End Sub

Al termine della macro, il primo foglio nella cartella di lavoro, denominato Combinato, contiene tutti i dati degli altri fogli di lavoro. Gli altri fogli di lavoro rimangono invariati.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (8884) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui:

Condensazione di più fogli di lavoro in uno.