Sommario
Questo tutorial mostrerà come dividere le stringhe in celle.
Dividi stringa in celle
In VBA, possiamo usare la funzione Split per dividere una stringa di testo in un array.
Nota: abbiamo scritto un'intera mega-guida all'utilizzo della funzione Split in VBA. Ti consigliamo vivamente di verificarlo.
Quindi possiamo scorrere l'array, emettendo il testo diviso in celle di Excel:
| 12345678910111213141516171819 | Sub SplitByPunto e virgolaEsempio()'Definisci variabiliDim MyArray() As String, MyString As String, I As Variant, N As Integer'Stringa di esempio con delimitatori di punto e virgolaMyString = "[email protected];[email protected];[email protected];[email protected]"'Usa la funzione Dividi per dividere le parti componenti della stringaMyArray = Dividi(MyString, ";")"Cancella il foglio di lavoro"ActiveSheet.UsedRange.Clear'itera attraverso l'arrayPer N = 0 a UBound(MyArray)'Inserisci ogni indirizzo email nella prima colonna del foglio di lavoroIntervallo("A" & N + 1).Valore = MyArray(N)Successivo NFine sottotitolo |
In alternativa, possiamo usare la funzione Transpose per generare l'array in un foglio di lavoro:
| 12345678910111213 | Sub CopyToRange()'Crea variabiliDim MyArray() As String, MyString As String'Stringa di esempio con delimitatori di spazioMyString = "Uno,Due,Tre,Quattro,Cinque,Sei"'Usa la funzione Dividi per dividere le parti componenti della stringaMyArray = Dividi(MyString, ",")'Copia l'array nel foglio di lavoroRange("A1:A" & UBound(MyArray) + 1).Value = WorksheetFunction.Transpose(MyArray)Fine sottotitolo |
