... Se vi mando un esempio voi mi potete aiutare?
Option Explicit Sub NumericoTesto() Dim i As Long For i = 1 To 10 If Cells(i, 1).NumberFormat = "0.00" Then Cells(i, 1).NumberFormat = "@" Cells(i, 1) = Application.Text(Cells(i, 1) * 100, "00000000") End If Next End Sub Sub TestoNumerico() Dim i As Long For i = 1 To 10 If Cells(i, 1).NumberFormat = "@" Then Cells(i, 1).NumberFormat = "0.00" Cells(i, 1) = Cells(i, 1) / 100 End If Next i End Sub