Tässä artikkelissa luomme makron solun tekstin rajaamiseksi pystysuoraan sarakkeeseen. Voimme rajata solun tekstin erottimen perusteella. Erotin voi olla pilkku, välilyönti, vinoviiva jne.
Makron toiminnan selittämiseksi olemme ottaneet URL -osoitteen esimerkkitekstinä solussa A10. Makro voidaan suorittaa napsauttamalla Lähetä -painiketta.
Makron suorittamisen jälkeen se palauttaa seuraavan sarakkeen tuloksen. Solun tekstiarvo on erotettu useisiin alimerkkijonoihin useissa soluissa toisessa sarakkeessa.
Looginen selitys
Olemme luoneet makron "tekstisarakkeet", joka suorittaa kaksi tehtävää. Ensinnäkin se rajaa A10: n merkkijonon useisiin alimerkkijonoihin erottimen perusteella. Tässä esimerkissä olemme käyttäneet viivaa (-) erottimena. Toiseksi se kulkee luodut alimerkkijonot useista sarakkeista yhteen sarakkeeseen.
Koodin selitys
Rng.texttocolumns Destination: = Rng.Offset (0, 1), DataType: = xlDelimited, _
TextQualifier: = xlDoubleQuote, ConsecutiveDelimiter: = True, Other: = True, OtherChar _
:="-"
Yllä olevaa koodia käytetään rajaamaan merkkijono alueella "Rng". Kohde määrittää sijaintialueen, jossa tulostus näkyy. DataType määrittää käytetyn erottimen tyypin. TextQualifier määrittää tekstin tarkennuksessa käytettävän merkin. OtherChar määrittää erottimena käytettävän merkin.
Seuraa koodia alla
Sub texttocolumns () 'Muuttujien ilmoittaminen Dim StartRow, i, LastCol As Long Dim Rng As Range' poistaa näyttöhälytykset käytöstä Application.DisplayAlerts = False 'Muuttujan alustaminen StartRow = 10 Set Rng = Range ("A10")' Tekstin erottaminen erotin Rng.texttocolumns Destination: = Rng.Offset (0, 1), DataType: = xlDelimited, _ TextQualifier: = xlDoubleQuote, ConsecutiveDelimiter: = True, Other: = True, OtherChar _: = "-" 'Sarakkeen etsiminen viimeisen merkkijonon sisältävän solun lukumäärä LastCol = Rng.End (xlToRight) .Column 'järjestää tekstin sarakkeista riveille i = 2 - LastCol -solut (10, i). + 1 Seuraava i End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse