how do i eliminate leading 0 in a text cell
 

I have ID numbers that are alpha numeric. Some are all numeric formatted as
text, others are actual alpha numeric combinations. Most all have leading
"0s". I want to easily eliminate them.

how do i eliminate leading 0 in a text cell
 

Select the range
edit|replace
what: 0
with: 0
replace all


REST wrote:

I have ID numbers that are alpha numeric. Some are all numeric formatted as
text, others are actual alpha numeric combinations. Most all have leading
"0s". I want to easily eliminate them.

--

Dave Peterson

how do i eliminate leading 0 in a text cell
 

Enter this macro:

Sub zeroplucker()
For Each r In Selection
If Left(r.Value, 1) = "0" Then
Do
r.Value = Right(r.Value, Len(r.Value) - 1)
If Left(r.Value, 1) < "0" Then
Exit Do
End If
Loop
End If
Next
End Sub

Then select the cells you want to fix and run the macro.
--
Gary's Student


"REST" wrote:

I have ID numbers that are alpha numeric. Some are all numeric formatted as
text, others are actual alpha numeric combinations. Most all have leading
"0s". I want to easily eliminate them.