One way to get rid of leading 0's in alphanumeric data:
Option Explicit
Sub testme01()
Dim myCell As Range
Dim myRng As Range
Dim iCtr As Long
With Worksheets("Sheet1")
Set myRng = .Range("a1", .Cells(.Rows.Count, "A").End(xlUp))
For Each myCell In myRng.Cells
For iCtr = 1 To Len(myCell.Value)
If Mid(myCell.Value, iCtr, 1) < "0" Then
Exit For
End If
Next iCtr
myCell.Value = Mid(myCell.Value, iCtr)
Next myCell
End With
End Sub
If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
Short course:
Open your workbook
Hit alt-f11 to get to the VBE (where macros/UDF's live)
hit ctrl-R to view the project explorer
Find your workbook.
should look like: VBAProject (yourfilename.xls)
right click on the project name
Insert, then Module
You should see the code window pop up on the right hand side
Paste the code in there.
Now go back to excel and test it out--Tools|macro|macros...|Run
"Michael G. Thomas" wrote:
Yes, the data is alphanumeric unfortunately. I have the code already
though, all I need to know is how to use it. In Access, you can create a
module and then call the module using a query. Is there something similar
in Excel? Just wanna know where to put the code and how to run it.
Thanks,
Michael
On Sun, 12 Sep 2004 10:16:18 -0400, Tom Ogilvy wrote:
Nick's version will work if the data is all numeric (not alpha
numeric). Is
that the case?
--
Using Opera's revolutionary e-mail client: http://www.opera.com/m2/
--
Dave Peterson