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

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

փաստաթուղթը ստորակետի արժեքները վերափոխի 1 ցուցակի

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

Ստորակետերով առանձնացված տեքստի տողը փոխակերպեք VBA կոդով տողերի

Excel- ի համար Kutools- ով ստորակետերով առանձնացված տեքստի տողը վերափոխեք տողերի


Ստորակետերով առանձնացված տեքստի տողը փոխակերպեք VBA կոդով տողերի

Հետևյալ VBA կոդը կարող է օգնել ձեզ վերափոխել ստորակետերով առանձնացված բջիջների արժեքները սյունակի, խնդրում ենք կատարել հետևյալը.

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

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

VBA կոդ. Վերափոխեք ստորակետերով առանձնացված տեքստի տողը տողերի կամ ցուցակի

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3, Դրանից հետո սեղմեք F5 ստեղնը այս կոդն աշխատեցնելու համար, դուրս եկած երկխոսության դաշտում ընտրեք տվյալների տիրույթը, որը ցանկանում եք փոխարկել, տե՛ս նկարը.

փաստաթուղթը ստորակետի արժեքները վերափոխի 2 ցուցակի

4, եւ սեղմեք OK, հետևյալ երկխոսության մեջ նշեք այն բջիջը, որտեղ ցանկանում եք արդյունքը դուրս բերել, տես նկարի նկարը.

փաստաթուղթը ստորակետի արժեքները վերափոխի 3 ցուցակի

5: Սեղմեք OK կոճակը, ընտրված ստորակետերով առանձնացված բջջային արժեքները վերափոխվել են տողերի ցուցակի: Տեսեք,

փաստաթուղթը ստորակետի արժեքները վերափոխի 4 ցուցակի


Excel- ի համար Kutools- ով ստորակետերով առանձնացված տեքստի տողը վերափոխեք տողերի

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

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

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում ենք անել հետևյալ քայլերով.

1, Ընտրեք ստորակետերի բաժանարարի հիման վրա ընտրված բջիջների արժեքները, որոնք ցանկանում եք վերափոխել տողերի:

2. Այնուհետեւ կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Պառակտված բջիջներ, տես նկարի նկարը.

3, Մեջ Պառակտված բջիջներ երկխոսության տուփ, ընտրեք Բաժանվել շարքերում տարբերակով Տիպ բաժնում, ապա ՝ Նշեք տարանջատիչ հատված, ստուգել այլ վանդակը և այնուհետև ստորակետը մուտքագրեք տեքստի տուփի մեջ, տես նկարի նկարը.

doc- ը ստորակետի արժեքները վերափոխի ցուցակի 6 6

4. Այնուհետեւ կտտացրեք Ok, և մեկ այլ երկխոսություն կհայտնվի ՝ հիշեցնելու համար, որ բջիջ եք ընտրում արդյունքը դնելու համար, տես նկարի նկարը.

փաստաթուղթը ստորակետի արժեքները վերափոխի 7 ցուցակի

5. Եվ այնուհետեւ կտտացրեք Ok կոճակը, ստորակետերով առանձնացված բջիջները բաժանվել են բազմաթիվ շարքերի ՝ հիմնվելով ստորակետի բաժանարարի վրա, տես նկարի նկարը.

փաստաթուղթը ստորակետի արժեքները վերափոխի 8 ցուցակի

Կտտացրեք ՝ Պառակտված բջիջների այս հատկության մասին ավելին իմանալու համար

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Դեմո. Ստորակետերով առանձնացված տեքստի տողը փոխեք տողերի Excel- ի համար Kutools- ով

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

Առնչվող հոդվածներ քանակը:

Ինչպե՞ս բջիջները բաժանել բազմակի սյունների կամ շարքերի ՝ փոխադրման վերադարձով:

Ինչպե՞ս 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!
This comment was minimized by the moderator on the site
update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

Sub RedistributeCommaDelimitedData_singleCell()

'Updateby Extendoffice 201592

Dim xArr() As String

Dim xAddress As String

Dim Rg As Range

Dim Rg1 As Range

On Error Resume Next

xAddress = Application.ActiveWindow.RangeSelection.Address

Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

If Rg Is Nothing Then Exit Sub

Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

If Rg Is Nothing Then Exit Sub

Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

If Rg1 Is Nothing Then Exit Sub



' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

' replace with this for single input cell for Rg:

xArr = Split(Rg.value, ",")

Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

Rg1.Parent.Activate

Rg1.Resize(UBound(xArr) + 1).Select



End Sub
This comment was minimized by the moderator on the site
I have a cell with 667 characters, of which 119 are commas.With this VBA code I can't split. Can you help me please?Thank you very much!
This comment was minimized by the moderator on the site
Hi, I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations