Urgent Help needed with macro

[Lane4]

I have a sheet a data with the first column containing 11 digit numbers in each cell. I need to delete the first digit of each number in the column. Manually, I can do the following: F2, Home key, Delete key, Enter key. But I can not get this recorded into a macro. It will only record the corrected number and post "that" number all the way down the column when I run the macro. The loop works, the commands do not. Please help. There are 27,000+ entries in this column and it will take days to change each number manually.

[Gary Keramidas]

this should do it, just put this formula in a column next to it and
replicate down

=RIGHT(A1,LEN(A1)-1)


--


Gary


"Lane4" <[email protected]> wrote in
message news:[email protected]...
>
> I have a sheet a data with the first column containing 11 digit numbers
> in each cell. I need to delete the first digit of each number in the
> column. Manually, I can do the following: F2, Home key, Delete key,
> Enter key. But I can not get this recorded into a macro. It will only
> record the corrected number and post "that" number all the way down the
> column when I run the macro. The loop works, the commands do not.
> Please help. There are 27,000+ entries in this column and it will take
> days to change each number manually.
>
>
> --
> Lane4
> ------------------------------------------------------------------------
> Lane4's Profile:
> http://www.excelforum.com/member.php...o&userid=28173
> View this thread: http://www.excelforum.com/showthread...hreadid=481854
>

[Lane4]

Gary - you are a life saver! Thank you so very much. Hope your day is as wonderful as you have just made mine!

[Gary Keramidas]

here's a macro for you, too

Sub test()
Dim lastrow As Long
Dim cell As Range

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For Each cell In Range("A1:a" & lastrow)
cell.Formula = Right(cell, Len(cell) - 1)
Next
End Sub

--


Gary


"Lane4" <[email protected]> wrote in
message news:[email protected]...
>
> Gary - you are a life saver! Thank you so very much. Hope your day is
> as wonderful as you have just made mine!
>
>
> --
> Lane4
> ------------------------------------------------------------------------
> Lane4's Profile:
> http://www.excelforum.com/member.php...o&userid=28173
> View this thread: http://www.excelforum.com/showthread...hreadid=481854
>