Ինչպե՞ս փոխարկել crosstab աղյուսակը (երկչափ սեղան) Excel- ում ցուցակագրելու համար:
Գիտե՞ք ինչպես Microsoft Excel- ում խաչաձեւ աղյուսակը (երկչափ սեղան) վերածել ցուցակի աղյուսակի (մեկ ծավալային սեղան): Որոշ պատճառների համար ձեզ հարկավոր է Excel- ում աղյուսակ (տողերի վերնագրերով և սյունակների վերնագրերով) վերափոխել հարթ ցուցակի: Հետևյալ հնարքները կօգնեն ձեզ հեշտությամբ և արագ խաչաձեւ աղյուսակը դարձնել տաս ցուցակ.
- Խաչաձեւ աղյուսակը Excel- ում VBA- ով ցուցակ դարձնելու համար
- Փոխակերպեք խաչաձեւ աղյուսակը Excel- ում ցուցակի հետ Kutools- ի համար Excel- ի
Ենթադրելով, որ դուք ունեք խաչաձեւ աղյուսակ և անհրաժեշտ է այն վերածել ցուցակի ՝ հետևյալ կերպ.
Խաչ աղյուսակ (շարքերի վերնագրերով և սյունակների վերնագրերով) | Listուցակային աղյուսակ (միաչափ սեղան) |
Խաչաձեւ աղյուսակը Excel- ում VBA- ով ցուցակ դարձնելու համար
Հետևյալ VBA մակրոտնտեսությունը կօգնի ձեզ արագ վերափոխել ակտիվ աշխատանքային թերթի բոլոր խաչաձեւ աղյուսակները հարթ ցուցակների:
Քայլ 1: Անջատեք ալտ + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic կիրառական ծրագրերի պատուհանը:
Քայլ 2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը Մոդուլի պատուհանում:
Տրոսպոզիտային խաչբառ աղյուսակի վրա տեղադրված VBA- ն ցուցակագրելու համար.
Sub ConvertTableToList ()
Կառուցել TEST_COLUMN As String = "A"
Dim i այնքան երկար, j այնքան երկար
Չեմ հասկանում, թե որքան երկար է
Dim iLastCol այնքան երկար
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet- ով
iLastRow = .Բջիջներ (.Rows.Count, TEST_COLUMN): Վերջ (xlUp):
I = iLastRow- ի համար 2 քայլ -1
iLastCol = .Բջիջներ (i, .Սյունակներ. Հաշվարկ): Վերջ (xlToLeft): Սյունակ
J = iLastCol- ի համար 3 քայլ -1
. Շարքեր (i + 1): Տեղադրեք
. Բջիջներ (i + 1, 2): Արժեք =. Բջիջներ (i, j): Արժեք
.Բջիջներ (i, j): Արժեք = ""
Հաջորդը j
Հաջորդ i
.Շարքեր (1): eնջել
Վերջ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Քայլ 3: Սեղմեք F5 այս մակրո գործարկման բանալին:
Դրանից հետո կտեսնեք փոխարկված ցուցակը, որը ցույց է տալիս հետևյալ նկարը.
Նշում:
1. Այս VBA մակրոը կորցնում է բնօրինակ աղյուսակի որոշ տվյալներ, ինչպիսիք են վերնագրերը կամ այլ: Այս դեպքում վերնագրերը (Անուն, Դասարան և Դաս) կորչում են:
2. Ձեր կարիքը բավարարելու համար կարող եք փոխել As String = "A": Օրինակ, եթե խաչաձեւ աղյուսակը նշված է Ե սյունակում, ապա դրա փոխարեն պետք է «Ա» -ի «E»:
3. Եվ եթե աշխատաթերթում կան այլ տվյալներ, երբեմն խաչաձեւ աղյուսակը փոխարկելուց հետո ցուցակում տվյալները սխալ կլինեն:
Խաչի աղյուսակները Excel- ում Kutools- ի հետ փոխակերպեք ցուցակների
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված, դուք կարող եք օգտագործել այն Տեղափոխեք սեղանի չափերը խաչաձեւ սեղանները արագ ցուցակ փոխարկելու գործիք:
Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now.
Քայլ 1. Ընտրեք աղյուսակը, որը այն կվերածեք ցուցակի:
Քայլ 2: Սեղմեք Կուտոլս >Փոփոխել > Տեղափոխեք սեղանի չափը, Տեսեք հետևյալ նկարը էկրանին.
Քայլ 3. Տեղափոխել աղյուսակի չափերը երկխոսության դաշտում, ստուգեք Խաչ ցուցակ ցուցակագրելու համար տարբերակը և ընտրեք այն Արդյունքների միջակայք կտտացնելով կոճակը:
Քայլ 4: Սեղմեք OK կոճակը:
Դրանից հետո կտեսնեք, որ բնօրինակ աղյուսակը վերափոխվում է տափակ ցուցակի, ինչպես հետևյալ էկրանի նկարը.
Տեղափոխեք սեղանի չափերը կարող է նաև ցուցակը վերափոխել crosstab աղյուսակի: Լրացուցիչ տեղեկությունների համար խնդրում ենք այցելել Տեղափոխեք սեղանի չափերը.
Հարաբերական հոդվածներ.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: