Note: The other languages of the website are Google-translated. Back to English

Sut i ddidoli data ar sawl taflen waith ar unwaith?

Yn Excel, gallwn ddidoli data mewn taflen waith yn seiliedig ar golofn benodol yn gyflym ac yn hawdd, ond, a ydych erioed wedi ceisio didoli'r data ar draws sawl taflen waith? Bydd eu didoli fesul un yn cymryd llawer o amser, yr erthygl hon, byddaf yn cyflwyno ffordd hawdd i'w datrys.

Trefnu data ar sawl taflen waith ar unwaith gyda chod VBA


swigen dde glas saeth Trefnu data ar sawl taflen waith ar unwaith gyda chod VBA

I ddidoli data yn seiliedig ar un golofn ym mhob dalen o'ch llyfr gwaith, gall y cod VBA canlynol eich helpu.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Trefnu data ar sawl taflen waith ar unwaith:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r holl daflenni sydd â'r un fformatio wedi'u didoli yn seiliedig ar golofn E o bob dalen mewn trefn ddisgynnol ar unwaith.

Nodyn: Yn y cod uchod, A: F yw'r ystod ddata rydych chi am ei didoli, E yw'r llythyr colofn rydych chi am ei ddidoli yn seiliedig.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (11)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim yn gweithio...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i wneud i hyn weithio ar gyfer colofnau lluosog. Rwy'n ceisio didoli rhai yn ôl y golofn K a rhai yn ôl y golofn M ac rwy'n gwybod union niferoedd y dalennau. Mae fy ngholofn M (pan fyddaf yn defnyddio'r cod uchod) yn cael ei didoli gan y K yn unig, nid gan M, felly nid yw'n gweithio. 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gweithio fel swyn i mi...diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gweithio'n dda ond sut gallaf osgoi cynnwys y penawdau (hy rhes 1?)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Lucy,
I ddidoli pob tudalen ac eithrio'r rhes pennawd, cymhwyswch y cod vba isod:(Sylwer: newidiwch y cyfeiriadau cell i'ch angen)

Is-DdosbarthuAllsheets()
'Updateby Extendoffice
Dim WS Fel Taflen Waith
Dim xIntR Fel Cyfanrif
ActiveSheet.Range("A1:F1").Dewiswch
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Ar gyfer Pob WS Mewn Taflenni Gwaith
xIntR = Croestoriad(WS.UsedRange, WS.Range("A:F")).Rows.Count
WS.Range("A2:F" & xIntR).Sort Key1:=WS.Range("A2:A" & xIntR), Order1:=xlDescending
WS nesaf
Application.ScreenUpdating = Gwir
Is-End

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn y gobaith y gwelwch hwn...! Mae hyn yn gweithio'n wych - ond mae'n cynnwys celloedd gyda fformiwla ond dim data, gan greu bylchau yn y tabiau a gwneud llanast o'r data ar y rhesi. Mae angen i mi gadw'r celloedd hynny yn fy nhabiau wrth iddynt chwilio am enwau wedi'u hychwanegu at y 'master tab'. Rwyf am iddo ddidoli celloedd ag enw gwirioneddol yn unig - ateb cyflym???
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod defnyddiol iawn Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei mae hyn yn wych diolch yn fawr iawn am hyn! Fy unig broblem gyda'r cod hwn yw nad yw'n gweithredu ar fy nhaflen gyntaf. Mae'n gweithredu ar fy nhaflenni sy'n weddill. SUT byddwn i'n cael hwn i weithredu ar bob un o'r dalennau? Mae fel pe bai'r cod yn neidio dros y ddalen gyntaf. Byddai unrhyw help yn cael ei werthfawrogi'n fawr :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am rannu'r data mewn llyfrau gwaith lluosog ac yna ychwanegu'r gwerth yn un o'r golofn.

Rwyf wedi paratoi'r cod i rannu'r data mewn llyfrau gwaith... ond angen cymorth i adio'r cyfanswm yn un o'r golofn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Allwch chi redeg hwn heb gynnwys pob tudalen? Hy gadael rhai dalennau allan o'r macro?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid oedd hyn i'w weld yn gweithio i mi. Mae gen i lyfr gwaith gyda 12 tudalen wedi'u harchebu fesul misoedd o'r flwyddyn pob dalen yn cynnwys data cyfatebol am gynnyrch y cwmni ac ati. Fy nod yw didoli a hidlo'r holl daflenni yn y llyfr gwaith. Hoffwn gael un ddalen a fyddai'n gweithredu fel y daflen rhiant (e.e. mis cyntaf y flwyddyn), y byddwn yn cyflawni swyddogaeth hidlo neu ddidoli arni (ee didoli A -> Z) a chael y dalennau eraill yn awtomatig i ddilyn yr un peth didoli neu hidlo. Er enghraifft, wrth ddefnyddio'r ddalen â'r label "Ionawr" os er enghraifft rwy'n dewis colofn "D" sy'n cynnwys y dyddiau yn y mis yr wyf am eu cael yn nhrefn "esgyn" - wrth wireddu'r didoli A -> Z ar y ddalen "Ionawr" , Rwyf am i hyn effeithio ar weddill yr holl daflenni yn y dilyniant (Chwefror-Rhagfyr) gyda holl ddyddiau'r mis wedi'u didoli A -> Z. Dylai unrhyw newid a wneir ar y daflen "Ionawr" fel y mae'n ymwneud â didoli a hidlo. effeithio ar gydbwysedd y dalennau yn y llyfr gwaith.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir