How to remove one leading zero but keep the rest?

[fvisions]

I have a very large file with valid numbers of 02, 002, 02.1. The file has 002, 0002, 002.1 - how do I remove just the first leading zero but keep the rest. There are also number without leading zeros so I can not use the text to column process. Is there a way to do this in VBA or Excel formula?

 

[CA_Punit]

Try This

Book1
	A	B
3	02	2
4	002	02
5	002.1	02.1
6	22	22
7	02
Sheet1

Cell Formulas
Range	Formula
B3:B6	B3	=IF(MID(A3,1,1)+0=0,"",MID(A3,1,1))&MID(A3,2,100)

 

[jolivanes]

Change range references as required

Sub Maybe()
Dim c As Range
    For Each c In Range("C7:C" & Cells(Rows.Count, 3).End(xlUp).Row)
        If CDbl(Left(c, 1)) = Chr(48) Then c.Value = Mid(c, 2, 99)
    Next c
End Sub

 

[fvisions]

Perfect, thank you so much for the quick response and great advice.