V tem članku bomo ustvarili makro za razmejitev besedila v celici navpično v stolpec. Besedilo v celici lahko razmejimo na podlagi razmejevalnika. Ločilo je lahko vejica, presledek, poševnica itd.
Za razlago delovanja makra smo kot vzorčno besedilo v celici A10 vzeli URL. Makro lahko izvedete s klikom na gumb »Pošlji«.
Po izvedbi makra bo vrnil izhod v naslednjem stolpcu. Besedilna vrednost v celici je ločena na več podnizov v več celicah v drugem stolpcu.
Logična razlaga
Ustvarili smo makro »texttocolumns«, ki opravlja dve nalogi. Prvič, omeji niz v A10 na več podnizov na podlagi razmejevalnika. V tem primeru smo kot ločilo uporabili pomišljaj (-). Drugič, prečka ustvarjene podnizke iz več stolpcev v en sam stolpec.
Razlaga kode
Rng.texttocolumns Destination: = Rng.Offset (0, 1), DataType: = xlDelimited, _
TextQualifier: = xlDoubleQuote, ConsecutiveDelimiter: = True, Other: = True, OtherChar _
:="-"
Zgornja koda se uporablja za razmejitev niza v obsegu »Rng«. Cilj določa območje lokacij, kjer se bo prikazal izhod. DataType podaja vrsto uporabljenega ločila. TextQualifier podaja znak, ki se uporablja za kvalifikator besedila. OtherChar podaja znak, ki se uporablja kot ločilo.
Za kodo sledite spodaj
Sub texttocolumns () "Razglasitev spremenljivk Dim StartRow, i, LastCol As Long Dim Rng As Range" onemogoči opozorila na zaslonu Application.DisplayAlerts = False 'Inicializiranje spremenljivke StartRow = 10 Set Rng = Range ("A10") "Ločevanje besedila na podlagi na ločilniku Rng.texttocolumns Destination: = Rng.Offset (0, 1), DataType: = xlDelimited, _ TextQualifier: = xlDoubleQuote, ConsecutiveDelimiter: = True, Other: = True, OtherChar _: = "-" 'Iskanje stolpca število celic, ki vsebujejo zadnji niz po razmejitvi LastCol = Rng.End (xlToRight). Stolpec »razvrščanje besedila v stolpce v vrstice Za i = 2 V celice LastCol (10, i). Izrežite celice (StartRow, 2) StartRow = StartRow + 1 Naprej i Končaj pod
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte