Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս փոխել մատրիցայի ոճով աղյուսակը երեք սյունակի Excel- ում:

Հեղինակ՝ Սյաոյանգ Վերջին փոփոխությունը՝ 2020-05-26

Ենթադրելով, որ դուք ունեք մատրիցայի ոճով աղյուսակ, որը պարունակում է սյունակների վերնագրեր և տողերի վերնագրեր, և այժմ ցանկանում եք այս ոճի աղյուսակը վերափոխել երեք սյունակների աղյուսակի, այն կոչվում է նաև ցուցակի աղյուսակ, ինչպես ցույց է տրված նկարում նշված է. խնդիր Excel- ում:

Փոխակերպել մատրիցային ոճի աղյուսակը ցուցակի առանցքային աղյուսակի հետ

Փոխակերպել մատրիցայի ոճի աղյուսակը ցուցակագրելու համար VBA կոդով

Փոխակերպեք մատրիցայի ոճի աղյուսակը Kutools- ի համար Excel- ի համար

doc փոխել մատրիցան ցուցակի 1-ում


Excel- ում մեզ համար ուղղակի հատկություն չկա մատրիցայի ոճի աղյուսակը երեք սյունակի աղյուսակի վերափոխելու համար, բայց եթե ծանոթ եք PivotTable- ին, դա կարող է ձեզ լավություն բերել: Խնդրում ենք անել հետևյալ քայլերով.

1, Ակտիվացրեք ձեր աշխատանքային թերթը, որը ցանկանում եք օգտագործել, այնուհետև պահեք Alt + D, ապա սեղմեք P ստեղնաշարի մեջ, դուրս ցցված PivotTable և PivotChart Wizard երկխոսություն, ընտրեք Բազմաթիվ համախմբման միջակայքեր տակ Որտեղ են այն տվյալները, որոնք ցանկանում եք վերլուծել բաժինը, ապա ընտրեք PivotTable տակ Ինչպիսի զեկույց եք ցանկանում ստեղծել բաժին, տես նկարի նկարը.

doc փոխել մատրիցան ցուցակի 2-ում

2. Այնուհետեւ կտտացրեք հաջորդ կոճակը, Քայլ 2 ա 3-ից կախարդ, ընտրեք Ես կստեղծեմ էջի դաշտերը տարբերակը, տես նկարի նկարը.

doc փոխել մատրիցան ցուցակի 3-ում

3, Անցեք կտտացնելով հաջորդ կոճակը, 2-ի 3b քայլը հրաշագործ, սեղմեք doc փոխել մատրիցան ցուցակի 5-ում կոճակը ՝ ընտրելու համար այն տվյալների տիրույթը, որը ցանկանում եք փոխարկել, այնուհետև կտտացրեք Ավելացնել կոճակը տվյալների տիրույթն ավելացնելու համար Բոլոր միջակայքերը ցուցակի տուփ, տես նկարի նկարը.

doc փոխել մատրիցան ցուցակի 4-ում

4, եւ սեղմեք հաջորդ կոճակը, ներսում 3- ից 3 քայլ կախարդ, ընտրեք առանցքային աղյուսակի գտնվելու վայրը, ինչպես ուզում եք:

doc փոխել մատրիցան ցուցակի 6-ում

5. Այնուհետեւ կտտացրեք Ավարտել կոճակը, միանգամից ստեղծվել է առանցքային աղյուսակ, տես նկարի նկարը.

doc փոխել մատրիցան ցուցակի 7-ում

6, Առանցքային աղյուսակում երկու անգամ կտտացրեք Grand Total- ի հատվող բջիջը, այս դեպքում ես կրկնակի կտտացնում եմ F22 բջիջին և այն կստեղծի երեք սյունակների աղյուսակ, ինչպես ցույց է տրված հետևյալ նկարը.

doc փոխել մատրիցան ցուցակի 8-ում

