Note: The other languages of the website are Google-translated. Back to English
Մուտք Գրանցում

Ինչպե՞ս Excel- ում արագ շարել բազմաթիվ սյուններ մեկ սյունակի մեջ:

Excel- ում «Տեքստ սյուններ» գործառույթը կարող է բջիջը բաժանել բաժանարարի վրա հիմնված բազմաթիվ սյունակների, բայց եթե կան բազմաթիվ սյուններ մեկ սյունակում տեղադրելու եղանակներ, ինչպես ցույց է տրված նկարում Այս հոդվածում ես կներկայացնեմ որոշ հնարքներ այս խնդիրը արագ լուծելու վերաբերյալ:
doc բուրգի սյունները մեկին 1

Բազմաթիվ սյուններ շարեք մեկի մեջ `բանաձևով

Բազմաթիվ սյուններ շարեք մեկի մեջ VBA- ի հետ

Փոխակերպման տիրույթով բազմաթիվ սյուններ շարել մեկի մեջ լավ գաղափար 3

Բազմաթիվ սյուններ շարեք մեկի մեջ `բանաձևով

1. Ընտրեք այն տիրույթը, որը ցանկանում եք կուտակել և անցեք այն Անունը Box այս տիրույթին անուն տալու համար և սեղմել Մտնել բանալի. Տեսեք,
doc բուրգի սյունները մեկին 2

2. Դրանից հետո ընտրեք դատարկ բջիջ, որը ցանկանում եք տեղադրել արդյունքները, մուտքագրեք այս բանաձևը =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), սեղմեք բադr ստեղնը և քաշեք լրացնելու բռնիչը ներքև մինչև որևէ սխալ ցուցադրվի: Տեսեք,
doc բուրգի սյունները մեկին 3

Բանաձևում MyData- ն այն տիրույթի անունն է, որը դուք նշել եք 1-ին քայլում:

Բազմաթիվ սյուններ շարեք մեկի մեջ VBA- ի հետ

Ահա VBA կոդ, որը կարող է նաև օգնել ձեզ:

1. Մամուլ Alt + F11 ցուցադրման ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, ներքևում տեղադրեք կոդը ՝ Մոդուլներ.

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

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

doc բուրգի սյունները մեկին 4

3. Մամուլ F5 Կոդը գործարկելու համար ստեղն է, դուրս է գալիս երկխոսություն ՝ աղբյուրի տվյալներն ընտրելու համար և կտտացրեք OK, արդյունքներ տեղադրելու համար բջիջ ընտրելու համար: Տեսեք,
doc բուրգի սյունները մեկին 5

4: սեղմեք OK, Այժմ սյունները շարված են մեկ սյունակում:
doc բուրգի սյունները մեկին 6

Փոխակերպման տիրույթով բազմաթիվ սյուններ շարել մեկի մեջ

Կիրառել Excel- ի համար նախատեսված գործիքներ'S Փոխակերպել շարքը օգտակար է նաև կարող է օգնել ձեզ արագ լուծել այս խնդիրը:

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

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1. Ընտրեք ձեր օգտագործած սյունակների տվյալները և կտտացրեք Կուտոլս > Շարք > Փոխակերպել շարքը, Տեսեք,
doc բուրգի սյունները մեկին 8

2. Մեջ Փոխակերպել շարքը երկխոսություն, ստուգում Շարքը մինչև մեկ սյունակ տարբերակը և սեղմեք Ok, ապա ընտրեք բջիջ ՝ արդյունքներ տեղադրելու համար: Տեսեք,
doc բուրգի սյունները մեկին 9

3: սեղմեք OK, Այժմ սյունները դասավորված են մեկ սյունակի մեջ:
doc բուրգի սյունները մեկին 1

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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
Հները `սկզբում
Նորերը `սկզբում
մեկնաբանություններ (25)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Jon
Jon
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
դուք մի քանի տողեր եք հավաքում մեկ սյունակի մեջ, ոչ թե մի քանի սյունակներ... ոչ այն, ինչ ես փնտրում էի:
պատասխանել
0
0
Phil
Phil     Jon
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
AP սյունակները 6 տողով բլոկների մեջ դնելու համար այս բանաձևերը դրեք R1 բջիջում և լրացրեք:

=OFFSET($A$1,MOD(ROW()-ROW($R$1),ROWS($A$1:$A$6)),TRUNC((ROW()-ROW($R$1))/ROWS($A$1:$A$6)),1,1)
պատասխանել
0
0
Ձուկ
Ձուկ     Phil
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա կատարյալ է աշխատում, շնորհակալություն
պատասխանել
0
0
Miguel
Miguel     Phil
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս լուծումը տեղադրելու համար: Եթե ​​որևէ մեկին անհրաժեշտ է բացատ յուրաքանչյուր բլոկի վերջում/հետևում, պարզապես ավելացրեք տողերին հավելյալ հաշվարկ, այնպես որ, հաշվի առնելով վերը նշված օրինակը, $A$6-ի փոխարեն գրեք $A$7: Այն մուտքագրում է զրոյական «0» տողում, բայց դուք հեշտությամբ կարող եք «Օգտագործել ընտրությունը Find-ի համար» Sublime-ում՝ դրանք խմբագրելու համար: Եթե ​​գիտեք լուծումը, որը զրո չի ավելացնում, խնդրում եմ հրապարակեք:
պատասխանել
0
0
Տիմկիլ
Տիմկիլ     Miguel
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
0-ի փոխարեն դատարկ բջիջ դուրս բերելու համար կատարեք IF ֆունկցիա>0, TRUE-->արտադրեք բջջի սկզբնական բովանդակությունը, FALSE-->ելքացրեք ""

=if(OFFSET($A$1,MOD(ROW()-ROW($R$1),ROWS($A$1:$A$6)),TRUNC((ROW()-ROW($R$1))/ROWS($A$1:$A$6)),1,1)>0,OFFSET($A$1,MOD(ROW()-ROW($R$1),ROWS($A$1:$A$6)),TRUNC((ROW()-ROW($R$1))/ROWS($A$1:$A$6)),1,1),"")
պատասխանել
0
0
Miguel
Miguel     Phil
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դանգ, հիմա չի ստացվում: Փորձել եմ նոր ներդիրում, բայց այժմ վերադարձել է սյունակների բովանդակությունը մեկում մեկում՝ սկզբնական տողի բովանդակության փոխարեն:
պատասխանել
0
0
Miguel
Miguel     Phil
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չեղարկեք վերջինը, բաց թողեցի կտրված քայլը:
պատասխանել
0
0
Սիերա Սմիթ
Սիերա Սմիթ     Phil
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես գիտեմ, որ դուք պատասխանել եք այս հարցին շատ վաղուց, բայց կարո՞ղ եք բացատրել, թե կոնկրետ ինչ է անում այս ֆունկցիայի յուրաքանչյուր մաս:
պատասխանել
0
0
Արեւոտ
Արեւոտ     Jon
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Միգուցե այս ձեռնարկը կարող է օգնել ձեզ: https://www.extendoffice.com/documents/excel/3327-excel-convert-multiple-rows-to-columns.html
պատասխանել
հաշվետվություն
0
0
John Smith
John Smith
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
սա պարզապես սեղմում է վճարող ծրագրաշարը ներբեռնելու համար
պատասխանել
0
0
Արեւոտ
Արեւոտ     John Smith
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Առաջին ներբեռնումը անվճար կլինի 60 օրից, որից հետո դուք կարող եք որոշել վճարել օգտագործման համար, թե ոչ:
պատասխանել
հաշվետվություն
0
0
բադուշա
բադուշա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, վերը նշված տվյալները հետևյալ ձևին փոխարկելու համար կա՞:
1
A
Lilly
2
B
Judy
...
պատասխանել
0
0
Արեւոտ
Արեւոտ     բադուշա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն ձեր թողած հաղորդագրության համար, այս ձեռնարկը https://www.extendoffice.com/documents/excel/5401-excel-stack-columns-into-one-column.html
խոսում է այն մասին, թե ինչպես լուծել այս խնդիրը, կարող եք գնալ դիտելու:
պատասխանել
հաշվետվություն
0
0
Գյոքչեն
Գյոքչեն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ տվյալներ, որոնք ավարտվում են նույն տողով, բայց մի քանի սյունակներով, որոնցում ես ցանկանում եմ, որ դրանք տեղադրվեն հաջորդականությամբ, որտեղ B սյունակի տվյալները կգտնվեն A սյունակի տվյալների տակ, որտեղ տվյալները ավարտվում են A սյունակի և C սյունակի տվյալների համար՝ A սյունակի տվյալների տակ: որտեղ ավարտվում են B սյունակի տվյալները և այլն: Այս կերպ ես կունենամ տվյալներ մի քանի սյուներից՝ մեկ սյունակի մեջ տեղավորելու համար: Ինչպե՞ս կարող եմ դա անել:
պատասխանել
հաշվետվություն
0
0
Tom
Tom
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, կա՞ միջոց բանաձևը անտեսելու որևէ դատարկ բջիջ, որը կարող է պարունակել ձեր տվյալները:


=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1),


Ես օգտագործում եմ օգնական թերթիկ՝ տվյալների վավերացման բացվող ցուցակի համար հարակից ցուցակ ստեղծելու համար: Նախապես շնորհակալություն.
պատասխանել
0
0
Արեւոտ
Արեւոտ     Tom
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես բանաձևի մեջ լավ չեմ, միգուցե կարող եք փորձել օգտագործել Kutools-ը Excel-ի համար «Ընտրել ոչ դատարկ բջիջներ» ծրագիրը՝ սկզբում դատարկ բջիջները ընտրելու և դրանք մեկ այլ վայրում պատճենելու և տեղադրելու համար, ապա օգտագործել վերը նշված մեթոդները:
պատասխանել
հաշվետվություն
0
0
Քրիս Բլեքբերն
Քրիս Բլեքբերն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես ցանկանում եմ այս հարցում մի քայլ առաջ գնալ: Ես օգտագործել եմ Stack Multiple Columns Into One With VBA, կոդը և սա աշխատում է: Ես օգտագործել եմ Աղյուսակները որպես այս կոդով աղբյուր և ստանում եմ ցուցակը: Մակրո գործարկումն ավտոմատացնելու միջոց կա՞: Այսպիսով, երբ ես աղյուսակում նոր մուտք եմ ավելացնում, Մակրոն ավտոմատ կերպով գործարկվի և ստացված ցուցակը թարմացվի:
պատասխանել
հաշվետվություն
0
0
Արեւոտ
Արեւոտ     Քրիս Բլեքբերն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Քրիս Բլեքբերն, կներեք, ես վախենում եմ, որ չեմ կարող գտնել կոդը, որը կարող է ավտոմատ կերպով գործարկել արդյունքը թարմացնելու համար, գուցե մեկ ուրիշը կարողանա:
պատասխանել
հաշվետվություն
0
0
tom
tom
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ դա անել շատ մեծ աղյուսակի վրա (100 սյունակներ և տողեր, որոնք բոլորը կապված են բանաձևերի հետ: Իմ excel-ը կշարունակի բեռնել և վերջիվերջո գնալու է չպատասխանելու: Կա՞ որևէ միջոց սա անցնելու համար: Շնորհակալություն:
պատասխանել
0
0
Արեւոտ
Արեւոտ     tom
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Թոմ, ո՞ր մեթոդը չի աշխատում Երրորդ մեթոդը, փոխակերպման միջակայքի գործիքը պետք է աշխատի:
պատասխանել
հաշվետվություն
0
0
Սյուզան Միլարդ
Սյուզան Միլարդ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործում եմ Stack Multiple Columns Into One With Formula մեթոդը և այն հիանալի աշխատեց, բայց ես ուզում եմ, որ այն պահպանի ձևաչափումը, այսինքն՝ որոշ սյունակներ թավ էին, իսկ 1-ը՝ հիպերհղումներ: Կա՞ ինչ-որ բան, որը կարելի է ավելացնել բանաձևին, որպեսզի դա տեղի ունենա:
պատասխանել
0
0
Արեւոտ
Արեւոտ     Սյուզան Միլարդ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Սյուզան Միլարդ, նրանց բանաձևը կարող է բավարարել ձեր կարիքը, կարող եք օգտագործել VBA կամ Transpose Range գործիքը, երկուսն էլ կարող են բավարարել ձեզ:
պատասխանել
հաշվետվություն
0
0
Աշֆակ
Աշֆակ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, շատ, բանաձևի տարբերակը շատ լավ աշխատեց: Դուք խնայեցիք իմ շատ ժամանակը:
պատասխանել
0
0
Ryan
Ryan
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն բանաձևի և VBA-ի համար, բայց ոչ մեկը չի անում այն, ինչ գրառման վերնագիրն է ասում: Ես ակնկալում էի, որ նրանք կկազմեն սյունակները, բայց փոխարենը նրանք յուրաքանչյուր տող տեղափոխում են սյունակի մեջ և կուտակում դրանք... այնպես որ դա շարում է փոխադրված տողերը, ոչ թե սյունակները: Դեռևս շատ օգտակար է որոշ դեպքերում, բայց որևէ մեկը գիտի՞, թե ինչպես փոփոխել բանաձևը և/կամ VBA-ն՝ սյունակները իրականում կուտակելու համար: Ենթադրում եմ, որ կարող էի փոխանցել ամբողջ մուտքային տիրույթը, ապա օգտագործել դրանք...
պատասխանել
0
0
Alfred
Alfred
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նրանց համար, ովքեր ցանկանում են սյունակները մեկում դնել, բայց ոչ տողերը մեկում, դուք պետք է հստակ պատկերացում ունենաք այն մասին, թե իրականում ինչ եք ուզում անել: Ենթադրենք, որ ունեք 3x3 զանգված, դուք ցանկանում եք, որ ձեր ինդեքս() ֆունկցիան ստանա մուտքագրումներ հետևյալի տեսքով: (տող, սյունակ) (1,1), (2,1), (3,1), այնուհետև (1,2), (2,2), (3,2) և այլն: Այսպիսով, ինչ եք ուզում անելու համար պետք է ունենալ index()՝ վերաբերելու մեկ սյունակին, որը պարունակում է բոլոր տողերի համարները (1;2;3;1;2;3;1;2;3) և մեկ սյունակ, որը պարունակում է բոլոր սյունակների համարները (1;1): ;1;2;2;2;3;3;3): (1;2;3;1;2;3;1;2;3) ստանալու համար ընդհանուր ծրագրավորման մոտեցումն է օգտագործել 1+mod(some_counter): -1,3) որտեղ mod() ֆունկցիան տալիս է մնացորդները 0,1,2,0,1,2,...
(1;1;1;2;2;2;3;3;3) ստանալու համար օգտագործվում է 1+int((որոշ_հակառակ-1)/3), որտեղ այն տալիս է 1+0, 1+0, 1+0: , 1+1, 1+1, 1+1, 1+2, 1+2, 1+2
Հետևաբար, 3x3 զանգվածը մեկում կուտակված ստանալու համար օգտագործում եք բանաձևը (սեղմեք Ctrl +Shft + Enter):=index($A$1:$C$3, 1+mod(տող(A1)-1,3), 1 +int((տող(A1)-1)/3))) որտեղ տողը (A1) ծառայում է որպես հաշվիչ, երբ դուք լրացնում եք ձեր բանաձևը դեպի ներքև
Եթե ​​այն դնեք հակառակ կողմը (շարք սյունակներից, սյունակներից տողից), դուք կստանաք տողեր՝ կուտակված մեկ սյունակի մեջ=INDEX( $A$1:$C$3, 1+INT((ROW(A1)-1)/ 3), 1 + MOD (ROW (A1) - 1,3)), որն ըստ էության այն է, ինչ անում է այս հոդվածի բանաձևը

Մի խոսքով, զանգվածի սյունակները մեկ սյունակում դասավորելու համար օգտագործվող բանաձևը կլինի հետևյալը. )/Ձեր_զանգվածի_սյունակների_քանակը)))
պատասխանել
0
0
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հյուր
Հրապարակում որպես հյուր
Մուտք
×
Գնահատեք այս գրառումը.
Նորից դնել
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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