Turinys
Kartais, dirbant "Microsoft Excel , mums reikia išskaidyti kableliais atskirtas ištisines vieno stulpelio reikšmes į skirtingus stulpelius arba eilutes. Kai importuojame iš kitų programų sugeneruotus duomenis į "Excel", visi duomenys gali būti patalpinti viename stulpelyje; atskirti kableliu. Be to, mums gali prireikti išskirti tam tikrą duomenų dalį, atsižvelgiant į reikalavimus. Šis straipsnis padės jums išskaidyti kableliais atskirtas reikšmes į kelisstulpelius ir eilutes, naudodami kelias funkcijas ir ypatybes.
Atsisiųsti praktikos sąsiuvinį
Galite atsisiųsti pratybų sąsiuvinį, kurį naudojome rengdami šį straipsnį.
Kableliais atskirtų verčių skaidymas į eilutes arba stulpelius.xlsm5 kableliais atskirtų verčių padalijimo į eilutes arba stulpelius "Excel" programoje būdai
1. Atskirkite duomenis į eilutes / stulpelius kableliu naudodami "Excel" funkciją "Tekstas į stulpelius
1.1. Suskirstykite vertes į stulpelius
Pirmiausia naudosiu Tekstas į stulpelius "Excel" funkcija, skirta duomenims padalyti į kelis stulpelius. Tai paprasčiausias būdas atskirti duomenis į stulpelius. Tarkime, turime duomenų rinkinį, kuriame yra keletas vaisių, esančių stulpelyje ir atskirtų kableliu. 3 vaisius kiekviename langelyje. Dabar stulpelio vaisius padalysiu į B į 3 skirtingus stulpelius (stulpelius C , D & E ).
Atlikite toliau nurodytus veiksmus, kad atliktumėte užduotį.
Žingsniai:
- Pirmiausia pasirinkite visą duomenų rinkinį ir eikite į Duomenys > Duomenų įrankiai > Tekstas į stulpelius .
- Dėl to Teksto į stulpelius vedlys pasirodo. Dabar iš Pirminis duomenų tipas skyriuje pasirinkite Su ribomis ir spustelėkite Kitas .
- Tada iš Skiriamieji ženklai skirsnyje pažymėkite varnele Kablelis ir paspauskite Kitas .
- Po to pasirinkite Paskirties vieta vieta (čia, Ląstelė C5 ) ir paspauskite Apdaila .
- Galiausiai, uždarius Teksto į stulpelius vedlys , gausime toliau pateiktą rezultatą. Visi kableliais atskirti duomenys suskirstyti į stulpelius C , D , ir E .
Skaityti daugiau: Kaip padalyti vienos "Excel" ląstelės duomenis į kelis stulpelius (5 metodai)
1.2. Suskirstymas į eilutes naudojant tekstą į stulpelius
Dabar kableliu atskirtas reikšmes suskirstysiu į kelios eilutės Tarkime, turiu toliau pateiktą duomenų rinkinį, kuriame yra kai kurių vaisių pavadinimai. Prieš sudėdamas šias reikšmes į kelias eilutes, suskirstysiu jas į stulpelius naudodamas Tekstas į stulpelius funkcija.
Žingsniai:
- Pirmiausia pasirinkite Ląstelė B5 , eikite į Duomenys > Tekstas į stulpelius .
- Tada iš Teksto į stulpelius vedlys pasirinkite Pirminis duomenų tipas : Su ribomis ir spustelėkite Kitas .
- Dabar pasirinkite Skiriamieji ženklai tipas: Kablelis ir spustelėkite Kitas .
- Po to pasirinkite Paskirties vieta ląstelė (čia Ląstelė C5 ) ir paspauskite Apdaila .
- Dėl to gausite toliau pateiktą išvestį. Dabar gautus duomenis išdėstysiu keliose eilutėse. Tam nukopijuokite diapazoną C5:G5 .
- Vėliau dešiniuoju pelės klavišu spustelėkite Ląstelė B7 ir pasirinkite Transponuoti iš Įklijuoti parinktys (žr. ekrano nuotrauką).
- Galiausiai gausime rezultatą, kurio ieškojome - visos kableliais atskirtos reikšmės bus suskirstytos į eilutes 7 į 11 .
Skaityti daugiau: Kaip padalyti duomenis "Excel" programoje (5 būdai)
2. "Excel Power Query" užklausa kableliais atskirtoms vertėms padalyti į stulpelius arba eilutes
2.1. "Power Query" užklausa, skirta suskirstyti vertes į stulpelius
Šį kartą naudosiu "Excel "Power Query" užklausa padalyti kableliais atskirtus duomenis į kelis stulpelius. Norėdami atlikti šią užduotį, vadovaukitės toliau pateiktais nurodymais.
Žingsniai:
- Pirmiausia pastatykite žymeklį į bet kurį esamo duomenų rinkinio langelį. Tada eikite į Duomenys > Iš lentelės / diapazono ( Gauti ir transformuoti duomenis grupė).
- Todėl "Excel" paprašys jūsų konvertuoti duomenų intervalą į lentelę. Pažymėkite duomenų intervalą ir paspauskite GERAI sukurti lentelę.
- Dėl to "Power Query Editor rodomas langas su toliau pateikta lentele. Dabar iš "Power Query Editor langas eikite į Pagrindinis > Padalyti stulpelį > Pagal Delimiter .
- Po to Skirstyti stulpelį pagal skirtuką rodomas dialogo langas. Pasirinkite Kablelis iš Pasirinkite arba įveskite skirtuką ir paspauskite GERAI (žr. ekrano nuotrauką).
- Todėl "Excel" padalina lentelę į 3 stulpelius, kaip nurodyta toliau. Dabar, norėdami uždaryti "Power Query Editor , eikite į Pagrindinis > Uždaryti & amp; Įkelti > Uždaryti & amp; Įkelti .
- Galiausiai pateikiame galutinį gautą rezultatą. Visi kableliais atskirti duomenys suskirstomi į 3 lentelės stulpelius.
Skaityti daugiau: Kaip "Excel" padalyti duomenis į kelis stulpelius
2.2. Duomenų skaidymas į eilutes
Čia kableliu atskirtas reikšmes suskirsiu į kelias eilutes naudodamas "Excel Power Query" užklausa .
Žingsniai:
- Turime keletą kableliais atskirtų vaisių Ląstelė B5 & C5 . Taikyti "Power Query" užklausa prie šių verčių, spustelėkite Ląstelė B5 arba C5 ir eikite į Duomenys > Iš lentelės / diapazono .
- Toliau Sukurti lentelę bus rodomas dialogo langas, patikrinkite lentelės diapazoną ir paspauskite GERAI . Todėl toliau pateikta lentelė bus sukurta "Power Query Editor langas.
- Tada pasirinkite lentelę, eikite į Pagrindinis > Padalyti stulpelį > Pagal Delimiter .
- Dabar Skirstyti stulpelį pagal skirtuką rodomas dialogo langas. Pasirinkite arba įveskite skirtuką pasirinkite skyrių Kablelis , eikite į Išplėstinės parinktys ir spustelėkite Eilutės iš lauko: Padalyti į . Kai baigsite, paspauskite GERAI .
- Paspaudus GERAI , gausime toliau pateiktą išvestį. Eikite į Pagrindinis > Uždaryti & amp; Įkelti > Uždaryti & amp; Įkelti rodyti rezultatą "Excel" darbalapyje.
- Galiausiai gavome tokį galutinį rezultatą. Visos kableliais atskirtos reikšmės suskirstytos į eilutes 2 į 7 .
3. Derinkite LEFT, RIGHT, MID, FIND & amp; LEN funkcijas kableliais atskirtoms reikšmėms padalyti į stulpelius
Kableliais atskirtiems duomenims suskirstyti į kelis stulpelius galime naudoti "Excel" funkcijas. Iš esmės, naudodami "Excel" funkcijų derinius pagal skirtuką (kablelis, tarpas, kabliataškis), galime išskirti duomenų dalis skirtinguose stulpeliuose. Šiuo metodu išskirsiu duomenis iš 3 pozicijas iš ištisinės teksto eilutės, esančios stulpelyje B ir sudėkite juos į kelis stulpelius.
3.1. Rasti pirmąjį žodį
Iš pradžių iš nepertraukiamo teksto eilutės išskirsiu pirmąjį žodį naudodamas LEFT ir RASTI funkcijos.
Žingsniai:
- Įveskite toliau pateiktą formulę Ląstelė C5 ir paspauskite Įveskite iš klaviatūros.
=LEFT(B5,FIND(",",", B5)-1)
- Įvedus formulę, "Excel" grąžins Datos ', kuris yra pirmasis žodis Ląstelė B5 .
Čia RASTI funkcija grąžina 1. kablelis. Tada LEFT funkcija išskiria pirmąjį žodį prieš pirmąjį kablelį.
3.2. Ištrauka 2-asis žodis
Dabar naudosiu derinį MID ir RASTI funkcijos, skirtos antrajam žodžiui išgauti iš Ląstelė B5 .
Žingsniai:
- Įveskite šią formulę D5 langelis ir paspauskite Įveskite .
=MID(B5,FIND(",",B5)+1,FIND(",",B5,FIND(",",B5)+1)-FIND(",",B5)-1)
- Todėl pagal pirmiau pateiktą formulę gaunama Vynuogės ; 2. žodis apie Ląstelė B5 .
Čia MID funkcija grąžina simbolius iš teksto eilutės vidurio Ląstelė B5 . ir RASTI funkcija grąžina 2. eilutė in Ląstelė B5 .
3.3. Raskite trečiąjį žodį
Tarkime, aš išgausiu 3. žodis iš Ląstelė B5 pagal kablelio vietą. 3. žodis, aš naudosiu DEŠINĖ , LEN , ir RASTI funkcijos.
Žingsniai:
- Įveskite toliau pateiktą formulę D5 langelis . Tada paspauskite Įveskite .
= DEŠINĖ(B5, LEN(B5)-IEŠKOTI(",", B5,RASTI(",",B5)+1))
- Kai paspausite Įveskite , Excel grąžins Arbūzas kuris yra 3. žodis mūsų nuolatinių duomenų Ląstelė B5 .
Čia LEN funkcija grąžina ilgį Ląstelė B5 . Tada RASTI funkcija grąžina kablelio vietą Ląstelė B5 . Vėliau, atsižvelgiant į rezultatus RASTI ir LEN funkcijos DEŠINĖ funkcija ištraukia dešinįjį žodį iš Ląstelė B5 .
- Kaip aš gavau visus 1. , 2. , ir 3. žodžius skirtinguose stulpeliuose pirmoje eilutėje, dabar pabandysiu gauti panašų rezultatą likusiose eilutėse. Norėdami tai padaryti, pasirinkite intervalą C5:D5 ir naudokite Užpildymo rankena ( + ) įrankis.
- Galiausiai čia pateikiamas galutinis rezultatas, kurį gausime.
4. "Excel" VBA kableliais atskirtoms vertėms padalyti į stulpelius arba eilutes
4.1. VBA, skirta suskirstyti vertes į stulpelius
Kableliu atskirtus duomenis galite suskirstyti į kelis stulpelius naudodami paprastą VBA kodas.
Žingsniai:
- Pirmiausia eikite į darbalapį, kuriame norite suskirstyti duomenis. Tada dešiniuoju pelės klavišu spustelėkite lapo pavadinimą ir spustelėkite Peržiūrėti kodą įkelti VBA langas.
- Tada įveskite toliau pateiktą kodą į Modulis ir Paleisti kodą naudodami F5 raktas.
Sub SplitData() Dim Range() As String, Count As Long, x As Variant For r = 5 To 10 Range = Split(Cells(r, 2), ",") Count = 3 For Each x In Range Cells(r, Count) = x Count = Count + 1 Next x Next r End Sub
Čia ' r ' nurodo eilutes, kuriose yra duomenų. Kita vertus, ' Count=3 ' nurodo stulpelį C , kuris yra pirmasis stulpelis, kuriame rodomi suskirstyti duomenys.
- Paleidus kodą, kableliais atskirti duomenys stulpelyje B suskirstyti į stulpelius C , D , ir E kaip nurodyta toliau:
4.2. Suskirstykite vertes į eilutes
Dabar kableliais atskirtas reikšmes suskirstysiu į skirtingas eilutes naudodamasis "Excel VBA". Atlikite toliau nurodytus veiksmus, kad atliktumėte užduotį.
Žingsniai:
- Pirmiausia eikite į darbalapį, kuriame turite duomenų, ir dešiniuoju pelės klavišu spustelėkite Peržiūrėti kodą .
- Todėl VBA Pasirodo langas. Įrašykite toliau pateiktą kodą į Modulis ir rin kodą paspausdami F5 ant klaviatūros.
Sub SplitRows() Dim rng As Range Dim rng1 As Range Dim cell As Range Dim N As Long Dim address As String Dim update As Boolean Dim ret As Variant On Error Resume Next address = Application.ActiveWindow.RangeSelection.address Set rng = Application.InputBox("Please enter a range", "Input Box", address, , , , , , 8) Set rng = Application.Intersect(rng, rng.Worksheet.UsedRange) If rng Is Nothing ThenExit Sub If rng.Columns.Count> 1 Then MsgBox "Cannot select more than one column" Exit Sub End If Set rng1 = Application.InputBox("Destination Cell", "Input Box", , , , , , , 8) Set rng1 = rng1.Range("A1") If rng1 Is Nothing Then Exit Sub update = Application.ScreenUpdating Application.ScreenUpdating = False For Each cell In rng ret = Split(cell.Value, ",") rng1.Worksheet.Range(rng1.Offset(N,0), rng1.Offset(N + UBound(ret, 1), 0)) = Application.WorksheetFunction.Transpose(ret) N = N + UBound(ret, 1) + 1 Next Application.ScreenUpdating = update End Sub
- Dabar, kai paleisite kodą, pasirodys toliau pateiktas įvesties langas, įveskite toliau pateiktą duomenų intervalą ir paspauskite GERAI .
- Todėl atsiras kitas įvesties langelis. Įterpkite į jį paskirties langelį ir paspauskite GERAI .
- Galiausiai gausime toliau pateiktą išvestį. Visos kableliais atskirtos mūsų duomenų rinkinio reikšmės suskirstytos į eilutes 8 į 13 .
5. Naudokite "Excel Flash Fill" kableliais atskirtoms vertėms padalyti į skirtingus stulpelius
Dalį kableliais atskirtų duomenų galime įvesti į kitą stulpelį ir tada taikyti Blykstės užpildymas funkcija, kad gautumėte likusius to paties modelio duomenis.
Žingsniai:
- Tipas ' Datos ' in Ląstelė C5 Vėliau, kai pradėsite rašyti R ' in Ląstelė C6 , "Excel" supranta, kad noriu vaisių pirmoje pozicijoje iš visų eilučių.
- Tiesiog paspauskite Įveskite kad gautumėte toliau pateiktą rezultatą. Dabar galite taikyti šį panašų metodą ir kitoms kableliais atskirtoms reikšmėms suskirstyti į kelis stulpelius.
Išvada
Pirmiau pateiktame straipsnyje bandžiau išsamiai aptarti keletą metodų, skirtų kableliais atskirtoms reikšmėms išskirstyti į eilutes arba stulpelius Excel programoje. Tikiuosi, kad šių metodų ir paaiškinimų pakaks jūsų problemoms išspręsti. Praneškite man, jei turite kokių nors klausimų.