Cómo dividir la columna a través de VBA

Tabla de contenido

Si tiene problemas para dividir el texto en dos o más columnas separadas según el carácter específico, debe leer este artículo.

En este artículo, aprenderemos cómo dividir el nombre en 3 celdas, usando VBA en Microsoft Excel.

Tomemos un ejemplo para comprender dónde y cómo podemos dividir el nombre.

Tenemos una lista de nombres en el formato "FirstName Initial LastName" en la columna A. Queremos dividir la columna completa en tres columnas, una que contenga todos los nombres, la segunda que contenga la inicial y la tercera que contenga todos los apellidos. .

Escribiremos el código VBA para dividir el nombre. Siga los pasos que se indican a continuación: -

Para dividir el nombre en 3 celdas, usaremos VBA. Vea el procedimiento y el código a continuación, y lo entenderá fácilmente: -

  • Abra la página de VBA y presione Alt + F11
  • Insertar un módulo
  • Luego vaya al menú de inserción y haga clic en procedimiento, donde obtendrá el procedimiento para iniciar la macro
  • Escriba el código que se menciona a continuación: -
Public Sub SplitName () X = Cells (Rows.Count, 1) .End (xlUp) .Row For A = 1 To XB = InStr (Cells (A, 1), "") C = InStrRev (Cells (A, 1) ), "") Celdas (A, 2) = Izquierda (Celdas (A, 1), B) Celdas (A, 3) = Medio (Celdas (A, 1), B, C - B) Celdas (A, 4 ) = Derecha (Celdas (A, 1), Len (Celdas (A, 1)) - C) Siguiente A End Sub 

Explicación del código: - Primero le dimos el nombre de la macro, luego usamos x para definir el rango de datos, y luego usamos A, B y C para definir cómo se deben seleccionar los valores de las celdas.

  • Presione la tecla F5 para ejecutar la macro en Excel
  • Cuando ejecute la macro, los nombres se dividirán en tres columnas

Conclusión: De esta manera, podemos dividir los nombres en 3 columnas, usando VBA en Microsoft Excel.

Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave