Cómo utilizar texto a la columna en varias columnas en VBA

El uso de grabadora de macros VBA de Excel para hacer un programa que divide una sola columna en varias columnas no implica mucho más que un simple clic del ratón. La división de múltiples columnas presenta un problema; la separación de la primera columna sobrescribirá el texto que desea dividir en columnas posteriores. Por esa razón, la función "TextToColumn" mostrará un mensaje de error en lugar de dividir la columna. Escalonando el contenido que ser dividido en varias filas, se evita que esto ocurra.

Instrucciones

1 Haga clic en el botón de "Visual Basic" en la ficha Programador para entrar en el entorno de programación VBA, lo que le permite escribir y depurar programas VBA.

2 Haga clic en punto "módulo" de la ficha "Insertar" para crear una nueva ventana para introducir programas. VBA creará la ventana.

3 Pegue el siguiente programa en la ventana. Este programa utiliza la función "TextToColumns" al texto de división separados por espacios. El argumento "Tipo de datos" indica a la función que desea dividir el texto basado en un personaje en particular en el texto, en lugar de sobre la base de un número fijo de caracteres por columna. El argumento de "espacio" de la función se establece en "true", lo que indica que Excel debe dividir el texto basado en el carácter "espacio".

Public Sub TextToColumnsMultiple ()

Dim col, x

Para Cada col En Selection.Columns

Set x = col

x.Select

Selection.TextToColumns Tipo de datos: = xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _

Punto y coma: = False, coma: = False, el espacio: = True, Otros: = False, TrailingMinusNumbers: = _

Cierto

Siguiente

End Sub

4 Haga clic en el icono "Excel" en la barra de tareas de Windows para volver a Excel, a continuación, escriba una oración con al menos dos palabras separadas por espacios en cualquier celda de la hoja. Escribir otra frase dicha en la célula que es uno abajo y otro a la derecha de la primera célula.

5 Haga clic en la primera celda para seleccionarla y, a continuación, pulse y mantenga pulsado la tecla Ctrl para decirle a Excel que desea seleccionar más de una celda.

6 Haga clic en el botón de la pestaña "Desarrollador" "Visual Basic" para mostrar una lista de los programas. Haga doble clic en el elemento "TextToColumnsMultiple" para ejecutar ese programa. Las frases que ha escrito ahora están divididos en varias columnas, con una columna por palabra.