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

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

Ենթադրելով, որ դուք ունեք մատրիցայի ոճով աղյուսակ, որը պարունակում է սյունակների վերնագրեր և տողերի վերնագրեր, և այժմ ցանկանում եք այս ոճի աղյուսակը վերափոխել երեք սյունակների աղյուսակի, այն կոչվում է նաև ցուցակի աղյուսակ, ինչպես ցույց է տրված նկարում նշված է. խնդիր 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 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (10)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
իսկ եթե ես ունեմ 4 կամ ավելի սյունակ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, սա հենց այն էր, ինչ ես փնտրում էի: Հիանալի:)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն այս օգտակար գործիքի համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն տոննա, իսկապես գնահատում եմ ձեր բացատրության ձևը: շատ օգտակար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք ունե՞ք կոդ, որտեղ ընտրության ձախ կողմը սյունակների պիտակներն են, իսկ ընտրության ամենավերին տողը տողերի պիտակներն են:

Thanks in advance,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub ConvertTable_UseThis ()

Dim Rng որպես միջակայք
Dim cRng As Range
Dim rRng As Range
Dim xOutRng որպես տիրույթ
Dim xRng որպես տիրույթ, cRow որպես ամբողջ թիվ, cCol որպես ամբողջ թիվ


xTitleId = «Փոխակերպել աղյուսակը»
Սահմանել xRng = Application.Selection
Սահմանել xRng = Application.InputBox («Խնդրում ենք ընտրել միջակայքը.», «Թիվ միջակայք», Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Սահմանել cRng = Range (xRng.Cells(1, 2), xRng.Cells(1, cCol))
Սահմանել rRng = Range(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Սահմանել Rng = Range(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Set outRng = Application.InputBox ("Out put to (մեկ բջիջ):", xTitleId, Type:=8)
Սահմանել xWs = Rng.Աշխատանքային թերթիկ
կ = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1) Row To Rng.Rows(1) Row + Rng.Rows.Count - 1
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
Հաջորդը j
Հաջորդ i
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA կոդի համար, թվում է, սա իսկապես պետք է. xColumns = cRng.Column
xRow = rRng.Տող
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub ConvertTable_UseThis ()

Dim Rng որպես միջակայք
Dim cRng As Range
Dim rRng As Range
Dim xOutRng որպես տիրույթ
Dim xRng որպես տիրույթ, cRow որպես ամբողջ թիվ, cCol որպես ամբողջ թիվ


xTitleId = «Փոխակերպել աղյուսակը»
Սահմանել xRng = Application.Selection
Սահմանել xRng = Application.InputBox («Խնդրում ենք ընտրել միջակայքը.», «Թիվ միջակայք», Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Սահմանել cRng = Range (xRng.Cells(1, 2), xRng.Cells(1, cCol))
Սահմանել rRng = Range(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Սահմանել Rng = Range(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Set outRng = Application.InputBox ("Out put to (մեկ բջիջ):", xTitleId, Type:=8)
Սահմանել xWs = Rng.Աշխատանքային թերթիկ
կ = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1) Row To Rng.Rows(1) Row + Rng.Rows.Count - 1
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
Հաջորդը j
Հաջորդ i
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը գիտի, թե ինչպես դա անել Mac-ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն խորհուրդների համար: Դա մեծապես խնայեց իմ ժամանակը և ձեռքի ջանքերը:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից