Ayuda con macro, convertir texto a número

[richicho24]

Hola querida comunidad

Tengo un problema, necesito crear una macro para que la información de la columna A sea transformada en formato número en la columna B, he intentado de todo pero no me corre puesto que hay algunas celdas con información mixta, en este caso, cuando la información es mixta solo seria copy y paste directo , es decir, saltar la transformación (crear salto) y seguir con el resto. Este es la macro que he intentado:

         
ult = Cells(Rows.Count, 1).End(xlUp).Row     

For t = 2 To ult
Number = Cells(t, 1) * 1 
Cells(t, 3) = Number
Next

Muchas gracias de antemano

Test5.xlsx

[Max2005]

Hola @richicho24

Prueba el adjunto y comenta si es lo que necesitas

Saludos

Mucha Suerte

 

Test5_Max.zip

[AlexanderS]

Hola @richicho24 aparte de lo aportado por @Max2005 puedes probar con esta macro:

Sub cnum()
Dim rang As Range

    Set rang = Range([A1], [A1].End(xlDown))
    rang.Offset(0, 1) = rang.Value

End Sub

Saludos a ambos.

[AlexanderS]

@richicho24, por favor indica si te fueron de ayuda los aportes.

Saludos.

[Dr Hyde]

en un solo paso seria asi, te envio un ejemplo

Sub copia()
Range("b1").Resize(Range("a1").CurrentRegion.Rows.Count, 1).Value = Range("a1").CurrentRegion.Value
End Sub

Test5 (1).xlsm