Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

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

Predpostavimo, da vsako mesečno prodajno tabelo v ločenem delovnem listu razporedimo kot prikazano spodaj, in vse prodajne tabele imajo enako postavitev. Zdaj želimo ustvariti seznam vseh vrednosti vsote (Cell E6) na več delovnih mestih. Kako narediti to? In kaj, če ustvarite dinamični seznam od vsotnih vrednosti vsakega delovnega lista? Za vas imate dva načina:

doc ustvarite seznam več listov 1

Ustvarite seznam iz istih celic v več listih z VBA

Ustvarite dinamični seznam iz istih celic v več listih s programom Kutools for Excel

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

Morda je dolgočasno združiti več deset listov iz različnih delovnih zvezkov v en list. Ampak s Kutools za Excel Kombinacija (delovni listi in delovne knjige) uporabnost, lahko to storite s samo nekaj kliki! Popolna brezplačna preizkusna različica 60-dan!

oglas združuje liste knjig 1


Z naslednjo kodo VBA lahko preprosto ustvarite seznam iz določenih celic na več delovnih mestih. To lahko storite na naslednji način:

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

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

VBA: ustvarite seznam iz istih celic v 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 na Run gumb za zagon te VBA.

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

doc ustvarite seznam več listov 2

Ta VBA bo popoln seznam v novem delovnem listu, vrednosti na seznamu pa so statične, ki se ne bodo spremenile z izvirnimi vrednostmi.

Včasih pa boste morda želeli zapolniti seznam v določenem obsegu in zahtevati, da so vrednosti seznama vedno v skladu s prvotnimi vrednostmi v določenih celicah. Da bi zadovoljili te potrebe, poskusite z naslednjo metodo.


Ta metoda bo uvedla Kutools za ExcelJe Dinamično glej delovni list pripomoček za ustvarjanje dinamičnega seznama iz istih celic na več delovnih mestih.

Kutools za Excel - Združuje več kot 300 napredne funkcije in orodja za Microsoft Excel

Korak 1: izberite območje, kjer boste zapolnili dinamični seznam, in kliknite na Kutools > več > Dinamično glej delovni list.

doc se dinamično nanaša na liste 1

Korak 2: v pogovornem oknu Fill Worksheets Reference,

doc ustvarite seznam več listov 5

(1) Kliknite na Naročite polje in iz spustnega seznama izberite vrsto polnjenja. V našem primeru izberemo Polnjenje navpično celice po celici;

(2) V Izpolnite formulo polje, določite naslov celice, s katerega boste ustvarili dinamični seznam, in kliknite Zaklepanje Gumb za zaklepanje formule.

(3) Kliknite na Izpolnite območje gumb.

Zdaj boste videli vrednosti v navedenih celicah med vsemi delovnimi listi, ki so zapolnjene v določenem obsegu, kot je spodaj prikazan zaslon:

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

Kutools za Excel - Vključuje več kot priročna orodja Excel za 300. Celotna brezplačna preizkusna različica 60-dan, brez kreditne kartice! Get it now!


V tem videoposnetku Kutools in zavihek Kutools Plus zavihek doda Kutools za Excel. Če je potrebno, kliknite tukaj da brezplačno brezplačno preizkusite 60-dan!




Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alan Mayo · 10 months ago
    Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
  • To post as a guest, your comment is unpublished.
    Jeff · 2 years ago
    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