Dividir números de una columna de datos
Tengo una columna con multitud de números, hay números de 2,3,4,5 y 6 cifras y quiero que todos los datos y números se queden como una unidad y dos decimales, de la forma de que si en la celda hay 7.55 se quede igual y si hay 751101 se quede como 7.51.
Muchas gracias
1 respuesta
Respuesta de Dante Amor
1
Te anexo una macro
Sub Dividir() 'Por.Dante Amor col = "A" For i = 1 To Range(col & Rows.Count).End(xlUp).Row If IsNumeric(Cells(i, col)) Then n = Replace(Cells(i, col), ".", "") c = Left(n, 1) & "." & Mid(n, 2, 2) Cells(i, col) = Val(c) Cells(i, col).NumberFormat = "0.00" End If Next End Sub
Cambia en la macro col = "A" por la columna en donde tengas tus números.
