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

Ինչպե՞ս Excel- ում սյունակ բաժանել յուրաքանչյուր մյուս շարքում:

փաստաթուղթը բաժանեց յուրաքանչյուր մյուս շարքում 1

Օրինակ, ես տվյալների երկար ցուցակ ունեմ, և այժմ ուզում եմ սյունը բաժանել երկու ցուցակի հավասարապես յուրաքանչյուր մյուս շարքում, ինչպես ցույց է տրված հետևյալ նկարը: Excel- ում այս խնդրի լուծման լավ եղանակներ կա՞ն:

Յուրաքանչյուր մյուս շարքում սյունակ բաժանեք Բանաձևերով

Յուրաքանչյուր մյուս շարքում սյունակ բաժանեք VBA կոդով

Excel- ի համար Kutools- ով յուրաքանչյուր մյուս շարքում սյուն բաժանեք

նետ կապույտ աջ պղպջակ Յուրաքանչյուր մյուս շարքում սյունակ բաժանեք Բանաձևերով

Հետևյալ բանաձևերը կարող են օգնել ձեզ սյունը արագորեն բաժանել երկու սյունակի ըստ յուրաքանչյուր մյուս շարքի, կատարեք հետևյալը.

1, Այս բանաձևը մուտքագրեք դատարկ բջիջ, C2, օրինակ ՝ =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), տես նկարի նկարը

փաստաթուղթը բաժանեց յուրաքանչյուր մյուս շարքում 2

2, Դրանից հետո քաշեք լրացման բռնակը ներքև, մինչև սխալները ցուցադրվեն բջիջներում, տես նկարի նկարը.

փաստաթուղթը բաժանեց յուրաքանչյուր մյուս շարքում 3

3, Դրանից հետո մուտքագրեք մեկ այլ բանաձև D2 բջիջում, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2), և լրացնելու բռնիչը ներքև քաշեք դեպի բջիջները, մինչև որ հայտնվեն սխալի արժեքները, և սյունակի արժեքները բաժանվեն երկու սյունակների յուրաքանչյուր մյուս շարքում, տե՛ս նկար

փաստաթուղթը բաժանեց յուրաքանչյուր մյուս շարքում 4

նետ կապույտ աջ պղպջակ Յուրաքանչյուր մյուս շարքում սյունակ բաժանեք VBA կոդով

Եթե ​​դուք հետաքրքրված եք VBA կոդով, ապա ես կարող եմ խոսել այդ խնդրի լուծման համար ձեզ համար նախատեսված կոդի մասին:

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

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

VBA կոդ. Յուրաքանչյուր հաջորդ շարքում սյունը բաժանեք երկու սյունակի

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք բաժանել:

փաստաթուղթը բաժանեց յուրաքանչյուր մյուս շարքում 5

4, եւ սեղմեք OK, փակցվում է մեկ այլ արագ տուփ, որը թույլ է տալիս ընտրել բջիջ արդյունքը դնելու համար, տես նկարի նկարը.

փաստաթուղթը բաժանեց յուրաքանչյուր մյուս շարքում 6

5. Այնուհետեւ կտտացրեք OK, և յուրաքանչյուր մյուս շարքում սյունը բաժանվել է երկու սյունակի: Տեսեք,

փաստաթուղթը բաժանեց յուրաքանչյուր մյուս շարքում 7

նետ կապույտ աջ պղպջակ Excel- ի համար Kutools- ով յուրաքանչյուր մյուս շարքում սյուն բաժանեք

Եթե ​​ցանկանում եք ավելին իմանալ նոր բաների մասին, ես կարող եմ առաջարկել հզոր գործիքExcel- ի համար նախատեսված գործիքներԻր Փոխակերպել շարքը օգտակար, դուք կարող եք արագ վերափոխել մեկ տող կամ սյուն մի շարք բջիջների և հակառակը:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 
Անցեք Ներբեռնում
30 օրվա անվճար փորձարկումՁեռք բերել
PayPal / MyCommerce

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

1, Ընտրեք սյունակի տվյալները, որոնք ցանկանում եք բաժանել երկու սյունակների ըստ յուրաքանչյուր մյուս շարքի:

2. Այնուհետեւ կտտացրեք Կուտոլս > Շարք > Փոխակերպել շարքը, տես նկարի նկարը.

3, Մեջ Փոխակերպել շարքը երկխոսության տուփ, ընտրեք Մեկ սյունակ ՝ ընդգրկույթի համար տակ Փոխակերպման տեսակը, Ապա ընտրել Հաստատուն արժեք եւ մուտքագրեք 2 արկղի մեջ Տողեր ըստ ռեկորդի բաժին, տես նկարի նկարը.

փաստաթուղթը բաժանեց յուրաքանչյուր մյուս շարքում 9

4. Այնուհետեւ կտտացրեք Ok կոճակը, և արագ տուփ դուրս կգա ՝ հիշեցնելու համար, որ ընտրեք այն բջիջը, որտեղ ցանկանում եք արդյունքը դուրս բերել, տե՛ս նկարը.

փաստաթուղթը բաժանեց յուրաքանչյուր մյուս շարքում 10

5: Սեղմեք OK, ցուցակի տվյալները յուրաքանչյուր երկրորդ շարքում բաժանվել են երկու սյունակի:

Սեղմեք ՝ այս Փոխակերպման տիրույթի օգտակարության մասին ավելին իմանալու համար:

Անվճար ներբեռնեք Kutools 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 (3)
No ratings yet. Be the first to rate!
Jas
Jas
This comment was minimized by the moderator on the site
How to do the opposite of this? Get two column info in one row ?
Reply
0
0
skyyang
skyyang     Jas
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
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

Please try, hope it can help you!
Reply
Report
0
0
Jeff
Jeff
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations