Macro Eliminar espacios excesivos en Excel
La siguiente macro permite eliminar los espacios iniciales, finales y los excesivos de las celdas del rango elegido. La función que permite realizar lo mismo es RECORTAR, pero se limita a celda individuales.
Permite dejar textos como:
“ Prueba de texto” = “Prueba de texto”
Macro:
Sub EXCELeINFODeleteExcesiveSpaces() Application.StatusBar = "Eliminando espacios iniciales, finales y excesivos..." Application.StatusBar = ActiveCell.Address For Each celda In Selection celda.Value = WorksheetFunction.Trim(celda) Next celda Application.StatusBar = False End Sub
