Deleting 1st character in a cell using VB..

[da_vide78]

I am absolutely brand new at VB and learning very slowly so need some guidance with the below problem.

I'm after some code which will look at cell in Column F and delete the 1st character from it, leaving the rest. Another dimension to this is, rather than the code look all the way down to row 65,000 it stops at the last populated row.


Any ideas?

 

[Richard Schollar]

Dim rng As Range
For Each rng In Range("F1",Cells(Rows.Count,"F").End(xlUp))
  If Not IsEmpty(rng) Then rng.Value = Mid(rng.Value,2)
Next rng

 

[VoG]

Try

Sub trnc()
Dim LR As Long, i As Long
LR = Range("F" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = True
For i = 1 To LR
    Range("F" & i).Value = Right(Range("F" & i).Value, Len(Range("F" & i).Value) - 1)
Next i
Application.ScreenUpdating = True
End Sub