Skip i'r prif gynnwys

Sut i drosi tabl croesdoriad (tabl 2 ddimensiwn) i'w restru yn Excel?

Ydych chi'n gwybod sut i drosi traws-dabl (tabl dau ddimensiwn) i dabl rhestr (tabl un dimensiwn) yn Microsoft Excel? Am rai rhesymau, efallai y bydd angen i chi drosi tabl (gyda phenawdau rhes a phenawdau colofnau) yn rhestr wastad yn Excel. Gall y triciau canlynol eich helpu i drosi bwrdd croes i restr fflat yn hawdd ac yn gyflym:

Gan dybio bod gennych draws-fwrdd ac angen ei drosi i restr fel a ganlyn.

Traws-fwrdd (gyda phenawdau rhes a phenawdau colofnau) Tabl rhestr (tabl un dimensiwn)

swigen dde glas saeth Trosi traws-fwrdd i restru yn Excel gyda VBA

Gall y macro VBA canlynol eich helpu i drosi'r holl dablau croes yn gyflym yn y daflen waith weithredol i restrau gwastad.

Cam 1: Dalwch i lawr y Alt + F11 allweddi yn Excel, ac mae'n agor ffenestr Microsoft Visual Basic for Applications.

Cam 2: Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl.

Y VBA ar fwrdd trawsosod crosstab i restru:

Is-ConvertTableToList ()
Const TEST_COLUMN As String = "A"
Dim i Cyhyd, j Mor Hir
Dim iLastRow Cyhyd
Dim iLastCol Cyhyd
Application.ScreenUpdating = Anghywir
Gyda ActiveSheet
iLastRow = .Cells (.Rows.Count, TEST_COLUMN) .End (xlUp) .Row
Ar gyfer i = iLastRow I 2 Cam -1
iLastCol = .Cells (i, .Columns.Count) .End (xlToLeft) .Column
Ar gyfer j = iLastCol I 3 Cam -1
.Rows (i + 1) .Insert
.Cells (i + 1, 2) .Value = .Cells (i, j) .Value
.Cells (i, j) .Value = ""
Nesaf j
Nesaf i
.Rows (1). Dileu
Diwedd Gyda
Application.ScreenUpdating = Gwir
Is-End

Cam 3: Cliciwch y F5 allwedd i redeg y macro hwn.

Yna fe welwch y rhestr wedi'i throsi yn dangos fel y llun isod:

Nodyn:

1. Mae'r macro VBA hwn yn colli rhywfaint o ddata o'r tabl gwreiddiol, fel penawdau, neu eraill. Yn yr achos hwn, collir y penawdau (Enw, Gradd, a Dosbarth).

2. Gallwch chi newid As String = "A", i ddiwallu'ch angen. Er enghraifft, os nodir y croesdoriad yng Ngholofn E, dylech yn lle "E" o "A".

3. Ac os oes data arall yn y daflen waith, weithiau bydd y data yn y rhestr yn anghywir ar ôl trosi traws-dabl.


swigen dde glas saeth Trosi tablau croes i restrau yn Excel gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel wedi'i osod, gallwch ddefnyddio ei Trawsosod Dimensiynau Tabl offeryn i drosi croes-fyrddau i restr fflat yn gyflym.

Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.

Cam 1: Dewiswch y tabl y byddwch chi'n ei drosi'n rhestr.

Cam 2: Cliciwch y Kutools >Addasu > Trawsosod Dimensiwn y Tabl. Gweler yr ergyd sgrin ganlynol:

Cam 3: Yn y blwch deialog Trawsosod Dimensiynau Tabl, gwiriwch y Croes-fwrdd i'r rhestr opsiwn, a dewiswch y Amrediad canlyniadau gyda chlicio ar y botwm.

Cam 4: Cliciwch OK botwm.

Yna fe welwch fod y tabl gwreiddiol yn cael ei drawsnewid yn rhestr wastad fel y screenshot canlynol:

Trawsosod Dimensiynau Tabl hefyd yn gallu trosi rhestr i dabl croesdoriad. Am fwy o wybodaeth, ewch i Trawsosod Dimensiynau Tabl.


Erthyglau cymharol:

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the code, I translated very large tables into lists without any issues, worked a charm.
This comment was minimized by the moderator on the site
Brilliant! Kutools does the trick. Awesome guys thank you.
This comment was minimized by the moderator on the site
THANK YOU!! Your macro worked perfectly. I'll use your link if I choose to purchase KuTools.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations