=IFERROR(IF(ISNUMBER(A1),A1,RIGHT(A1,LEN(A1)-2)),"")
Excel 2007 | |||
---|---|---|---|
A | |||
1 | ADELANTE | ||
2 | 63falcondude | ||
3 | AkaTrouble | ||
4 | hiker95 | ||
5 | ExcelRoy | ||
6 | Aladin | ||
7 | MrExcel | ||
8 | A1:A7 | ||
9 | abc | ||
10 | 123 | ||
11 | |||
Sheet1 |
Excel 2007 | |||
---|---|---|---|
A | |||
1 | ELANTE | ||
2 | falcondude | ||
3 | aTrouble | ||
4 | ker95 | ||
5 | celRoy | ||
6 | adin | ||
7 | Excel | ||
8 | :A7 | ||
9 | c | ||
10 | 3 | ||
11 | |||
Sheet1 |
Sub RemoveFirstTwoCharacters()
' hiker95, 02/24/2017, ME993056
Dim ADDR As String
With ActiveSheet
ADDR = .Range("A1", Cells(Rows.Count, "A").End(xlUp)).Address(0, 0)
.Range(ADDR) = Evaluate(Replace("IF(Len(@)>2,MID(@,3,LEN(@)-2))", "@", ADDR))
End With
End Sub