Hvordan oprettes en liste fra samme celler på tværs af flere ark i Excel?
Antag, at vi implementerer hver månedlige salgstabel i et separat regneark som vist på nedenstående skærmbillede, og alle salgstabeller har samme layout. Nu ønsker vi at oprette en liste fra alle sumværdier (Cell E6) på tværs af flere regneark. Hvordan får jeg det gjort? Og hvad nu hvis du opretter en dynamisk liste ud fra sumværdierne for hvert regneark? Der er to måder for dig:
Opret en liste fra samme celler på tværs af flere ark med VBA
Opret en dynamisk liste fra samme celler på tværs af flere ark med Kutools til Excel
Kombiner let flere regneark / projektmapper i et enkelt regneark / projektmappe
Det kan være kedeligt at kombinere snesevis af ark fra forskellige projektmapper til et ark. Men med Kutools til Excel Kombiner (regneark og projektmapper) værktøj, kan du få det gjort med blot flere klik!
Opret en liste fra samme celler på tværs af flere ark med VBA
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.
Opret en dynamisk liste fra samme celler på tværs af flere ark med Kutools til Excel
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.
Kutools til Excel - Pakket med over 300 vigtige værktøjer til Excel. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Download nu!
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.
Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu
Demo
Relaterede artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!