7, Եվ վերջապես, սեղանի ձևաչափը կարող եք փոխել նորմալ տիրույթի ՝ ընտրելով աղյուսակը և այնուհետև ընտրել Սեղան > Փոխարկել Range- ի համատեքստային ընտրացանկից տե՛ս նկարը.

doc փոխել մատրիցան ցուցակի 9-ում


Եթե ​​դուք չեք սիրում առաջին մեթոդը, հետևյալ VBA կոդը նույնպես կարող է օգնել ձեզ:

1. Մամուլ Alt + F11 ցուցադրելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2, Պատուհանում կտտացրեք Տեղադրել > Մոդուլներ նոր մոդուլի պատուհան ցույց տալու համար, ապա պատճենեք և կպցրեք հետևյալ VBA կոդը մոդուլի պատուհանում:

VBA կոդ. Փոխակերպել մատրիցայի ոճի աղյուսակը ցուցակի

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, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հուշում է արկղը, որը հնարավորություն կտա ձեզ ընտրել տվյալների սյունակի պիտակները, տես նկարի նկարը.

doc փոխել մատրիցան ցուցակի 10-ում

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, հաջորդ հուշման վանդակում, ընտրեք շարքի պիտակները, տես նկարի նկարը.

doc փոխել մատրիցան ցուցակի 11-ում

5, Անցեք կտտացնելով OK, ապա ընտրեք տվյալների տիրույթը `բացառելով սյունակի և տողի վերնագրերը հուշման վանդակում, տե՛ս նկարը.

doc փոխել մատրիցան ցուցակի 12-ում

6. Եվ այնուհետեւ կտտացրեք OK, այս երկխոսության դաշտում ընտրեք այն բջիջը, որտեղ ցանկանում եք գտնել արդյունքը: Տեսեք,

doc փոխել մատրիցան ցուցակի 13-ում

7, Վերջապես կտտացրեք OK, և դուք կստանաք միանգամից երեք սյունակների աղյուսակ:


Վերոնշյալ երկու մեթոդներն էլ ինչ-որ առումով անհանգստացնող են. Ահա, ես ձեզ կներկայացնեմ հեշտ ձև - Excel- ի համար նախատեսված գործիքներԻր Տեղափոխեք սեղանի չափերը առանձնահատկությունը, դուք կարող եք արագ փոխարկել բջիջների մատրիցը և ցուցակների աղյուսակը:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում ենք արեք հետևյալ քայլերը.

1: Սեղմեք Կուտոլս > Շարք > Տեղափոխեք սեղանի չափերը, տես նկարի նկարը.

2, Մեջ Տեղափոխեք սեղանի չափերը երկխոսության տուփ:

(1.) Ընտրեք Խաչ ցուցակ ցուցակագրելու համար ներքեւում Տեղափոխման տեսակը.

(2.) Եվ ապա կտտացրեք doc փոխել մատրիցան ցուցակի 5-ում կոճակը ներքեւում Աղբյուրի տիրույթը ընտրելու համար տվյալների տիրույթը, որը ցանկանում եք փոխարկել:

(3.) Ապա կտտացրեք doc փոխել մատրիցան ցուցակի 5-ում կոճակը ներքեւում Արդյունքների միջակայք բջիջ ընտրելու համար, որտեղ ցանկանում եք տեղադրել արդյունքը:

doc փոխել մատրիցան ցուցակի 15-ում

3. Եվ այնուհետեւ կտտացրեք OK կոճակը, և դուք կստանաք հետևյալ արդյունքը, որը ներառում է բջջի բնօրինակ ձևաչափումը.

doc փոխել մատրիցան ցուցակի 16-ում

Այս օգտակարությամբ, դուք նույնպես հարթ ցուցակի աղյուսակը վերափոխել երկչափ խաչաձեւ սեղանի.

Տեղափոխման սեղանի չափսերի այս առանձնահատկության մասին ավելին իմանալու համար:

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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