Quitar espacios en blanco al seleccionar un rango - Macros
Tengo un código que quita los espacios en blanco pero se ejecuta a partir de la celda A1 y lo que deseo es que se ejecute en función a lo que yo seleccione. Les dejo el código, muchas gracias de antemano.
Sub quita_espacios() Set datos = Range("A1").CurrentRegion MATRIZ = datos With datos r = .Rows.Count: C = .Columns.Count For I = 1 To r For J = 1 To C MATRIZ(I, J) = WorksheetFunction.Trim(MATRIZ(I, J)) Next J Next I Range(.Address) = MATRIZ End With End Sub
3 respuestas
Respuesta de Dante Amor
2
Respuesta de Kishama Happy
1
Respuesta de Elsa Matilde
1