Preskoči na glavno vsebino

Kako ustvariti seznam iz istih celic na več listih v Excelu?

Recimo, da vsako mesečno prodajno tabelo postavimo v ločen delovni list, kot je prikazano na spodnji sliki zaslona, ​​in imajo vse prodajne tabele enako postavitev. Zdaj želimo na več delovnih listih ustvariti seznam iz vseh vrednosti vsote (celica E6). Kako to narediti? In kaj, če iz vrednosti vsote vsakega delovnega lista ustvarite dinamični seznam? Za vas obstajata dva načina:

doc ustvari seznam več listov 1

Ustvarite seznam iz istih celic na več listih z VBA

Ustvarite dinamični seznam iz istih celic na več listih s programom Kutools za Excel

Preprosto združite več delovnih listov / delovnih zvezkov v en sam delovni list / delovni zvezek

Morda je dolgočasno kombinirati na desetine listov iz različnih delovnih zvezkov v en list. Toda s Kutools za Excel Združite (delovni listi in delovni zvezki) pripomoček, lahko to storite z nekaj kliki!

oglasna kombinacija listov knjige 1


Z naslednjo kodo VBA lahko na določenih celicah enostavno ustvarite seznam na več delovnih listih. Naredite lahko naslednje:

1. korak: Izberite določeno celico, iz katere boste ustvarili seznam. V našem primeru izberemo celico E6.

Korak 2: Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Applications, kliknite Vstavi > Moduliin nato v okno modula prilepite naslednjo kodo.

VBA: ustvarite seznam iz istih celic na več listih

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

Korak 3: Pritisnite F5 ali kliknite Run za zagon tega VBA.

Nato se vse vrednosti iz določene celice na vseh delovnih listih kopirajo v nov delovni list z imenom KutoolsforExcel. Glej posnetek zaslona:

doc ustvari seznam več listov 2

Ta VBA bo seznam zapolnil v nov delovni list, vrednosti na seznamu pa so statične, kar se ne bo spremenilo z izvirnimi vrednostmi.

Včasih pa boste morda želeli seznam zapolniti v določen obseg in zahtevati, da so vrednosti seznama vedno v skladu z izvirnimi vrednostmi v določenih celicah. Če želite zadovoljiti te potrebe, poskusite z naslednjo metodo.


Ta metoda bo predstavila Kutools za ExcelJe Dinamično glej delovne liste pripomoček za ustvarjanje dinamičnega seznama iz istih celic na več delovnih listih.

Kutools za Excel - Vsebuje več kot 300 osnovnih orodij za Excel. Uživajte v 30-dnevnem BREZPLAČNEM preizkusu s polnimi funkcijami brez kreditne kartice! Prenesi zdaj!

1. korak: Izberite obseg, kjer boste zapolnili dinamični seznam, in kliknite Kutools > Več > Dinamično glej delovne liste.

doc se dinamično nanaša na liste 1

2. korak: V pogovornem oknu Odpiranje referenc za izpolnjevanje delovnih listov

doc ustvari seznam več listov 5

(1) Kliknite Izpolnite naročilo in na spustnem seznamu izberite vrsto polnjenja. V našem primeru izberemo Napolnite navpično celico za celico;

(2) V Izpolnite formulo vnesite naslov celice, iz katere boste ustvarili dinamični seznam, in nato kliknite Zaklepanje Gumb  za zaklepanje formule.

(3) Kliknite Polni obseg gumb.

Zdaj boste videli, da so vrednosti v določenih celicah na vseh delovnih listih zapolnjene v določenem obsegu, kot je prikazano spodaj:

Ko se spremenijo prvotne vrednosti, se ustrezne vrednosti na tem seznamu samodejno spremenijo.

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now


Kutools za Excel: Več kot 300 priročnih orodij na dosegu roke! Začnite 30-dnevno brezplačno preskusno obdobje brez omejitev funkcij še danes. Download Now!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
This comment was minimized by the moderator on the site
Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input... One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations