¿Cómo insertar filas con condiciones de fórmula?
Como puedo insertar filas debajo de cada celda con más de una palabra, según la cantidad de "comas" que las separan. La idea principal es separar cada palabra e insertarlas una nueva fila por cada una de ellas.
Por el momento me he planteado hacerlo con condiciones, según la cantidad de "comas" que tiene la celda. En la columna verde aplique la fórmula de "condición de contar comas", y según la cantidad de comas insertar filas debajo de la palabra de origen, y luego de ello copiar en la nueva fila, la segunda palabra de la celda de origen. Es decir 1-"Manzana, Pera"
Resultado:
- Manzana
- Pera
ó 2-"Manzana, Pera, Sandia"
Resultado:
- Manzana
- Pera
- Sandia
En la siguiente semana muestro las palabras a separar, la columna donde aplique la condición, y el resultado de separación de palabras por filas.
Palabras a separar Resultado
1 Respuesta
Intente con esta macro
Sub separarPalabras()
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
separador = ","
uf = Cells(Rows.Count, 2).End(xlUp).Row
For Each celda In Selection
texto = celda.Value
palabras = Split(texto, separador)
n = UBound(palabras)
'n = uf + 1
For i = 0 To n
Sheets("Hoja1").Cells(uf + 1, 2).Value = palabras(i)
palabras.Value = LTrim(palabras.Value)
uf = uf + 1
Next i
Next celda
End Sub
