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

Ինչպե՞ս Excel- ում բաժանել ստորակետերով առանձնացված արժեքները տողերի կամ սյունակների:

Որոշ դեպքերում կարող է անհրաժեշտ լինել ընտրված բջիջների ստորակետերով առանձնացված արժեքները տողերի կամ սյունակների բաժանել: Այստեղ մենք ձեզ կներկայացնենք երեք մեթոդ `այս խնդիրը մանրամասնորեն լուծելու համար:

Բաժանեք ստորակետերով առանձնացված արժեքները սյունակների ՝ Text to Columns գործառույթով
Կտակներով բաժանված արժեքները տողերի են բաժանվում VBA կոդով
Excel- ի համար Kutools- ով արագ բաժանեք ստորակետերով առանձնացված արժեքները տողերի կամ սյունակների


Բաժանեք ստորակետերով առանձնացված արժեքները սյունակների ՝ Text to Columns գործառույթով

Դուք կարող եք կիրառել Text to Columns ֆունկցիան ՝ ընտրված բջիջները ստորակետերով առանձնացված արժեքները սյունների բաժանելու համար: Խնդրում եմ արեք հետևյալ կերպ.

1. Ընտրեք այն բջիջների շրջանակը, որը ցանկանում եք բաժանել արժեքները սյունակների, ապա կտտացնել Ամսաթիվ > Տեքստը սյունակներում, Տեսեք,

2. Առաջինում Փոխարկել տեքստը սյունակների մոգ երկխոսության տուփ, ընտրեք Դիմակավորված տարբերակը, ապա կտտացրեք հաջորդ կոճակը:

3. Երկրորդում Փոխարկել տեքստը սյունակների մոգ երկխոսության տուփ, միայն ստուգեք Կոմբին տուփի մեջ Սահմանազատողներ բաժինը և սեղմել հաջորդ կոճակը:

4. Վերջինում Փոխարկել տեքստը սյունակների մոգ երկխոսության տուփ, ընտրեք բջիջ `պառակտման արժեքները տեղակայելու համար նշանակման վայր տուփը և վերջապես կտտացրեք այն Ավարտել կոճակ Տեսեք,

Այժմ ընտրված բջիջներում բոլոր արժեքները, որոնք բաժանված էին ստորակետերով, բաժանվում են տարբեր սյունակների, ինչպես ցույց է տրված նկարում:

Սովորաբար, Տեքստ սյունակներին առանձնահատկությունը միայն բջիջները բաժանում է առանձին սյունակների, եթե ուզում եք բջիջները տողերի բաժանել, ինչպե՞ս կարող եք անել:
Այստեղ Excel- ի համար նախատեսված գործիքներ's Պառակտված բջիջներ օգտակար ծրագիրը կարող է օգնել արագ տրոհել բջիջները տարածության, ստորակետի, նոր տողի, այլ բաժանարարների կամ որոշակի լայնության մեջ ոչ միայն առանձնացված շարքերում, այլ Excel- ի սյունակների մեջ: Ներբեռնեք Kutools-ը Excel-ի համար հիմա: (30 օր անվճար արահետ)


Կտակներով բաժանված արժեքները տողերի են բաժանվում VBA կոդով

Ստորակետերով առանձնացված արժեքները տողերի բաժանելու համար կարող եք կիրառել հետևյալ VBA կոդը:

1. Սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:

VBA կոդ. Բաժանելով ստորակետով առանձնացված արժեքները տողերի

Sub SplitAll()
	Dim xRg As Range
	Dim xRg1 As Range
	Dim xCell As Range
	Dim I As Long
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim xRet As Variant
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Columns.Count > 1 Then
			MsgBox "You can't select multiple columns", , "Kutools for Excel"
			Exit Sub
			End If
			Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)
			Set xRg1 = xRg1.Range("A1")
			If xRg1 Is Nothing Then Exit Sub
				xUpdate = Application.ScreenUpdating
				Application.ScreenUpdating = False
				For Each xCell In xRg
					xRet = Split(xCell.Value, ",")
					xRg1.Worksheet.Range(xRg1.Offset(I, 0), xRg1.Offset(I + UBound(xRet, 1), 0)) = Application.WorksheetFunction.Transpose(xRet)
					I = I + UBound(xRet, 1) + 1
				Next
				Application.ScreenUpdating = xUpdate
			End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք այն բջիջները, որոնք ցանկանում եք բաժանել, ապա կտտացնել OK կոճակը:

4. Երկրորդում `դուրս գալով Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք բջիջ ՝ պառակտման արժեքները գտնելու համար, ապա կտտացրեք OK.

Դրանից հետո դուք կարող եք տեսնել, որ ընտրված բջիջներում ստորակետերով առանձնացված արժեքները բաժանված են տողերի, ինչպես ցույց է տրված նկարներից ներքևում:


Excel- ի համար Kutools- ով արագ բաժանեք ստորակետերով առանձնացված արժեքները տողերի կամ սյունակների

The Պառակտված բջիջներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ հեշտությամբ բաժանել ստորակետերով առանձնացված արժեքները տողերի կամ սյունակների:

1. Ընտրեք այն բջիջները, որոնք պետք է բաժանեք, ապա կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Պառակտված բջիջներ, Տեսեք,

2. Մեջ Պառակտված բջիջներ երկխոսության տուփ, ընտրեք Բաժանվել շարքերում or Բաժանել սյունակների է Տիպ բաժինը, ինչպես ձեզ հարկավոր է: Եվ Նշեք տարանջատիչ բաժինը, ընտրեք այլ տարբերակը, ստորակետի նշանը մուտքագրեք տեքստային տուփ, այնուհետև կտտացրեք այն OK կոճակ Տեսեք,

3. Եվ այնուհետև դուրս կգա մեկ այլ արագ տուփ ՝ հիշեցնելու համար, որ դուք ընտրեք բջիջ արդյունքը դուրս բերելու համար, տես նկարի նկարը.

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

Բաժանել սյունակների

Բաժանվել շարքերում

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Դեմո. Արագորեն բաժանեք ստորակետերով առանձնացված արժեքները Excel- ի համար Kutools- ով տողերի կամ սյունակների

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

🤖 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 (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
A jak zmienić kod żeby nie pytał o ustawienie się w A1 i potem aby wynik był np też od A1 w dół
This comment was minimized by the moderator on the site
Hi Bartek,
You mean don't want to pop up the second dialog to select the target cell, and want to specify the target cell in the code directly?
If so, you need to change the following lines.
For example, you need to start outputting results from B1 and automatically fill down.
Please change this line:
Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)
to
Set xRg1 = Application.Range("B2")
And then remove the next line:
Set xRg1 = xRg1.Range("A1")
This comment was minimized by the moderator on the site
i still cant upload my csv into 365
This comment was minimized by the moderator on the site
Go to excel file Data option -> text to column->delimited -> Done
it will spit comma separated value into individual column
example
id name add
1 Ratnesh myAdd
2,Yog,myAdd
we will apply in the 2nd record it will split record like 1st records,
Thanks,
Ratnesh Sahu
This comment was minimized by the moderator on the site
Go to excel file Data option -> text to column->delimited -> Done
it will spit comma separated value into individual column
example

id name add

1 Ratnesh myAdd

2,Yog,myAdd


we will apply in the 2nd record it will split record like 1st records,


Thanks,
Ratnesh Sahu
This comment was minimized by the moderator on the site
Thanks it helped :)
This comment was minimized by the moderator on the site
This is amazing, thanks for making it free and easy to use!
This comment was minimized by the moderator on the site
Thank you!
This comment was minimized by the moderator on the site
Alternately for separating into rows, use the text to column steps and then copy & paste ->transpose to turn the columns into rows.
This comment was minimized by the moderator on the site
Thanks Jake! This is what I was looking for. :)
This comment was minimized by the moderator on the site
Good one, the utility help me a lot. Thanks for that... :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations