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

Ինչպե՞ս արագ Excel- ում մատների շարքի շարքը շրջել / հակադարձել:

Երբ ձեզ հարկավոր է անընդմեջ փոխել կամ շրջել տվյալների շարքը, ինչպե՞ս կարող եք այն արագ կատարել: Սովորաբար դա անելու համար ստիպված կլինեք օգտագործել VBA կոդ կամ Excel- ի այլ հավելումներ, քանի որ Excel- ը չի աջակցում նման գործողությանը: Եվ ահա գալիս է հետևյալ խրթին բաները, որոնք կօգնեն ձեզ արագորեն շրջել կամ փոխել տվյալների շարքը Excel- ում:

VBA- ի շարքերում հորիզոնականորեն շրջել / փոխել տվյալների կարգը

Excel- ի համար Kutools- ով տողերում հորիզոնական պտտել / փոխել տվյալների կարգը



նետ կապույտ աջ պղպջակ VBA- ի շարքերում հորիզոնականորեն շրջել / փոխել տվյալների կարգը

Ահա մի կոկիկ VBA մակրո, որը կարող է օգնել ձեզ արագորեն շրջել / հետադարձել տվյալների կարգը շարքերում հորիզոնական:

Քայլ 1Պահեք պահեք ալտ + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

Քայլ 2: Սեղմել Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլներպատուհան.

Sub FlipRows()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

Քայլ 3: Սեղմեք F5 այս մակրո գործարկման ստեղնը, և ցուցադրվում է երկխոսություն, որի համար պետք է ընտրեք տիրույթ, որի հետ աշխատեք: Տեսեք,

փաստաթուղթ-հակառակ կարգը 8

Քայլ 4: մամուլ OK, արդյունքը կարող եք տեսնել, ինչպես ցույց է տրված ստորև:


նետ կապույտ աջ պղպջակ Excel- ի համար Kutools- ով տողերում հորիզոնական պտտել / փոխել տվյալների կարգը

հետ Excel- ի համար նախատեսված գործիքներ'S Շրջել հորիզոնական տիրույթը գործիք, դուք կարող եք արագորեն մատնանշել / հակադարձել տվյալների կարգը հորիզոնական կերպով ընտրված շարքերում:

Excel- ի համար Kutools- ը ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now.

Քայլ 1Ընտրեք այն շարքը, որով դուք կկանգնեք տվյալները:

Քայլ 2Սեղմեք Կուտոլս > Լեռնաշղթայի փոխարկիչ > Շրջել հորիզոնական տիրույթը, տես նկարի նկարը.

դոկ-հակառակ շարքի-կարգ 3

Դրանից հետո կտեսնեք, որ ընտրված շարքերում տվյալների բոլոր կարգը հետ է փոխվում:

դոկ-հակառակ շարքի-կարգ 4
-1
դոկ-հակառակ շարքի-կարգ 5

Սեղմել Շրջել հորիզոնական տիրույթը ավելին իմանալ այս հատկության մասին:


Առնչվող հոդված:

Ինչպե՞ս Excel- ում ուղղահայաց պտտել / հակադարձել տվյալների կարգի սյունը:

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

🤖 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In response to Rodrigo, Fbkil:

The error occurs because when you cut and paste the macro text into the Excel VBA editor, there are non-printing characters hidden in the area where the macro rows are indented. Delete them and it will work.

Note: Solved by someone else, not me. Was tricky, as it looked like it should work, but didn't.
This comment was minimized by the moderator on the site
When I try to run this macro, I get the message "syntax error" with the command line "For j = 1 To UBound(Arr, 2) / 2" highlighted in red. Does anyone know how to fix it?
This comment was minimized by the moderator on the site
got the same error. update needed
This comment was minimized by the moderator on the site
Great tool, thanks so much for VBA - I transposed a column to rows first and then used your VBA for reversing - saved tons of time!
This comment was minimized by the moderator on the site
You flipped the column order not the row order as per the title.
This comment was minimized by the moderator on the site
Copy paste (transpose) the row to column. Add 1 to x on the column beside. Filter from largest to smallest and expand. Then copy paste result and transpose to row again
This comment was minimized by the moderator on the site
A quicker way would be be to copy your selection. Right click, choose paste special. Check the transpose button, hit ok and the rows and columns will be transposed. http://office.microsoft.com/en-us/excel-help/switch-transpose-columns-and-rows-HP010224502.aspx
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations