Skip i'r prif gynnwys

Sut i greu rhestr o'r un celloedd ar draws sawl dalen yn Excel?

Gan dybio ein bod yn defnyddio pob bwrdd gwerthu misol mewn taflen waith ar wahân fel y dangosir isod y sgrin, ac mae gan bob tabl gwerthu yr un cynllun. Nawr rydyn ni am greu rhestr o'r holl werthoedd swm (Cell E6) ar draws sawl taflen waith. Sut i wneud hynny? A beth os creu rhestr ddeinamig o werthoedd swm pob taflen waith? Mae dwy ffordd i chi:

doc creu rhestr o daflenni lluosog 1

Creu rhestr o'r un celloedd ar draws sawl dalen gyda VBA

Creu rhestr ddeinamig o'r un celloedd ar draws taflenni lluosog gyda Kutools ar gyfer Excel

Cyfuno nifer o daflenni gwaith / llyfrau gwaith yn hawdd mewn taflen waith / llyfr gwaith sengl

Gall fod yn ddiflas cyfuno dwsinau o daflenni o wahanol lyfrau gwaith yn un ddalen. Ond gyda Kutools ar gyfer Excel's Cyfuno (taflenni gwaith a llyfrau gwaith) cyfleustodau, gallwch chi wneud hynny gyda dim ond sawl clic!

ad cyfuno taflenni llyfrau 1


Gyda'r cod VBA canlynol, gallwch greu rhestr o'r celloedd penodedig ar draws sawl taflen waith yn hawdd. Gallwch wneud fel a ganlyn:

Cam 1: Dewiswch y gell benodol y byddwch chi'n creu eich rhestr ohoni. Yn ein hachos ni, rydyn ni'n dewis y Cell E6.

Cam 2: Gwasgwch Alt + F11 allweddi ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications, cliciwch Mewnosod > Modiwlau, ac yna gludwch y cod canlynol i mewn i ffenestr y modiwl.

VBA: Creu rhestr o'r un celloedd ar draws sawl dalen

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

Cam 3: Gwasgwch F5 allwedd neu cliciwch y Run botwm i redeg y VBA hwn.

Yna copïir yr holl werthoedd o'r gell benodol ar bob taflen waith i daflen waith newydd o'r enw KutoolsforExcel. Gweler y sgrinlun :

doc creu rhestr o daflenni lluosog 2

Bydd y VBA hwn yn llenwi'r rhestr i mewn i daflen waith newydd, ac mae'r gwerthoedd yn y rhestr yn statig na fydd yn newid gyda'r gwerthoedd gwreiddiol.

Fodd bynnag, weithiau efallai y byddwch am lenwi'r rhestr i ystod benodol, a mynnu bod gwerthoedd y rhestr bob amser yn ohebiaeth â'r gwerthoedd gwreiddiol mewn celloedd penodol trwy'r amser. Er mwyn diwallu'r anghenion hyn, dylech roi cynnig ar y dull canlynol.


Bydd y dull hwn yn cyflwyno Kutools ar gyfer Excel'S Cyfeiriwch yn Dynamically at Daflenni Gwaith cyfleustodau i greu rhestr ddeinamig o'r un celloedd ar draws sawl taflen waith.

Kutools ar gyfer Excel - Yn llawn dros 300 o offer hanfodol ar gyfer Excel. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Lawrlwytho nawr!

Cam 1: Dewiswch yr Ystod lle byddwch chi'n llenwi'r rhestr ddeinamig, a chliciwch ar y Kutools > Mwy > Cyfeiriwch yn Dynamically at Daflenni Gwaith.

mae doc yn cyfeirio'n ddeinamig at daflenni 1

Cam 2: Yn y blwch deialog Cyfeirio Taflenni Gwaith agoriadol,

doc creu rhestr o daflenni lluosog 5

(1) Cliciwch y Gorchymyn Llenwi blwch, a dewis math o lenwi o'r gwymplen. Yn ein hachos ni, rydyn ni'n dewis Llenwch gell yn fertigol ar ôl y gell;

(2) Yn y Llenwch fformiwla blwch, nodwch y cyfeiriad cell y byddwch chi'n creu rhestr ddeinamig ohono, ac yna cliciwch ar y Cloi botwm  i gloi'r fformiwla.

(3) Cliciwch y Llenwch Ystod botwm.

Nawr fe welwch werthoedd yn y celloedd penodedig ar draws yr holl daflenni gwaith yn cael eu llenwi i'r ystod benodol fel y dangosir isod y sgrinlun:

Pan newidiodd y gwerthoedd gwreiddiol, bydd y gwerthoedd cyfatebol yn y rhestr benodol hon yn cael eu newid yn awtomatig.

Kutools ar gyfer Excel - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Get It Now


Kutools ar gyfer Excel: Dros 300 o offer defnyddiol ar flaenau eich bysedd! Dechreuwch eich treial am ddim 30 diwrnod heb unrhyw gyfyngiadau nodwedd heddiw. Lawrlwytho Nawr!

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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