Skip to main content

Conas tábla stíl maitrís a thiontú go trí cholún in Excel?

Má cheaptar go bhfuil tábla i stíl mhaitrís agat ina bhfuil ceannteidil cholún agus ceannteidil as a chéile, agus anois ar mhaith leat an tábla stíl seo a thiontú go tábla trí cholún, tugtar tábla liosta air freisin mar a thaispeántar ar an scáileán a thaispeántar, an bhfuil aon bhealaí maithe agat chun é seo a réiteach fadhb in Excel?

Tiontaigh tábla stíl maitrís le liostáil le PivotTable

Tiontaigh tábla stíl maitrís le liostáil le cód VBA

Tiontaigh tábla stíl maitrís le liostáil le Kutools le haghaidh Excel

maitrís tiontú doc go liosta 1


In Excel, níl gné dhíreach ann dúinn an tábla stíl maitrís a thiontú go tábla trí cholún, ach, má tá tú eolach ar PivotTable, b’fhéidir go ndéanfadh sé fabhar duit. Déan na céimeanna seo a leanas le do thoil:

1. Gníomhachtaigh do bhileog oibre a theastaíonn uait a úsáid, ansin coinnigh í Alt + F, agus ansin brúigh P sa mhéarchlár, sa popped amach Draoi PivotTable agus PivotChart dialóg, roghnaigh Raonta comhdhlúthaithe iolracha faoi ​​na Cá bhfuil na sonraí a theastaíonn uait anailís a dhéanamh orthu alt, agus ansin roghnaigh PivotTábla faoi ​​na Cén cineál tuarascála ba mhaith leat a chruthú alt, féach an pictiúr:

maitrís tiontú doc go liosta 2

2. Ansin cliceáil Ar Aghaidh cnaipe, sa Céim 2a de 3 draoi, roghnaigh an Cruthóidh mé na réimsí leathanaigh rogha, féach an scáileán:

maitrís tiontú doc go liosta 3

3. Téigh ar cliceáil Ar Aghaidh cnaipe, sa Céim 2b de 3 draoi, cliceáil maitrís tiontú doc go liosta 5 cnaipe chun an raon sonraí a theastaíonn uait a thiontú a roghnú, agus ansin cliceáil Cuir cnaipe chun an raon sonraí a chur leis an Gach raon bosca liosta, féach an scáileán:

maitrís tiontú doc go liosta 4

4. agus cliceáil Ar Aghaidh cnaipe, i Céim 3 de 3 draoi, roghnaigh suíomh don tábla pivot mar is mian leat.

maitrís tiontú doc go liosta 6

5. Ansin cliceáil Críochnaigh cnaipe, cruthaíodh tábla pivot ag an am céanna, féach an scáileán:

maitrís tiontú doc go liosta 7

6. Sa tábla pivot, cliceáil dúbailte ar a dtrasnaíonn cill an Grand Total, sa chás seo, cliceáilfidh mé an chill F22 faoi dhó, agus ginfidh sé tábla trí cholún mar a thaispeántar ar an scáileán a leanas:

maitrís tiontú doc go liosta 8

7. Agus ar deireadh, is féidir leat formáid an tábla a thiontú go gnáth-raon tríd an tábla a roghnú agus ansin a roghnú tábla > Tiontaigh go Raon ón roghchlár comhthéacs, féach an scáileán:

maitrís tiontú doc go liosta 9


Mura dtaitníonn an chéad mhodh leat, is féidir leis an gcód VBA seo a leanas cabhrú leat.

1. Brúigh Alt + F11 chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. San fhuinneog, cliceáil Ionsáigh > Modúil chun fuinneog nua modúil a thaispeáint, ansin an cód VBA seo a leanas a chóipeáil agus a ghreamú isteach i bhfuinneog an mhodúil.

Cód VBA: Tiontaigh tábla stíl maitrís go liosta

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tagann bosca pras amach chun ligean duit lipéid cholún na sonraí a roghnú, féach an scáileán:

maitrís tiontú doc go liosta 10

4. Agus ansin cliceáil OK cnaipe, sa chéad bhosca pras eile, roghnaigh na lipéid as a chéile, féach an scáileán:

maitrís tiontú doc go liosta 11

5. Téigh ar cliceáil OK, ansin roghnaigh an raon sonraí gan na ceannteidil colún agus as a chéile a áireamh sa bhosca pras, féach an scáileán:

maitrís tiontú doc go liosta 12

6. Agus ansin cliceáil OK, sa bhosca dialóige seo, roghnaigh cill le do thoil inar mian leat an toradh a aimsiú. Féach an pictiúr:

maitrís tiontú doc go liosta 13

7. Faoi dheireadh, cliceáil OK, agus gheobhaidh tú tábla trí cholún ag an am céanna.


Tá an dá mhodh thuas trioblóideach, anseo, tabharfaidh mé bealach éasca isteach duit - Kutools le haghaidh Excel, Lena Toisí Tábla a thrasuí gné, is féidir leat maitrís cealla agus tábla liosta a thiontú go tapa.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá

Tar éis a shuiteáil Kutools le haghaidh Excel, déan na céimeanna seo a leanas le do thoil:

1. Cliceáil Kutools > Raon > Toisí Tábla a thrasuí, féach ar an scáileán:

2. Sa an Toisí Tábla a thrasuí bosca dialóige:

(1.) Roghnaigh Tras-tábla le liostáil rogha faoi Cineál a thrasuí.

(2.) Agus ansin cliceáil maitrís tiontú doc go liosta 5 cnaipe faoi Raon foinse chun an raon sonraí a theastaíonn uait a thiontú a roghnú.

(3.) Ansin cliceáil maitrís tiontú doc go liosta 5 cnaipe faoi Raon torthaí chun cill a roghnú inar mian leat an toradh a chur.

maitrís tiontú doc go liosta 15

3. Agus ansin cliceáil OK cnaipe, agus gheobhaidh tú an toradh seo a leanas lena n-áirítear formáidiú bunaidh na gceall:

maitrís tiontú doc go liosta 16

Leis an bhfóntas seo, tusa freisin tábla liosta comhréidh a thiontú go tras-tábla déthoiseach.

Chun níos mó eolais a fháil ar an ngné Toisí Tábla Trasuí seo.

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!


Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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