Kombiner let flere regneark / projektmapper i et enkelt regneark / projektmappe

Med den følgende VBA-kode kan du nemt oprette en liste fra de angivne celler på tværs af flere regneark. Du kan gøre som følger:

Trin 1: Vælg den angivne celle, som du vil oprette din liste fra. I vores tilfælde vælger vi Cell E6.

Trin 2: Tryk på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic for Applications-vinduet, skal du klikke på indsatte > Moduler, og indsæt derefter følgende kode i modulvinduet.

VBA: Opret en liste fra de samme celler på tværs af flere ark

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Trin 3: Tryk på F5 eller klik på Kør knap for at køre denne VBA.

Derefter kopieres alle værdier fra den angivne celle på alle regneark til et nyt regneark ved navn KutoolsforExcel. Se skærmbillede ：

Denne VBA udfylder listen i et nyt regneark, og værdierne på listen er statiske, som ikke ændres med de originale værdier.

Men nogle gange vil du måske udfylde listen i et specificeret interval og kræve, at listeværdierne altid skal stemme overens med de oprindelige værdier i specificerede celler hele tiden. For at imødekomme disse behov skal du prøve følgende metode.

Denne metode vil introducere Kutools til Excel's Henvis dynamisk til regneark værktøj til at oprette en dynamisk liste fra samme celler på tværs af flere regneark.

Trin 1: Vælg det område, hvor du udfylder den dynamiske liste, og klik på Kutools > Mere > Henvis dynamisk til regneark.

Trin 2: I åbningsdialogboksen Fyld regnearkhenvisninger,

(1) Klik på Udfyld ordre og vælg en udfyldningstype fra rullelisten. I vores tilfælde vælger vi Fyld lodret celle efter celle;

(2) I Fyld formel i feltet, angiv den celleadresse, som du vil oprette en dynamisk liste fra, og klik derefter på Lås .  for at låse formlen.

(3) Klik på Udfyld rækkevidde .

Nu vil du se værdier i de angivne celler på tværs af alle regneark er udfyldt i det angivne interval som vist på nedenstående skærmbillede:

Når de oprindelige værdier ændres, ændres de tilsvarende værdier på denne angivne liste automatisk.

Hvordan udfyldes den samme celle automatisk fra forskellige ark til et ark i Excel?