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

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'w restru 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 Now!


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!

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 (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
beth os oes gen i 4 colofn neu fwy?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, dyma'n union beth roeddwn i'n edrych amdano. Gwych :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr am yr offeryn defnyddiol hwn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch a Ton, gwerthfawrogi'n fawr y ffordd rydych chi wedi'i hegluro. defnyddiol iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a oes gennych chi god gyda thweak lle mae colofn chwith dewis yn labeli colofn a rhes uchaf detholiad yw labeli rhes?

Diolch ymlaen llaw,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sub ConvertTable_UseThis()

Dim Rng Fel Ystod
Dim cRng As Range
Dim rRng Fel Ystod
Dim xOutRng Fel Ystod
Dim xRng Fel Ystod, Crow Fel Cyfanrif, cCol Fel Cyfanrif


xTitleId = "Trosi Tabl"
Gosod xRng = Application.Selection
Gosod xRng = Application.InputBox("Dewiswch ystod:", "Ystod Nifer", Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Gosod cRng = Ystod(xRng.Cells(1, 2), xRng.Cells(1, cCol))
Gosod rRng = Amrediad(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Gosod Rng = Amrediad(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Gosod outRng = Application.InputBox("Allan wedi'i roi i (gell sengl):", xTitleId, Math:=8)
Gosod xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
Ar gyfer i = Rng.Rows(1).Rhes I Rng.Rows(1).Rhes + Rng.Rows.Cyfrif - 1
Ar gyfer j = Rng.Columns(1).Colofn I Rng.Columns(1).Colofn + 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
Nesaf j
Nesaf i
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar gyfer y Cod VBA, mae'n ymddangos bod gwir angen hwn ar un:xColumns = cRng.Column
xRow = rRng.Row
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sub ConvertTable_UseThis()

Dim Rng Fel Ystod
Dim cRng As Range
Dim rRng Fel Ystod
Dim xOutRng Fel Ystod
Dim xRng Fel Ystod, Crow Fel Cyfanrif, cCol Fel Cyfanrif


xTitleId = "Trosi Tabl"
Gosod xRng = Application.Selection
Gosod xRng = Application.InputBox("Dewiswch ystod:", "Ystod Nifer", Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Gosod cRng = Ystod(xRng.Cells(1, 2), xRng.Cells(1, cCol))
Gosod rRng = Amrediad(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Gosod Rng = Amrediad(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Gosod outRng = Application.InputBox("Allan wedi'i roi i (gell sengl):", xTitleId, Math:=8)
Gosod xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
Ar gyfer i = Rng.Rows(1).Rhes I Rng.Rows(1).Rhes + Rng.Rows.Cyfrif - 1
Ar gyfer j = Rng.Columns(1).Colofn I Rng.Columns(1).Colofn + 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
Nesaf j
Nesaf i
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Oes unrhyw un yn gwybod sut i wneud hyn mewn mac?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am yr awgrymiadau. Mae wedi arbed fy amser ac ymdrechion llaw yn fawr.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir