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

Ինչպե՞ս փոխարկել crosstab աղյուսակը (երկչափ սեղան) Excel- ում ցուցակագրելու համար:

Գիտե՞ք ինչպես Microsoft Excel- ում խաչաձեւ աղյուսակը (երկչափ սեղան) վերածել ցուցակի աղյուսակի (մեկ ծավալային սեղան): Որոշ պատճառների համար ձեզ հարկավոր է 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 աղյուսակի: Լրացուցիչ տեղեկությունների համար խնդրում ենք այցելել Տեղափոխեք սեղանի չափերը.


Հարաբերական հոդվածներ.

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

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

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

kte էջանիշը 201905


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the code, I translated very large tables into lists without any issues, worked a charm.
This comment was minimized by the moderator on the site
Brilliant! Kutools does the trick. Awesome guys thank you.
This comment was minimized by the moderator on the site
THANK YOU!! Your macro worked perfectly. I'll use your link if I choose to purchase KuTools.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations