Als u problemen ondervindt bij het splitsen van de tekst in twee of meer afzonderlijke kolommen op basis van het specifieke teken, moet u dit artikel lezen.
In dit artikel gaan we leren hoe we de naam in 3 cellen kunnen splitsen, met behulp van VBA in Microsoft Excel.
Laten we een voorbeeld nemen om te begrijpen waar en hoe we de naam kunnen splitsen.
We hebben een lijst met namen in de indeling "FirstName Initial LastName" in kolom A. We willen de hele kolom in drie kolommen splitsen, waarbij één alle voornamen bevat, de tweede de initialen en de derde alle achternamen .
We zullen de VBA-code schrijven om de naam te splitsen. Volg de onderstaande stappen: -
Om de naam in 3 cellen te splitsen, gebruiken we VBA. Zie de onderstaande procedure en code, en u zult het gemakkelijk begrijpen: -
- Open VBA-pagina en druk op Alt+F11
- Een module invoegen
- Ga dan naar het menu invoegen en klik op procedure, waar je de procedure krijgt om de macro te starten
- Schrijf de onderstaande code: -
Public Sub SplitName() X = Cellen(Rijen.Count, 1).End(xlUp).Row For A = 1 To XB = InStr(Cells(A, 1), " ") C = InStrRev(Cells(A, 1 ), " ") Cellen(A, 2) = Links(Cellen(A, 1), B) Cellen(A, 3) = Midden(Cellen(A, 1), B, C - B) Cellen(A, 4 ) = Rechts(Cellen(A, 1), Len(Cellen(A, 1)) - C) Volgende A Einde Sub
Code Verklaring:- Eerst hebben we de macronaam gegeven, daarna hebben we x gebruikt om het gegevensbereik te definiëren en vervolgens hebben we A, B en C gebruikt om te definiëren hoe waarden uit de cellen moeten worden gekozen.
- Druk op de toets F5 om de macro in Excel uit te voeren
- Wanneer u de macro uitvoert, worden de namen in drie kolommen gesplitst
Conclusie: Op deze manier kunnen we de namen in 3 kolommen splitsen, met behulp van VBA in Microsoft Excel.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite