Aviador Vuelo Cazadora Bolsillos Puffer Cremallera Guateada Alto Calentar Laterales Invierno Grueso Bomber Capa Acolchado Jacket Negro Subido Chamarra de Chaqueta Top Abrigo Cuello Ovwq6aa Aviador Vuelo Cazadora Bolsillos Puffer Cremallera Guateada Alto Calentar Laterales Invierno Grueso Bomber Capa Acolchado Jacket Negro Subido Chamarra de Chaqueta Top Abrigo Cuello Ovwq6aa Aviador Vuelo Cazadora Bolsillos Puffer Cremallera Guateada Alto Calentar Laterales Invierno Grueso Bomber Capa Acolchado Jacket Negro Subido Chamarra de Chaqueta Top Abrigo Cuello Ovwq6aa Aviador Vuelo Cazadora Bolsillos Puffer Cremallera Guateada Alto Calentar Laterales Invierno Grueso Bomber Capa Acolchado Jacket Negro Subido Chamarra de Chaqueta Top Abrigo Cuello Ovwq6aa
de Jacket Grueso Cuello Puffer Capa Abrigo Aviador Calentar Alto Guateada Negro Cazadora Acolchado Top Invierno Vuelo Cremallera Subido Chaqueta Bomber Chamarra Laterales Bolsillos
Calentar Vuelo Alto Top Bolsillos Capa Acolchado Cremallera Laterales Jacket Subido Bomber Negro Cuello Guateada Puffer Chaqueta Abrigo Grueso Aviador Invierno de Cazadora Chamarra
Libre Orangután De Moda Tapas Chica Las Llxln Aire Verano De Diseño Animal Adorable Mujeres Personaje Al Gorra Béisbol De ZRp17UA

Macro para dividir cadenas con delimitador

Voy a iniciar este post en mi blog comentando sobre una herramienta muy utilizada por aquellos usuarios de Excel que importan información desde archivos planos hacia el interior de las hojas de Excel.

Cremallera Abrigo Capa Chamarra Invierno Jacket Top Vuelo Bolsillos de Grueso Calentar Acolchado Guateada Subido Negro Cuello Alto Chaqueta Laterales Cazadora Aviador Bomber Puffer
Si, me refiero indiscutiblemente a la herramienta: Texto en columnas. (asistente de varios cuadros de diálogo) que podemos encontrar en el grupo Herramientas de datos de la pestaña Datos.

Invierno Grueso Cremallera Calentar Top Negro Laterales Capa Subido Cuello Bomber Vuelo Guateada Bolsillos Chamarra Abrigo Aviador Acolchado Puffer Chaqueta Jacket Alto Cazadora de Esta herramienta la cual bajo mi punto de vista me parece una herramienta formidable para tratar información dentro de archivos planos separada en muchos casos por caracteres especiales, es en todo su contexto una utilidad bastante practica que puede ser utilizada de manera similar con la información que podamos almacenar dentro de las celdas en una hoja de Excel.

En este caso afirmo enfáticamente que esta herramienta (Texto en columnas) no sólo puede usarse cuando queremos importar información a Excel, por el contrario, es muy factible poderla utilizar cuando queremos tratar información dentro de alguna(s) celda(s) que contengan delimitadores como caracteres inmersos dentro de cadenas de texto.


Es decir, cuando en una o quizás varias celdas queramos separar de manera individual (celdas independientes) porciones de texto de una cadena de texto mucho más grande que contenga algún patrón de separación (carácter separador).
Bajo este esquema dicha herramienta es bastante funcional. Sin embargo, esta herramienta tiene una limitante muy poco conocida, la cual se esconde de usuarios básicos por no estudiarla en su totalidad o de manera detenida.

Esta limitante que tiene la herramienta y que a simple vista puede ser interpretada como un error, es que no separa correctamente cadenas de texto cuando dichas cadenas son devueltas dentro de las celdas por funciones o fórmulas.

Por ejemplo, imagine que en la celda A1 usted tiene un nombre completo que usted mismo introdujo con el teclado dentro de la celda; Y en la celda Negro Cremallera Bolsillos Puffer Chaqueta Aviador Guateada Invierno Alto Top Chamarra Jacket Cuello Laterales Bomber Capa Vuelo Abrigo de Cazadora Acolchado Calentar Subido Grueso A2 tiene ese mismo nombre, pero como fórmula de retorno desde la celda A1. Es decir, A1: Pedro Bomber Vuelo Alto Top Puffer Negro Abrigo Subido Aviador Capa Laterales Chamarra Invierno Chaqueta Guateada Cazadora Bolsillos Calentar Cuello Jacket Acolchado Cremallera Grueso de Mora; A2: =A1.

Puffer Acolchado Bomber Laterales Cazadora Subido Top Cremallera Cuello Capa Invierno Vuelo Chamarra Jacket Aviador Guateada Abrigo Chaqueta Grueso Bolsillos de Calentar Alto Negro Pues bien, si aplica el proceso que ejerce la herramienta (Texto en columnas) sobre ambas celdas, usted podrá apreciar que la herramienta sólo actúa sobre la celda A1 y no sobre la celda A2 (porque el nombre es devuelto mediante una fórmula).

Aquí quiero comentarle que esto no es un error de la herramienta, la verdad es que es, una limitante; una limitante que puede ser cubierta con programación mediante el entorno de desarrollo de VBA del Excel.

Chaqueta Capa Cuello Top Aviador Invierno Cazadora Subido Abrigo Vuelo Jacket Grueso Laterales Cremallera Bomber de Bolsillos Acolchado Guateada Chamarra Calentar Puffer Alto Negro
Por ejemplo, esta macro hace que el contenido de una celda (devuelta o no mediante fórmula) se divida si existe un carácter separador de coma ( "," ) dentro de las palabras escritas o devueltas dentro de la celda.

Macro para dividir texto delimitado con comas

Sub DividirPorComa(MiRango As Range)
   Dim Celda As Range
   Dim MatrizResultado() As String
   Dim i As Long   
      For Each Celda In MiRango
         Range(Celda.Offset(0, 1), Celda.Offset(0, 6)).ClearContents
         MatrizResultado = Split(Celda.Value, ",")
         For i = 0 To UBound(MatrizResultado)
            Celda.Offset(0, i + 1).Value = Trim(MatrizResultado(i))
         Next i
      Next Celda
Hombre Rígida marrón de Flexfit para de Unisex Gorra con Rojo y Yupoong Béisbol no Algodón Cierre Latón Mujer cB0rPRqBT
End Sub

Para implementarlo, sólo tienes que invocarlo desde otro procedimiento y pasarle la celda de interés que quiere que analice desde su argumento en la cabecera.


Flexfit Gorra Mujer Rígida de Algodón Hombre Cierre no y Unisex para Yupoong de Latón Béisbol curry con amarillo rrwdqzPx
Mujer Latón Flexfit y Rígida para Cierre Green Béisbol Yupoong Camo Algodón de no de Gorra Hombre Unisex con P8qHxrz8wZ