/ / Separate Strings i Excel VBA

Separate Strings i Excel VBA

Nedenfor vil vi se på et program i Excel VBA at adskiller strenge.

Situation:

Separate Strings i Excel VBA

Placer en kommandoknap på dit regneark og tilføj følgende kodelinjer:

1. Først erklærer vi en variabel kaldet fuldnavn af typen String, en variabel kaldet kommaposition af typen Integer, og en variabel kaldet I af typen Integer.

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

Det problem, vi har at gøre med, er, at vi har brug forat fortælle Excel VBA, hvor vi vil adskille strengen. I tilfælde af Smith er Mike kommaet på position 6, mens i tilfælde af Williams er Janet kommaet på position 9.

2. Vi bruger en loop til at udføre operationerne på hvert navn, der er indtastet i Excel. Først initialiserer vi variabelnavnet. Dernæst bruger vi Instr-funktionen til at finde positionen af ​​kommaet.

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

3. Endelig vil vi skrive delen efter komma til kolonne B og delen foran komma til kolonne C. Du kan opnå dette ved at tilføje linjerne:

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

Mid (fuldnavn, kommaposition + 2) betyder, at vi ønsker, at delnavnet starter med karakter "kommaposition + 2" (dette er nøjagtigt fornavnet).

Venstre (fulde navn, kommaposition - 1) betyder, at vi ønsker at den del af efternavn begynder i begyndelsen indtil tegn "kommaposition-1" (dette er netop efternavnet).

4. Glem ikke at lukke sløjfen.

Next i

5. Tilføj seks navne adskilt af et komma og mellemrum til rækkevidde ("A2: A7").

6. Test programmet.

Resultat:

Separate strings Resultat

Læs også: