Macros Para Separar Palabras 691f4c

2017­6­3

Macros para separar palabras ­ Automatización Excel

A u t o matización Excel Página principal

Talleres

Página principal Acceder al editor de Visual Basic para Aplicaciones (VBA)

Buscar en este sitio

Ricardo Villafaña Figueroa

Macros para separar palabras

a las Propiedades de los objetos

Uso de la función Split para separar palabras

a los Métodos de los Objetos

Problema: separar el nombre del estudiante en la misma fila y en columnas diferentes.

Activar la ficha del programador Análisis de datos Gráficas dinámicas

Tabla de trabajo:

Cambiar los colores del fondo de una celda Ciclo Do While...Loop Ciclo Do...Loop Until Ciclo For Each...Next Ciclo For...Next Definición de funciones Eliminar espacios Filas y columnas vacías Funciones de sumatorias y productos Funciones de texto Funciones de texto en VBA Excel Funciones para el manejo de colores de una celda Funciones para el manejo de textos Funciones para la limpieza de textos Funciones que manejan rangos como argumentos google1bb521775c3ea… Importancia de la Automatización en Excel Macro para buscar en un texto una lista de palabras (función InStr) Macro para buscar en un texto una lista de palabras (operador Like) Macro para calcular frecuencia de palabras Macro para calcular frecuencias utilizando dicccionarios Macro para calcular frecuencias utilizando diccionarios Macro para combinar hojas Macro para extraer grupos de texto utilizando Expresiones Regulares Macro para separar palabras (utilizando

Separar palabras La siguiente macro utiliza la función Split para separar un texto en palabras La función Split utiliza dos argumentos: el texto a separar y el caracter de separación La función Split devuelve un

arreglo conteniendo cada una de

las palabras separadas Las palabras separadas son colocadas en columnas diferentes a la derecha del texto dado El caracter de separación se define en la variable sepaarador Sub separarPalabras() Dim celda As Range       'celda que contiene el texto Dim i As Integer Dim n As Integer         'número de palabras encontradas Dim palabras() As String 'arreglo que almacenará las palabras separadas Dim separador As String  'separador de cada palabra Dim texto As String      'almacena el texto a separar       'definir el separador de palabras     separador = " " 'espacio en blanco          'Ciclo para recorrer los renglones     For Each celda In Selection         texto = celda.Value                  'Separación del texto en palabras:

diferentes signos de https://sites.google.com/site/automatizacionexcel/separar­palabras

1/3

2017­6­3

Macros para separar palabras ­ Automatización Excel

diferentes signos de puntuación) Macros para asignar valores a una celda Macros para asignar valores a una celda utilizando la propiedad Offset Macros para buscar palabras en un texto Macros para calcular subtotales usando diccionarios Macros para cambiar las propiedades de una columna Macros para comparar dos rangos de valores Macros para contar celdas en blanco o con datos Macros para contar objetos de una colección

        palabras = Split(texto, separador)                  'La función UBound devuelve índice final/mayor del arreglo         'El índice en el arreglo se inicia con cero         n = UBound(palabras)                  'Ciclo para colocar cada palabra en una columna diferente         For i = 0 To n             celda.Offset(0, i + 1) = palabras(i)         Next i       Next celda End Sub   Ejecución de la macro anterior.   Seleccionar el rango de entrada:  

Macros para contar y sumar Macros para contar y sumar condicionalmente usando funciones de Excel Macros para convertir textos a mayúsculas, minúsculas y nombres propios Macros para crear gráficas Macros para el análisis de datos - Auto filtros Macros para el análisis de datos - Tablas dinámicas

  Resultado de la ejecución de la macro:  

Macros para el manejo de los elementos de una colección Macros para el manejo de los elementos de una gráfica Macros para eliminar valores duplicados en dos o más columnas Macros para encontrar y eliminar valores duplicados en una columna Macros para enviar y recibir datos a través de cajas de diálogo Macros para Hojas de Trabajo Macros para leer archivos de texto Macros para leer archivos de texto separados por comas

    Variante de la macro anterior Separar el siguiente texto en expresiones separadas por comas:

Macros para limpieza de datos Macros para manejar carpetas, directorios y archivos Macros para manejar Expresiones Regulares Macros para manejar los elementos de una forma (objeto Shape) Macros para procesar tablas de datos

La siguiente macro:

Separa un https://sites.google.com/site/automatizacionexcel/separar­palabras

texto en expresiones separadas por comas

2/3

2017­6­3

Macros para separar palabras ­ Automatización Excel

Separa un texto en expresiones separadas por comas Cada expresión encontrada es colocada a la derecha de la celda que contiene el texto en un renglón diferente

Macros para realizar operaciones básicas en las colecciones Macros para realizar operaciones en celdas que cumplan ciertos criterios Macros para seleccionar celdas con la ayuda de las teclas de dirección Macros para seleccionar celdas, columnas y rangos

Macros para separar palabras

Macros para trabajar con celdas especiales Macros para trabajar con ciclos Macros para trabajar con libros Macros para trabajar con rangos Manejo de textos Modelo de Objetos de Gráficas/ Chart Objeto Range Objetos de Programación en Excel Power Pivot Respuestas rápidas Ricardo Villafaña Figueroa Separar un texto en columnas utilizando fórmulas matriciales Talleres Usar el objeto Cells para seleccionar rangos Usar funciones de Excel en Visual Basic Uso de ADO para consultar una hoja de Excel

Sub separarPalabras2() Dim celda As Range       'celda que contiene el texto Dim i As Integer Dim n As Integer         'número de palabras encontradas Dim palabras() As String 'arreglo que almacenará las palabras separadas Dim separador As String  'separador de cada palabra Dim texto As String      'almacena el texto a separar       'definir el separador de palabras     separador = "," 'coma          'Ciclo para recorrer los renglones     For Each celda In Selection         texto = celda.Value                  'Separación del texto en palabras:         palabras = Split(texto, separador)                  'La función UBound devuelve índice final/mayor del arreglo         'El índice en el arreglo se inicia con cero         n = UBound(palabras)                  'Ciclo para colocar cada palabra en un renglón diferente         For i = 0 To n             celda.Offset(i, 1) = palabras(i)         Next i       Next celda End Sub   Resultado de ejecutar la macro anterior:  

Uso de la instrucción With Uso de operadores lógicos en las funciones Uso de variables Uso de Variables Objeto (Set) Ventana "Inmediato" del editor de VBA Mapa del sitio

      [email protected] Iniciar sesión | Actividad reciente del sitio | Informar de uso inadecuado | Con la tecnología de

https://sites.google.com/site/automatizacionexcel/separar­palabras

Google Sites

3/3