Šiame straipsnyje sukursime makrokomandą, kad tekstas ląstelėje būtų atskirtas vertikaliai. Mes galime atskirti tekstą langelyje pagal ribotuvą. Skyriklis gali būti kablelis, tarpas, atbulinis brūkšnys ir pan.
Norėdami paaiškinti makrokomandos veikimą, paėmėme URL kaip pavyzdinį tekstą langelyje A10. Makrokomandą galima vykdyti spustelėjus mygtuką „Pateikti“.
Įvykdęs makrokomandą, jis grąžins išvestį kitame stulpelyje. Teksto reikšmė ląstelėje yra atskirta nuo kelių antrinių stulpelių keliose antrojo stulpelio ląstelėse.
Loginis paaiškinimas
Mes sukūrėme makrokomandą „tekstiniai stulpeliai“, kuri atlieka dvi užduotis. Pirma, ji atskiria eilutę A10 į kelias antrines eilutes, remdamasi skiriamuoju ženklu. Šiame pavyzdyje kaip ribotuvą panaudojome brūkšnį (-). Antra, jis perkelia sukurtas antrines eilutes iš kelių stulpelių į vieną stulpelį.
Kodo paaiškinimas
Rng.texttocolumns Destination: = Rng.Offset (0, 1), DataType: = xlDelimited, _
TextQualifier: = xlDoubleQuote, ConsecutiveDelimiter: = True, Other: = True, OtherChar _
:="-"
Aukščiau pateiktas kodas naudojamas eilutei „Rng“ atriboti. Paskirtis nurodo vietovių diapazoną, kuriame bus rodoma išvestis. „DataType“ nurodo naudojamo skyriklio tipą. „TextQualifier“ nurodo simbolį, kuris naudojamas teksto kvalifikatoriui. „OtherChar“ nurodo simbolį, naudojamą kaip atskirtuvas.
Sekite toliau pateiktą kodą
Sub texttocolumns () 'Kintamųjų deklaravimas Dim StartRow, i, LastCol As Long Dim Rng As Range', išjungiant ekrano įspėjimus Application.DisplayAlerts = False 'Kintamojo inicijavimas StartRow = 10 Set Rng = Range ("A10")' Teksto atskyrimas pagal ant ribotuvo Rng.texttocolumns Destination: = Rng.Offset (0, 1), DataType: = xlDelimited, _ TextQualifier: = xlDoubleQuote, ConsecutiveDelimiter: = True, Other: = True, OtherChar _: = "-" 'Stulpelio radimas langelių, kuriuose yra paskutinė eilutė, skaičius po to, kai atribojami LastCol = Rng.End (xlToRight). Stulpelis „teksto išdėstymas stulpeliuose į eilutes“ i = 2 iki LastCol ląstelės (10, i). Iškirpti langelius (StartRow, 2) StartRow = StartRow + 1 Kitas „Pabaiga“
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el