Excel - Føj flere regneark til en enkelt

Problem

Jeg bruger Excel til at gemme oplysninger om flere produkter og have et andet regneark for hvert interval. Hvordan sammenfletes (sammenhængende) alle disse regneark til en enkelt side? Alle regneark samme antal kolonner, med samme titel (i øverste række).

Hvordan fortsætter man?

Opløsning

Forudsat at:

1. Et ark med overskriften Consolidated kan oprettes og slettes med makro

2. Headers er på række 1 på alle ark og er fælles for alle

3. Alle ark skal kopieres

 Sub CombineSheets () Dim lConRow Så Lang Dim Sheet Som Variant Dim sConsolidatedSheet Som String Dim lSheetRow Så Lang Dim sLastCol As String sConsolidatedSheet = "Konsolideret" Ved Fejl Genoptag Næste Ark (sConsolidatedSheet) .Delete On Error GoTo 0 Sheets.Add ActiveSheet.Name = sConsolidatedSheet for hvert ark i ark Hvis Sheet.Name = sConsolidatedSheet Så Fortsæt Next_Sheet Hvis sLastCol = "" Så sLastCol = Sheet.Cells (1, Columns.Count) .End (xlToLeft) .Address Sheets (sConsolidatedSheet) .Range ("1: 1 ") = Sheet.Range (" 1: 1 "). Værdi lConRow = 1 Afslut Hvis lSheetRow = 0 På Fejl Genoptag Næste lSheetRow = Sheet.Cells.Find (" * ", Celler (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlForrige) .Row On Error GoTo 0 Hvis (lSheetRow> 1) Then Sheets (sConsolidatedSheet) .Range (lConRow + 1 & ":" & lSheetRow + lConRow - 1) = Sheet.Range ("2:" & lSheetRow) .Value lConRow = Ark (sConsolidatedSheet) .Cells.Find ("*", celler (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlForrige) .Row End Hvis Next_Sheet: Next End Sub 

Takket være rizvisa1 for dette tip.