U ovom ćemo članku stvoriti makronaredbu za razgraničenje teksta u ćeliji okomito na stupac. Možemo razgraničiti tekst u ćeliji na temelju graničnika. Razdjelnik može biti zarez, razmak, kosa kosa crta itd.
Da bismo objasnili rad makroa, uzeli smo URL kao ogledni tekst u ćeliji A10. Makro se može izvršiti klikom na gumb "Pošalji".
Nakon izvršavanja makronaredbe vratit će se izlaz u sljedećem stupcu. Tekstualna vrijednost u ćeliji odvojena je na više podnizova u više ćelija u drugom stupcu.
Logično objašnjenje
Napravili smo makro "tekstualne stupce" koji izvršava dva zadatka. Prvo, ograničava niz u A10 na više podnizova, na temelju graničnika. U ovom primjeru koristili smo crticu (-) kao graničnik. Drugo, prelazi generirane podnizove iz više stupaca u jedan stupac.
Objašnjenje koda
Rng.texttocolumns Odredište: = Rng.Offset (0, 1), DataType: = xlDelimited, _
Kvalitator teksta: = xlDvostruki citat, uzastopni razgraničitelj: = Istina, Ostalo: = Istina, OstaloChar _
:="-"
Gornji kôd koristi se za ograničavanje niza u rasponu "Rng". Odredište određuje raspon lokacija na kojima će se pojaviti izlaz. DataType određuje vrstu razdjelnika koji se koristi. TextQualifier određuje znak koji se koristi za kvalifikator teksta. OtherChar navodi znak koji se koristi kao graničnik.
Molimo slijedite dolje za kôd
Sub texttocolumns () 'Deklariranje varijabli Dim StartRow, i, LastCol As Long Dim Rng As Range' onemogućavanje prikaza upozorenja Application.DisplayAlerts = False 'Pokretanje varijable StartRow = 10 Set Rng = Range ("A10")' Odvajanje teksta na temelju na graničniku Rng.texttocolumns Odredište: = Rng.Offset (0, 1), DataType: = xlDelimited, _ TextQualifier: = xlDoubleQuote, ConsecutiveDelimiter: = True, Other: = True, OtherChar _: = "-" 'Pronalaženje stupca broj ćelije koji sadrži posljednji niz nakon razgraničenja LastCol = Rng.End (xlToRight). Stupac 'raspoređivanje teksta u stupcima u redove Za i = 2 U ćelije LastCol (10, i). Izrežite ćelije (StartRow, 2) StartRow = StartRow + 1 Dalje i Završi podm
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte