Alinear contenido de una columna

Hola Luis,me puedes ayudar con el siguiente problema:

Tengo una columna con más de 2000 registros, algunos son de texto y otros son de números y todos están alineados al centro. Lo que necesitamos una macro que haga que los registros de texto se alineen a la izquierda y los valores se mantengan igual

COL A

1 CHAROLA BASE

2 125

3 TAPA VASO

4 200

5 PALA MOVEDORA

6 120

7 BASE LICUADORA

8 MOTOR LICUADORA

9 200

10 EMPAQUE CAJA

11 200

Gracias de antemano

1 respuesta

Respuesta
1

Te mando mi solución:

-Posiciónate encima de la primera celda de esa columna y después ejecuta esta macro

Sub prueba()
Do While ActiveCell.Value <> ""
If Not IsNumeric(ActiveCell.Value) Then
ActiveCell.HorizontalAlignment = xlLeft
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

no olvides finalizar la consulta

Te mando un saludo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas