/ / Separata strängar i Excel VBA

Separata strängar i Excel VBA

Nedan ser vi på ett program i Excel VBA den där separerar strängar.

Situation:

Separata strängar i Excel VBA

Placera en kommandoknapp på ditt arbetsblad och lägg till följande kodlinjer:

1. Först deklarerar vi en variabel som heter fullnamet av typen String, en variabel som heter kommaposition av typen Integer och en variabel som heter I av typen Integer.

Dim fullname As String, commaposition As Integer, i As Integer

Det problem vi har att göra med är det vi behöveratt berätta för Excel VBA där vi vill separera strängen. I fallet med Smith är Mike kommaen i position 6, medan i Williams fall är kommandot Janet på position 9.

2. Vi använder en slinga för att utföra operationerna på varje namn som anges i Excel. Först initierar vi variabelnamnet. Därefter använder vi Instr-funktionen för att hitta kommas position.

For i = 2 To 7
    fullname = Cells(i, 1).Value
    commaposition = InStr(fullname, ",")

3. Slutligen vill vi skriva delen efter kommatecken till kolumn B och delen framför kommatecken till kolumn C. Du kan uppnå detta genom att lägga till raderna:

Cells(i, 2).Value = Mid(fullname, commaposition + 2)
Cells(i, 3).Value = Left(fullname, commaposition - 1)

Mid (fullnamn, kommaposition + 2) betyder att vi vill att delen av fullständigt namn börjar med tecken "kommaposition + 2" (detta är exakt förnamn).

Vänster (fullnamn, kommaposition - 1) betyder att vi vill att delen av fullständigt namn börjar i början tills karaktären "kommaposition-1" (detta är exakt efternamn).

4. Glöm inte att stänga slingan.

Next i

5. Lägg till sex namn separerade med ett komma och mellanslag till Range ("A2: A7").

6. Testa programmet.

Resultat:

Separata strängar Resultat

Läs också: