Tabla de contenido
Este tutorial demostrará cómo dividir cadenas en celdas.
Dividir cadena en celdas
En VBA, podemos usar la función Split para dividir una cadena de texto en una matriz.
Nota: escribimos una megaguía completa para usar la función Split en VBA. Le recomendamos encarecidamente que lo compruebe.
Luego podemos recorrer la matriz, generando el texto dividido en celdas de Excel:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Definir variablesDim MyArray () como cadena, MyString como cadena, I como variante, N como entero'Cadena de muestra con delimitadores de punto y comaMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Use la función Split para dividir las partes componentes de la cadenaMyArray = Dividir (MyString, ";")'Limpiar la hoja de trabajoActiveSheet.UsedRange.Clear'iterar a través de la matrizPara N = 0 a UBound (MyArray)'Coloque cada dirección de correo electrónico en la primera columna de la hoja de trabajoRango ("A" y N + 1) .Value = MyArray (N)Siguiente NEnd Sub |
Alternativamente, podemos usar la función de transposición para generar la matriz en una hoja de trabajo:
| 12345678910111213 | Sub CopyToRange ()'Crear variablesDim MyArray () como cadena, MyString como cadena'Cadena de muestra con delimitadores de espacioMyString = "Uno, Dos, Tres, Cuatro, Cinco, Seis"'Use la función Split para dividir las partes componentes de la cadenaMyArray = Dividir (MyString, ",")'Copie la matriz en la hoja de trabajoRango ("A1: A" & UBound (MyArray) + 1) .Value = WorksheetFunction.Transpose (MyArray)End Sub |
