Excel - Voeg meerdere werkbladen samen tot één werkblad

Kwestie

Ik gebruik Excel om informatie over verschillende producten op te slaan en een ander werkblad voor elk bereik te hebben. Hoe kunnen al deze werkbladen worden samengevoegd (opeenvolgend gecombineerd) tot één pagina? Alle werkbladen hetzelfde aantal kolommen, met dezelfde titel (in de bovenste rij).

Hoe verder te gaan?

Oplossing

In de veronderstelling dat:

1. Een blad met de titel Geconsolideerd kan per macro worden gemaakt en verwijderd

2. Kopteksten staan ​​op rij 1 op alle bladen en zijn voor iedereen hetzelfde

3. Alle bladen moeten worden gekopieerd

 Subcombinatiesheets () Dimmen lConRow als lang dimvel als variant Dim sConsolidatedSheet As String Dim lSheetRow als lang dim sLastCol as string sConsolidatedSheet = "Geconsolideerd" Aan Fout doorgaan Volgende sheets (sConsolidatedSheet) .Wissen bij fout GoTo 0-bladen.Voeg ActiveSheet.Name toe = sConsolidatedSheet voor elk blad in bladen If sheet.Name = sConsolidatedSheet Then GoTo Next_Sheet If sLastCol = "" Then sLastCol = Sheet.Cells (1, Columns.Count) .End (xlToLeft) .Address Sheets (sConsolidatedSheet) .Range ("1: 1 ") = Sheet.Range (" 1: 1 "). Waarde lConRow = 1 End If lSheetRow = 0 On Error Resume Next lSheetRow = Sheet.Cells.Find (" * ", Cells (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlPrevious) .Row On Error GoTo 0 If (lSheetRow> 1) Then Sheets (sConsolidatedSheet) .Range (lConRow + 1 & ":" & lSheetRow + lConRow - 1) = Sheet.Range ("2:" & lSheetRow). Waarde lConRow = Sheets (sConsolidatedSheet) .Cells.Find ("*", Cells (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlPrevious). Row end If Next_Sheet: Next End Sub 

Dank aan rizvisa1 voor deze tip.