Inhoudsopgave
Deze zelfstudie laat zien hoe u tekenreeksen in cellen kunt splitsen.
String splitsen in cellen
In VBA kunnen we de functie Splitsen gebruiken om een reeks tekst in een array te splitsen.
Opmerking: we hebben een hele megahandleiding geschreven voor het gebruik van de Split-functie in VBA. We raden je ten zeerste aan om het te bekijken.
Vervolgens kunnen we door de array lopen en de gesplitste tekst in Excel-cellen uitvoeren:
12345678910111213141516171819 | Sub SplitBySemicolonExample()'Definieer variabelen'Dim MyArray() As String, MyString As String, I As Variant, N As Integer'Voorbeeldreeks met scheidingstekens voor puntkomma'sMyString = "[email protected];[email protected];[email protected];[email protected]"'Gebruik de functie Splitsen om de samenstellende delen van de string te verdelen'MijnArray = Split(MijnString, ";")'Wis het werkblad'ActiveSheet.UsedRange.Clear'door de array heen lopen'Voor N = 0 Naar UBound (MyArray)'Plaats elk e-mailadres in de eerste kolom van het werkblad'Bereik ("A" & N + 1). Waarde = MyArray (N)Volgende NEinde sub |
Als alternatief kunnen we de Transpose-functie gebruiken om de array in een werkblad uit te voeren:
12345678910111213 | Sub CopyToRange()'Variabelen maken'Dim MyArray() als string, MyString als string'Voorbeeldreeks met scheidingstekens voor spatiesMyString = "Een, Twee, Drie, Vier, Vijf, Zes"'Gebruik de functie Splitsen om de samenstellende delen van de string te verdelen'MijnArray = Splitsen(MijnString, ",")'Kopieer de array naar het werkblad'Range ("A1:A" & UBound(MyArray) + 1).Waarde = WorksheetFunction.Transpose(MyArray)Einde sub |