A continuación veremos un programa en Excel VBA que separa las cadenas .
Situación:
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Primero, declaramos una variable llamada nombre completo de tipo String, una variable llamada composición de tipo Integer, y una variable llamada i de tipo Integer.
Dim fullname As String, commaposition As Integer, i As Integer
El problema con el que nos enfrentamos es que tenemos que decirle a Excel VBA dónde queremos separar la cadena. En el caso de Smith, Mike la coma está en la posición 6 mientras que en el caso de Williams, Janet la coma está en la posición 9.
2. Utilizamos un bucle para ejecutar las operaciones en cada nombre introducido en Excel. Primero, inicializamos el nombre completo de la variable. Luego, usamos la función Instr para encontrar la posición de la coma.
Para i = 2 a 7 nombre completo = Células(i, 1).Valor composición = InStr(nombre completo, «,»)
3. Finalmente, queremos escribir la parte después de la coma en la columna B y la parte delante de la coma en la columna C. Puedes lograrlo añadiendo las líneas:
Células(i, 2).Valor = Mid(nombre completo, composición + 2) Células(i, 3).Valor = Izquierda(nombre completo, composición – 1)
Mid(fullname, commaposition + 2) significa que queremos la parte del fullname que comienza en el personaje ‘commaposition + 2’. (este es exactamente el primer nombre).
Izquierda(nombre completo, composición – 1) significa que queremos la parte del nombre completo que comienza en el principio hasta el carácter «composición – 1» (este es exactamente el apellido).
4. No te olvides de cerrar el bucle.
Siguiente…
5. Añade seis nombres separados por una coma y un espacio a Rango («A2:A7»).
6. Pruebe el programa.
Resultado:
