Elimina Espacios en Blanco
Excel VBA
Macros de una funcion que elimina los espacios en blanco sobrantes de un texto de una celda; igualmente en Excel ya existe una funcion que hace lo mismo llamada: ESPACIOS(texto)
Function EspacioBlanco(Texto As String) As String
Dim i As Byte
Dim n As Byte 'es la longitud de la cadena
Dim Letra As String * 1
Dim Textonuevo As String 'nueva cadena sin espacios
Dim letraprev As Boolean
n = Len(Texto)
For i = 1 To n
Letra = Mid(Texto, i, 1)
'chr(32) es un espacio en blanco
'chr(160) es similar a un espacio en blanco en Excel
If Letra <> Chr(160) And Letra <> Chr(32) Then
Textonuevo = Textonuevo & Letra
letraprev = False
Else
If Not letraprev Then
Textonuevo = Textonuevo & Letra
letraprev = True
End If
End If
Next i
EspacioBlanco = Textonuevo
End Function
| |
