Im Folgenden werden wir ein Programm in Excel VBA suchen, die Strings trennt.

Situation:

Separate Strings in Excel VBA

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

  1. Zuerst erklären wir eine Variable Fullname vom Typ String, eine Variable mit dem Namen commaposition vom Typ Integer genannt, und eine Variable i vom Typ Integer genannt.

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

Das Problem, das wir es zu tun ist, dass wir Excel VBA sagen müssen, wo wir die Zeichenfolge trennen wollen. Im Falle von Smith, Mike ist das Komma an Position 6, während bei Williams, Janet das Komma an Position 9.

  1. Wir haben eine Schleife verwenden, um die Operationen auf jeden Namen in Excel eingegeben auszuführen. Zuerst initialisieren wir die Variable Fullname. Als nächstes verwenden wir die Instr Funktion die Position des Kommas zu finden.

For i = 2 To 7

fullname = Cells(i, 1).Value

commaposition = InStr(fullname, ",")

  1. Schließlich wollen wir, indem die Linien den Teil nach dem Komma zu Spalte B und der Teil vor dem Komma Spalte C. Sie können dies erreichen schreiben:

Cells(i, 2).Value = Mid(fullname, commaposition + 2)

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

Mid (fullname, commaposition + 2) bedeutet, dass wir den Teil des Fullnamen ab Zeichen ‚commaposition + 2‘ wollen (das ist genau der erste Name).

Left (fullname, commaposition – 1) bedeutet, dass wir den Teil des Fullnamen am Anfang beginnen sollen, bis Zeichen ‚commaposition- 1‘ (das ist genau der Nachname).

  1. Vergessen Sie nicht, um die Schleife zu schließen.

Next i

( „: A7 A2“) 5. sechs Namen durch ein Komma und ein Leerzeichen zu Bereich getrennt hinzufügen.

  1. Testen Sie das Programm.

Ergebnis:

Separate Strings Result