Cómo utilizar el texto para la columna en varias columnas en VBA

Usar VBA macro grabadora de Excel para hacer un programa que divide una sola columna en varias columnas consiste en no mucho más de un solo clic del ratón. Varias columnas Dividir 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. Si organiza los contenidos que se divide en varias filas , se evita que esto ocurra. Instrucciones
1

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

2 Haga clic en el elemento de la ficha "Insertar" "módulo " para crear una nueva ventana para entrar en los programas . VBA creará la ventana.
3

Pega el siguiente programa en la ventana. Este programa utiliza la función " TextToColumns " para dividir el texto separado por espacios. El "Tipo de datos " el argumento cuenta la función que desea dividir el texto basado en un personaje particular en el texto, en lugar de basarse en un número fijo de caracteres por columna. El argumento de "Space " de la función está en " verdadero", lo que indica que Excel debe dividir el texto basado en el carácter " espacio" .

Pública TextToColumnsMultiple Sub ( )

Dim col , x

For Each 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 , Comma : = False , espacio : = True , Other : = False , TrailingMinusNumbers : = _

verdadera

End Sub
4

clic en el icono " Excel " en la barra de tareas de Windows para volver a Excel , a continuación, escriba una frase con al menos dos palabras separados por espacios en cualquier celda de la hoja . Escriba otro tal sentencia en la celda que es uno abajo y otro a la derecha de la primera celda.
5

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

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