Skip i'r prif gynnwys

Sut i drosi tabl arddull matrics yn dair colofn yn Excel?

Gan dybio bod gennych fwrdd ar ffurf matrics sy'n cynnwys penawdau colofnau a phenawdau rhes, ac yn awr yr hoffech chi drosi'r tabl arddull hwn yn dabl tair colofn, roedd hefyd yn galw tabl rhestr fel y screenshot canlynol a ddangosir, a oes gennych unrhyw ffyrdd da o ddatrys hyn. problem yn Excel?

Trosi tabl arddull matrics i'w restru gyda PivotTable

Trosi tabl arddull matrics i'w restru gyda chod VBA

Trosi tabl arddull matrics i restr gyda Kutools ar gyfer Excel

doc trosi matrics i restr 1


Yn Excel, nid oes nodwedd uniongyrchol inni drosi'r tabl arddull matrics yn dabl tair colofn, ond, os ydych chi'n gyfarwydd â PivotTable, fe allai wneud ffafr i chi. Gwnewch y camau canlynol:

1. Ysgogwch eich taflen waith rydych chi am ei defnyddio, yna ei dal Alt + D, ac yna'r wasg P yn y bysellfwrdd, yn y popped allan Dewin PivotTable a PivotChart deialog, dewiswch Amrywiadau cydgrynhoi lluosog O dan y Ble mae'r data rydych chi am ei ddadansoddi adran, ac yna dewis PivotTable O dan y Pa fath o adroddiad ydych chi am ei greu adran, gweler y screenshot:

doc trosi matrics i restr 2

2. Yna cliciwch Digwyddiadau botwm, yn y Cam 2a o 3 dewin, dewiswch y Byddaf yn creu'r meysydd tudalen opsiwn, gweler y screenshot:

doc trosi matrics i restr 3

3. Ewch ymlaen i glicio Digwyddiadau botwm, yn y Cam 2b o 3 dewin, cliciwch doc trosi matrics i restr 5 botwm i ddewis yr ystod ddata rydych chi am ei drosi, ac yna cliciwch Ychwanegu botwm i ychwanegu'r ystod ddata i'r Pob ystod blwch rhestr, gweler y screenshot:

doc trosi matrics i restr 4

4. a chliciwch Digwyddiadau botwm, i mewn Cam 3 o 3 dewin, dewiswch leoliad ar gyfer y bwrdd colyn fel y dymunwch.

doc trosi matrics i restr 6

5. Yna cliciwch Gorffen botwm, mae tabl colyn wedi'i greu ar unwaith, gweler y screenshot:

doc trosi matrics i restr 7

6. Yn y tabl colyn, clic dwbl yn croestorri cell y Grand Cyfanswm, yn yr achos hwn, byddaf yn clicio ddwywaith ar y gell F22, a bydd yn cynhyrchu tabl tair colofn fel y dangosir y screenshot canlynol:

doc trosi matrics i restr 8

7. Ac yn olaf, gallwch drosi fformat y tabl i'r ystod arferol trwy ddewis y tabl ac yna dewis Tabl > Trosi i Ystod o'r ddewislen cyd-destun, gweler y screenshot:

doc trosi matrics i restr 9


Os nad ydych chi'n hoffi'r dull cyntaf, gall y cod VBA canlynol eich helpu chi hefyd.

1. Gwasgwch Alt + F11 i arddangos y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr, cliciwch Mewnosod > Modiwlau i ddangos ffenestr modiwl newydd, yna copïwch a gludwch y cod VBA canlynol i mewn i ffenestr y modiwl.

Cod VBA: Trosi tabl arddull matrics yn rhestr

Sub ConvertTable()
'Update 20150512
Dim Rng As Range
Dim cRng As Range
Dim rRng As Range
Dim xOutRng As Range
xTitleId = "KutoolsforExcel"
Set cRng = Application.InputBox("Select your Column labels", xTitleId, Type:=8)
Set rRng = Application.InputBox("Select Your Row Labels", xTitleId, Type:=8)
Set Rng = Application.InputBox("Select your data", xTitleId, Type:=8)
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1).Row To Rng.Rows(1).Row + Rng.Rows.Count - 1
    For j = Rng.Columns(1).Column To Rng.Columns(1).Column + Rng.Columns.Count - 1
        outRng.Cells(k, 1) = xWs.Cells(i, xColumns)
        outRng.Cells(k, 2) = xWs.Cells(xRow, j)
        outRng.Cells(k, 3) = xWs.Cells(i, j)
        k = k + 1
    Next j
Next i
End Sub

3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn galw allan i adael i chi ddewis labeli colofn y data, gweler y screenshot:

doc trosi matrics i restr 10

4. Ac yna cliciwch OK botwm, yn y blwch prydlon nesaf, dewiswch y labeli rhes, gweler y screenshot:

doc trosi matrics i restr 11

5. Ewch ymlaen i glicio OK, yna dewiswch yr ystod ddata ac eithrio'r penawdau colofn a rhes yn y blwch prydlon, gweler y screenshot:

doc trosi matrics i restr 12

6. Ac yna cliciwch OK, yn y blwch deialog hwn, dewiswch gell lle rydych chi am ddod o hyd i'r canlyniad. Gweler y screenshot:

doc trosi matrics i restr 13

7. O'r diwedd, cliciwch OK, a byddwch yn cael bwrdd tair colofn ar unwaith.


Mae'r ddau ddull uchod ychydig yn drafferthus, yma, byddaf yn cyflwyno ffordd hawdd ichi - Kutools ar gyfer Excel, Gyda'i Trawsosod Dimensiynau Tabl nodwedd, gallwch drosi matrics o gelloedd a thabl rhestr yn gyflym.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y camau canlynol:

1. Cliciwch Kutools > Ystod > Trawsosod Dimensiynau Tabl, gweler y screenshot:

2. Yn y Trawsosod Dimensiynau Tabl blwch deialog:

(1.) Dewis Croes-fwrdd i'r rhestr opsiwn o dan Math trawsosod.

(2.) Ac yna cliciwch doc trosi matrics i restr 5 botwm o dan Ystod ffynhonnell i ddewis yr ystod ddata rydych chi am ei throsi.

(3.) Yna cliciwch doc trosi matrics i restr 5 botwm o dan Amrediad canlyniadau i ddewis cell lle rydych chi am roi'r canlyniad.

doc trosi matrics i restr 15

3. Ac yna cliciwch OK botwm, a byddwch yn cael y canlyniad canlynol sy'n cynnwys fformatio gwreiddiol y celloedd:

doc trosi matrics i restr 16

Gyda'r cyfleustodau hwn, chi hefyd trosi bwrdd rhestr fflat yn groes-fwrdd dau ddimensiwn.

I wybod mwy am y nodwedd Dimensiynau Tabl Trawsosod hwn.

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim 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 (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the tips. It's greatly saved my time and manual efforts.
This comment was minimized by the moderator on the site
Anybody know how to do this in a mac?
This comment was minimized by the moderator on the site
Sub ConvertTable_UseThis()

Dim Rng As Range
Dim cRng As Range
Dim rRng As Range
Dim xOutRng As Range
Dim xRng As Range, cRow As Integer, cCol As Integer


xTitleId = "Convert Table"
Set xRng = Application.Selection
Set xRng = Application.InputBox("Please select range:", "Number Range", Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Set cRng = Range(xRng.Cells(1, 2), xRng.Cells(1, cCol))
Set rRng = Range(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Set Rng = Range(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1).Row To Rng.Rows(1).Row + Rng.Rows.Count - 1
For j = Rng.Columns(1).Column To Rng.Columns(1).Column + Rng.Columns.Count - 1
outRng.Cells(k, 1) = xWs.Cells(i, xColumns)
outRng.Cells(k, 2) = xWs.Cells(xRow, j)
outRng.Cells(k, 3) = xWs.Cells(i, j)
k = k + 1
Next j
Next i
End Sub
This comment was minimized by the moderator on the site
For the VBA Code, one seems to really need this:xColumns = cRng.Column
xRow = rRng.Row
This comment was minimized by the moderator on the site
do you have a code with a tweak where the leftmost column of a selection is column labels and the topmost row of a selection is row labels?

Thanks in advance,
This comment was minimized by the moderator on the site
Sub ConvertTable_UseThis()

Dim Rng As Range
Dim cRng As Range
Dim rRng As Range
Dim xOutRng As Range
Dim xRng As Range, cRow As Integer, cCol As Integer


xTitleId = "Convert Table"
Set xRng = Application.Selection
Set xRng = Application.InputBox("Please select range:", "Number Range", Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Set cRng = Range(xRng.Cells(1, 2), xRng.Cells(1, cCol))
Set rRng = Range(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Set Rng = Range(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1).Row To Rng.Rows(1).Row + Rng.Rows.Count - 1
For j = Rng.Columns(1).Column To Rng.Columns(1).Column + Rng.Columns.Count - 1
outRng.Cells(k, 1) = xWs.Cells(i, xColumns)
outRng.Cells(k, 2) = xWs.Cells(xRow, j)
outRng.Cells(k, 3) = xWs.Cells(i, j)
k = k + 1
Next j
Next i
End Sub
This comment was minimized by the moderator on the site
Thanks a Ton, really appreciate the way you have explained. very useful
This comment was minimized by the moderator on the site
Thanks alot for this useful tool
This comment was minimized by the moderator on the site
Thanks, this was exactly what I was looking for. Awesome:)
This comment was minimized by the moderator on the site
what if i have 4 or more column?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations