Stringhe separate in VBA di Excel

Di seguito vedremo un programma in Excel VBA quello separa le stringhe.

Situazione:

Inserire un pulsante di comando nel foglio di lavoro e aggiungere le seguenti linee di codice:

1. Per prima cosa dichiariamo una variabile chiamata fullname di tipo String, una variabile chiamata commaposition di tipo Integer e una variabile chiamata i di tipo Integer.

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

Il problema di cui abbiamo bisogno è che abbiamo bisognoper dire a Excel VBA dove vogliamo separare la stringa. Nel caso di Smith, Mike la virgola è in posizione 6, mentre in caso di Williams, Janet la virgola è in posizione 9.

2. Usiamo un ciclo per eseguire le operazioni su ciascun nome inserito in Excel. Per prima cosa inizializziamo la variabile fullname. Successivamente, usiamo la funzione Instr per trovare la posizione della virgola.

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

3. Infine, vogliamo scrivere la parte dopo la virgola nella colonna B e la parte davanti alla virgola nella colonna C. Puoi ottenere ciò aggiungendo le linee:

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

Mid (fullname, commaposition + 2) significa che vogliamo che la parte di fullname inizi dal carattere "commaposition + 2" (questo è esattamente il primo nome).

Sinistra (fullname, commaposition - 1) significa che vogliamo che la parte di fullname inizi dall'inizio fino al carattere "commaposition-1" (questo è esattamente il cognome).

4. Non dimenticare di chiudere il ciclo.

Next i

5. Aggiungi sei nomi separati da una virgola e spazio a Intervallo ("A2: A7").

6. Testare il programma.

Risultato: