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

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:


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 (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
DIOLCH!! Gweithiodd eich macro yn berffaith. Byddaf yn defnyddio'ch dolen os byddaf yn dewis prynu KuTools.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych! Mae Kutools yn gwneud y tric. Awesome bois diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod, yr wyf yn cyfieithu tablau mawr iawn yn rhestrau heb unrhyw faterion, gweithio swyn.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir