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

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

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


--


Gary


"Lane4" wrote in
message ...

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

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

--
Lane
-----------------------------------------------------------------------
Lane4's Profile: http://www.excelforum.com/member.php...fo&userid=2817
View this thread: http://www.excelforum.com/showthread.php?threadid=48185

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" wrote in
message ...

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