Ինչպե՞ս վերափոխել ստորակետերով առանձնացված տեքստի տողը Excel- ում ցուցակի կամ տողերի:
Ենթադրելով, որ դուք ունեք բջջային արժեքների ցուցակ, որոնք բաժանված են ստորակետերով, այժմ դուք պետք է վերափոխեք այս ստորակետերով առանձնացված տեքստի տողերը բազմակի տողերի կամ սյունակի, ինչպես ցույց է տրված հետևյալ նկարը: Ինչպե՞ս կարող է 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 ստեղնը այս կոդն աշխատեցնելու համար, դուրս եկած երկխոսության դաշտում ընտրեք տվյալների տիրույթը, որը ցանկանում եք փոխարկել, տե՛ս նկարը.
4, եւ սեղմեք OK, հետևյալ երկխոսության մեջ նշեք այն բջիջը, որտեղ ցանկանում եք արդյունքը դուրս բերել, տես նկարի նկարը.
5: Սեղմեք OK կոճակը, ընտրված ստորակետերով առանձնացված բջջային արժեքները վերափոխվել են տողերի ցուցակի: Տեսեք,
Excel- ի համար Kutools- ով ստորակետերով առանձնացված տեքստի տողը վերափոխեք տողերի
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Պառակտված բջիջներ օգտակար, դուք կարող եք արագ բաժանել ստորակետերով առանձնացված բջիջների արժեքները բազմաթիվ տողերի կամ սյունակների ՝ հիմնվելով ստորակետերի բաժանարարի վրա, որքան ձեզ հարկավոր է:
Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում ենք անել հետևյալ քայլերով.
1, Ընտրեք ստորակետերի բաժանարարի հիման վրա ընտրված բջիջների արժեքները, որոնք ցանկանում եք վերափոխել տողերի:
2. Այնուհետեւ կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Պառակտված բջիջներ, տես նկարի նկարը.
3, Մեջ Պառակտված բջիջներ երկխոսության տուփ, ընտրեք Բաժանվել շարքերում տարբերակով Տիպ բաժնում, ապա ՝ Նշեք տարանջատիչ հատված, ստուգել այլ վանդակը և այնուհետև ստորակետը մուտքագրեք տեքստի տուփի մեջ, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք Ok, և մեկ այլ երկխոսություն կհայտնվի ՝ հիշեցնելու համար, որ բջիջ եք ընտրում արդյունքը դնելու համար, տես նկարի նկարը.
5. Եվ այնուհետեւ կտտացրեք Ok կոճակը, ստորակետերով առանձնացված բջիջները բաժանվել են բազմաթիվ շարքերի ՝ հիմնվելով ստորակետի բաժանարարի վրա, տես նկարի նկարը.
Կտտացրեք ՝ Պառակտված բջիջների այս հատկության մասին ավելին իմանալու համար
Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:
Դեմո. Ստորակետերով առանձնացված տեքստի տողը փոխեք տողերի Excel- ի համար Kutools- ով
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս բջիջները բաժանել բազմակի սյունների կամ շարքերի ՝ փոխադրման վերադարձով:
Ինչպե՞ս Excel- ում բջջային արժեքները բաժանել բազմաթիվ սյունակների:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: