Kombinera enkelt flera kalkylblad / arbetsböcker i ett kalkylblad / arbetsbok

Med följande VBA-kod kan du enkelt skapa en lista från de angivna cellerna över flera kalkylblad. Du kan göra på följande sätt:

Steg 1: Välj den angivna cellen som du kommer att skapa din lista från. I vårt fall väljer vi Cell E6.

Steg 2: Tryck andra + F11 för att öppna fönstret Microsoft Visual Basic för applikationer, klicka på Insert > Modulernaoch klistra sedan in följande kod i modulfönstret.

VBA: Skapa en lista från samma celler över flera 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

Steg 3: Tryck F5 eller klicka på Körning för att köra denna VBA.

Sedan kopieras alla värden från den angivna cellen på alla kalkylblad till ett nytt kalkylblad med namnet KutoolsforExcel. Se skärmdump ：

Denna VBA kommer att fylla listan i ett nytt kalkylblad, och värdena i listan är statiska som inte ändras med de ursprungliga värdena.

Ibland kanske du vill fylla i listan till ett specificerat intervall och kräva att listvärdena alltid överensstämmer med de ursprungliga värdena i angivna celler. För att möta dessa behov bör du prova följande metod.

Denna metod kommer att introducera Kutools för ExcelÄr Se kalkylblad dynamiskt verktyg för att skapa en dynamisk lista från samma celler över flera kalkylblad.

Steg 1: Välj det område där du ska fylla den dynamiska listan och klicka på Kutools > Snarare > Se kalkylblad dynamiskt.

Steg 2: I den öppna dialogrutan Fyll kalkylbladets referenser,

(1) Klicka på Fyll i ordern och välj en fyllningstyp i listrutan. I vårt fall väljer vi Fyll vertikalt cell efter cell;

(2) I Fyll formel rutan, ange celladressen som du ska skapa en dynamisk lista från och klicka sedan på Lås Knappen  för att låsa formeln.

(3) Klicka på Fyll i intervall knapp.

Nu ser du värden i de angivna cellerna i alla kalkylblad är fyllda i det angivna intervallet som visas nedan på skärmbilden:

När de ursprungliga värdena ändras kommer motsvarande värden i den angivna listan att ändras automatiskt.

Hur fyller jag samma cell automatiskt från olika ark till ett ark i Excel?