Sub yyy()
Dim i&, a As String
For i = 1 To 4
a = Cells(i, 1).Value
a = Replace(a, 0, "")
Do Until Left(a, 1) <> ","
a = Right(a, Len(a) - 1)
Loop
Cells(i, 2).Value = a
Next i
End Sub
=IF( LEFT(A1) = "0", RIGHT(A1, LEN(A1)-5), A1)
Here the leading zeros are different for different case so you need to change the length like Len(A1)-4 for 000,391,156.42
I just tested it and see what you mean. If it is a Text entry (so those leading zeroes are actually in there), the Text to Columns method will not work because of the physical presence of the commas. But there is a way that is even easier still.
First, format the column as Number with the Thousands separator.
Then simply do a "Find and Replace" on that column replacing a single comma (,) with nothing.
It will convert all entries to numbers, thereby dropping the leading zeroes.