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:
- Trosi traws-fwrdd i restru yn Excel gyda VBA
- Trosi bwrdd croes i restr yn Excel gyda Kutools for Excel
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) |
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.
Trosi tablau croes i restrau yn Excel gyda Kutools for Excel
Os oes gennych Kutools for Excel wedi'i osod, gallwch ddefnyddio ei Trawsosod Dimensiynau Tabl offeryn i drosi croes-fyrddau i restr fflat yn gyflym.
Kutools for 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
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
