Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս բաժանվել բաժանարարի միջոցով և Excel- ում բջիջները տեղափոխել:

Այս հոդվածում ես ներկայացնում եմ որոշակի բաժանարարի միջակայքը բաժանելու և այն Excel- ում տեղափոխելու եղանակները, ինչպես ցույց է տրված ստորև նկարված նկարում: Եթե ​​դուք հետաքրքրված եք այս առաջադրանքով, խնդրում ենք անցնել ստորև ներկայացված մանրամասներին:
doc spliy տեղափոխել 1

Տրոհեք և փոխադրեք VBA- ով

Excel- ի համար բաժանեք և տեղափոխեք Kutools


նետ կապույտ աջ պղպջակ Տրոհեք և փոխադրեք VBA- ով

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

1. Մամուլ Alt + F11 ցուցադրման ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևում տեղադրեք կոդը նորի վրա Մոդուլներ պատուհան.

VBA. Պառակտում և տեղափոխում

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. Մամուլ F5 Կոդը գործարկելու համար ստեղնաշար է, որը ձեզ համար բացվում է երկխոսություն ՝ ընտրելու համար միջակայք բաժանելու և տեղափոխելու համար:
doc spliy տեղափոխել 2

4: սեղմեք OK, Տվյալները տեղադրելու վայր ընտրելու համար բացվում է երկխոսություն:
doc spliy տեղափոխել 3

5: սեղմեք OK, և ընտրությունը բաժանվել և տեղափոխվել է ստորակետով:
doc spliy տեղափոխել 4

Նշում: ծածկագրում, ստորակետը՝ մեջ strTxt & "," և ary = Split (strTxt, ",") այն սահմանազատիչն է, որի հիման վրա կբաժանեք տվյալները, դուք կարող եք դրանք փոխել ըստ անհրաժեշտության:


նետ կապույտ աջ պղպջակ Excel- ի համար բաժանեք և տեղափոխեք Kutools

հետ Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք կիրառել դրա Պառակտված բջիջներ նախ բաժանեք բջիջները բաժանարարով, ապա կիրառեք այն Փոխակերպել շարքը օգտակար բջիջները մեկ սյունի վերածելու համար:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

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

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

2. Մեջ Պառակտված բջիջներ երկխոսություն, ստուգում Բաժանել սյունակների տարբերակը, ապա նշեք այն սահմանազատիչը, որի հիման վրա ուզում եք բաժանել, կտտացրեք Ok, Եվ ընտրեք դատարկ բջիջ, որպեսզի արդյունքը տեղադրվի երկրորդում Պառակտված բջիջներ երկխոսություն Տեսեք,
doc spliy տեղափոխել 6

3: սեղմեք OK, ապա բջիջները բաժանվել են սյունակների և սեղմել Կուտոլս > Շարք > Փոխակերպել շարքը, Տեսեք,
doc spliy տեղափոխել 7

4. Մեջ Փոխակերպել շարքը երկխոսություն, ստուգում Շարքը մինչև մեկ սյունակՀամար Ok, և ընտրեք բջիջ արդյունքը տեղադրելու համար: Տեսեք,
doc spliy տեղափոխել 8

5: սեղմեք OK, այժմ ընդգրկույթը տեղափոխվել է մեկ սյունակ:
doc spliy տեղափոխել 9

Հուշում Եթե ​​ցանկանում եք ունենալ անվճար փորձարկում Պառակտված բջիջներ և Փոխակերպել շարքը գործառույթներ, խնդրում ենք այցելել անվճար Kutools Excel- ի համար նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (4)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք գրել եք. Նշում. կոդում ստորակետը aray = Split(strTxt, ",") այն սահմանազատիչն է, որի հիման վրա կբաժանեք տվյալները, կարող եք փոխել այն ըստ անհրաժեշտության:

Լրացուցիչ գործողություն.
փոխեք նաև անջատիչ «», կոդի բաժնում՝

<Else
strTxt = strTxt & "," & yRg.Text
Վերջ Եթե>

Փոխել «», -ի (օրինակ «;»)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ռիչարդ Հելեն, շնորհակալություն հիշեցման համար: Ես թարմացրել եմ ծանուցումը։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Տվյալներն ըստ տողերի բաժանելու և տողերը սյունակ տեղափոխելու միջոց կա՞ միաժամանակ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, E, խնդրում եմ նկարագրեք ձեր խնդիրը ավելի մանրամասն, ավելի լավ է որոշ օրինակներ:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից