Leer de una celda letra por letra
Hola para todos: Me gustaría saber como puedo leer de cada celda letra por letra hasta que encuentre un espacio en blanco dentro de esa misma celda y guardarla en la siguiente celda. Ejemplo
A1 Juan Carlos y que me quedara B1 Juan y C1 Carlos
A1 Juan Carlos y que me quedara B1 Juan y C1 Carlos
1 Respuesta
Respuesta de caranbis
1
Puedes usar una hemerramienta que trae excel:
En el menú datos, selecciona la opción texto en columnas, allí la corriente te llevará.
En el menú datos, selecciona la opción texto en columnas, allí la corriente te llevará.
Muy Bien, pero me gustaría trabajarlo por código.
Sub extraerpalabras()
columna = 2 'osea B,donde se pondrá la primera palabra extraida
'recorriendo columna A para extraer palabras:
[A1].Select
While ActiveCell <> ""
For i = 1 To Len(ActiveCell)
temp = Mid(ActiveCell, i, 1) 'extrae carácteres
palabra = palabra & Trim(temp) 'armando palabra
If temp = " " Then
Cells(ActiveCell.Row, columna) = palabra
palabra = ""
columna = columna + 1
End If
Next i
If palabra <> "" Then
Cells(ActiveCell.Row, columna) = palabra
palabra = ""
End If
columna = 2
ActiveCell.Offset(1, 0).Select
Wend
End Sub
'Carlos Leal
columna = 2 'osea B,donde se pondrá la primera palabra extraida
'recorriendo columna A para extraer palabras:
[A1].Select
While ActiveCell <> ""
For i = 1 To Len(ActiveCell)
temp = Mid(ActiveCell, i, 1) 'extrae carácteres
palabra = palabra & Trim(temp) 'armando palabra
If temp = " " Then
Cells(ActiveCell.Row, columna) = palabra
palabra = ""
columna = columna + 1
End If
Next i
If palabra <> "" Then
Cells(ActiveCell.Row, columna) = palabra
palabra = ""
End If
columna = 2
ActiveCell.Offset(1, 0).Select
Wend
End Sub
'Carlos Leal
