How do I preserve the trailing zeros after the decimal point?

[Chir1998]

How do I remove the decimal such that the trailing zero after the decimal point remains? For example when I use Ctrl+H and replace "." With a blank, 0.971160 becomes 97116 but I need it to become 971160. How do I do this? I have a large list of numbers with trailing zeros with some that don't. So I can't really just select a range and multiply it to get the answer.

 

[Glenn Kennedy]

Maybe:

=10^6*A1

 

[Skyybot]

Try this on a copy of your Workbook as unexpected results may occur. Select the cells that you want to modify and run this Sub:

Sub RemoveDecimal()
Dim cell As Range
For Each cell In Selection
    cell.Value = Right(cell.Value, Len(cell.Value) - InStr(1, cell.Value, "."))
Next cell
End Sub

 

[JoeMo]

This should work for any number of trailing zeros.

Sub RemoveDecimal()
Dim cell As Range
For Each cell In Selection
    If InStr(1, cell.Value, "0.") > 0 Then
        cell.Value = Replace(cell.Text, "0.", "")
        cell.NumberFormat = "0"
    End If
Next cell
End Sub