Ինչպե՞ս Excel- ում երկար սյունը բաժանել բազմաթիվ սյունակների:
VBA- ի հետ բաժանեք երկար սյունը բազմաթիվ սյունակների
Excel- ի համար Kutools- ով երկար սյուն բաժանեք բազմաթիվ սյունակների
VBA- ի հետ բաժանեք երկար սյունը բազմաթիվ սյունակների
1. Մամուլ Alt + F11 ստեղները միասին բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ և պատճենեք հետևյալ VBA կոդը ՝ դուրս եկած պատուհանից:
VBA. Երկար սյունը բաժանեք բազմաթիվ սյունակների:
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3: սեղմեք Վազում կոճակը կամ սեղմել F5 VBA գործարկման ստեղնը, և տվյալների ցանկը ընտրելու համար դուրս եկավ երկխոսություն, ապա կտտացրեք OK գնալու համար հաջորդ սյունակում նշելու համար, թե մեկ սյունակում քանի տող է անհրաժեշտ, ապա կտտացրեք OK և ընտրեք բջիջ արդյունքը դուրս բերելու համար: Տեսեք սքրինշոթերը.
4: սեղմեք OK, ապա կտեսնեք, որ երկար սյունը բաժանված է բազմաթիվ սյունակների, և յուրաքանչյուր սյուն ունի 15 բջիջ:
Excel- ի համար Kutools- ով երկար սյուն բաժանեք բազմաթիվ սյունակների
Գուցե ձեզանից ոմանք չեն սիրում օգտագործել VBA կոդ, բարեբախտաբար, կարող եք օգտագործել այն Փոխակերպել շարքը օգտակարությունը Excel- ի համար նախատեսված գործիքներ արագ և հեշտությամբ փոխել երկար սյունը ֆիքսված թվով սյունակների:
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)
1. Ընտրեք սյունակի տվյալները, որոնք ցանկանում եք բաժանել, ապա կտտացրեք Կուտոլս > Շարք > Փոխակերպել շարքը, Տեսեք,
2. pedածկած երկխոսության մեջ ստուգեք Մեկ սյունակ ՝ ընդգրկույթի համար տարբերակ, ապա ստուգեք Հաստատուն արժեք տարբերակը և մուտքագրեք անհրաժեշտ սյունակների քանակը տեքստային տուփի մեջ: Տեսեք,
3: սեղմեք Ok և ընտրեք մեկ բջիջ `բաժանված տվյալները դուրս բերելու համար: Տեսեք,
4: սեղմեք OK գործառնություններն ավարտելու համար: Այժմ երկար սյունի տվյալները բաժանվել են երեք սյունակների:
Արդյո՞ք դա ավելի հեշտ է, քան VBA կոդը: Թվերափոխել տեսականին օգտակար, դուք կարող եք տողը վերածել տիրույթի, միջակայքը տողի կամ մեկ սյունակի:
Տեղափոխեք մեկ սյունակ / շարքը միջակայքում կամ հակառակը
Արագ բաժանեք մեկ բջիջ սյունակների կամ տողերի ՝ բաժանարարի հիման վրա
|
Excel- ում բջիջը սյունների բաժանելն աստիճանաբար ձանձրալի է կախարդի հետ: Բայց դրանով Excel- ի համար նախատեսված գործիքներ's Պառակտված բջիջներ կոմունալ, կարող եք ՝ 1, մեկ բջիջը վերափոխել սյունակների կամ տողերի, որոնք հիմնված են բաժանարարի վրա. 2, տողը փոխարկել տեքստի և համարի; 3, վերափոխեք տողը ՝ հիմնվելով հատուկ լայնության վրա, կտտոցներով: Կտտացրեք լիարժեք 30 օր անվճար փորձաշրջանի համար: |
Excel- ի համար նախատեսված գործիքներ. Ավելի քան 300 հարմար Excel հավելվածներով, 30 օրում առանց սահմանափակումների անվճար փորձեք: |
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: