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

Ինչպե՞ս Excel- ում ձախից աջ սյուններ դասավորել մեկ սյունակի մեջ:

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

Կուտակեք սյունակները ձախից աջ դեպի մեկ սյունակ VBA- ով

Excel- ի համար Kutools- ով ձախից աջ սյուններ շարել


Կուտակեք սյունակները ձախից աջ դեպի մեկ սյունակ VBA- ով

Excel- ում չկա ներկառուցված գործառույթ, որը կարող է կարգավորել այս աշխատանքը, բայց VBA կոդը կարող է օգնել ձեզ:

1. Մամուլ Alt + F11 ստեղները, ապա ՝ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ:

2. Պատճենեք և կպցրեք կոդը ներքևում Մոդուլներ.

VBA. Դիր շարասյունները մեկի մեջ

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

doc շարքի սյունները ձախից աջ 2

3. Մամուլ F5 Կոդը գործարկելու համար ստեղնաշար է դուրս գալիս ձեզ համար երկխոսություն ՝ սյուններն ընտրելու համար:
doc շարքի սյունները ձախից աջ 3

4: սեղմեք OK, ընտրեք բջիջ արդյունքը տեղադրելու համար:
doc շարքի սյունները ձախից աջ 4

5: սեղմեք OK ավարտել. Այժմ ընտրված սյունները դասավորված են մեկ սյունակի մեջ:
doc շարքի սյունները ձախից աջ 5


Excel- ի համար Kutools- ով ձախից աջ սյուններ շարել

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված է Excel- ում, կարող եք օգտագործել Transform Range կոմունալ այս աշխատանքը կարգավորելու համար:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1. Ընտրեք այն սյունակները, որոնք ցանկանում եք կուտակել, կտտացրեք Կուտոլս > Շարք > Transform Range.
doc շարքի սյունները ձախից աջ 6

2. Մեջ Transform Range երկխոսություն, ստուգում Range to single row վանդակը, կտտացրեք Ok.
doc շարքի սյունները ձախից աջ 7

3. Բացվող պատուհանում ընտրեք բջիջ արդյունքը տեղադրելու համար, կտտացրեք OK.
doc շարքի սյունները ձախից աջ 8

Այժմ սյունները վերափոխվել են մեկ տողի:
doc շարքի սյունները ձախից աջ 9

4. Ընտրեք մեկ շարքը, սեղմեք Ctrl + C այն պատճենելու և ընտրելու մեկ այլ բջիջ, որը կտեղադրի բուրգի սյունը, աջ կտտացրեք ընտրելու համար Transpose(T) համատեքստի մենյուում:
doc շարքի սյունները ձախից աջ 10

Այժմ մեկ շարքը տեղափոխվել է բուրգի սյուն:
doc ստեկի սյունը ձախից աջ 11


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (3)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բառի խաբեություն՝ նույնն անելու համար.
- պատճենեք ձեր բոլոր տողերն ու տողերը Excel-ում
- առանց Word-ի փաստաթղթի կպցնել
- ctrl + h (գտնել և փոխարինել)
- պատճենեք աղյուսակավորման տարածությունը երկու տողերի միջև
- տեղադրեք որոնման տողում
- փոխարինել ներդիրներով «^l» տողերի ընդմիջումներով

Ձեր բոլոր բջիջներն այժմ գտնվում են ձեր Word փաստաթղթի սյունակում:
Պատճենեք տեղադրեք դրանք Excel-ում. արված է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հավերժ երախտապարտ կլինեմ ձեզ: Շատ շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը գիտի՞, թե ինչպես փոխարինել/կոշտ կոդավորել սյունակները (չբերել հաղորդագրության տուփը ընտրության համար): Այսպիսով, սահմանեք XSRg-ը նման կերպ՝ Սահմանել xSRg = Range("A1"). CurrentRegion.Select(որը չի աշխատում, քանի որ տեսակի անհամապատասխանություն) շնորհակալություն
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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