Eliminar Espacios
Esta macro elimina los espacios en exceso del lado izquierdo de las celdas seleccionadas. Por ejemplo, si el valor de la celda es " Excel " entonces despues deejecutar la macro se convertirá en "Excel ". (Observa que los espacios del lado izquierdo han sido eliminados).
12345678 | Sub EspaciosIzq()Dim Rango As RangeOn Error Resume NextFor Each RangoIn Selection.CellsRango.Value = LTrim(Rango.Value)NextOn Error GoTo 0End Sub |
Eliminar Espacios de la Derecha.
Esta macro elimina los espacios en exceso del lado derecho de las celdasseleccionadas. Por ejemplo, si el valor de la celda es " Excel " entonces despues de ejecutar la macro se convertirá en " Excel". (Observa que los espacios del lado derecho han sido eliminados).12345678 | Sub EspaciosDer()Dim Rango As Range On Error Resume NextFor Each Rango In Selection.CellsRango.Value = RTrim(Rango.Value)NextOn Error GoTo 0End Sub |
Eliminar Espacios en Ambos Lados.Esta macro elimina los espacios en exceso de ambos lados de las celdas seleccionadas. Por ejemplo, si el valor de la celda es " Excel " entonces despues de ejecutar la macro se convertirá en"Excel". (Observa que los espacios del lado derecho e izquierdo han sido eliminados).
12345678 | Sub EspaciosIzq_Der()Dim Rango As RangeOn Error Resume NextFor Each Rango In Selection.CellsRango.Value= Trim(Rango.Value)NextOn Error GoTo 0End Sub |
Eliminar Todos los Espacios en Exceso.
Esta macro elimina todos los espacios en exceso en ambos lados y en el interior de las celdasseleccionadas. Por ejemplo, si el valor de la celda es " Excel Artículos " , despues de ejecutar la macro se convertirá en "Excel Artículos". ( Los espacios del lado derecho y de la izquierda así como losespacios que estaban entre estas dos palabras han sido eliminados).
1234567891011 | Sub EspaciosTodos()Dim Rango As RangeOn Error Resume NextFor Each Rango In Selection.CellsRango.Value =...
Regístrate para leer el documento completo.