Separar Palabras - Con Varios Separadores y Conservar Dichos Separadores
publicado
Tengo la siguiente macro para separar texto (en este caso el separador es ","), me gustaría agregarle una serie más amplia de separadores y por otra parte conservarlos, es decir que si en este caso la ejecuto tal cual está, las comas logran separan el texto, pero son eliminadas del mismo y yo las quiero conservar.
Gracias, dejo la macro a continuación.
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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Tengo la siguiente macro para separar texto (en este caso el separador es ","), me gustaría agregarle una serie más amplia de separadores y por otra parte conservarlos, es decir que si en este caso la ejecuto tal cual está, las comas logran separan el texto, pero son eliminadas del mismo y yo las quiero conservar.
Gracias, dejo la macro a continuación.