Change numbers in column "A"

[Panoos64]

Hi all, kindly require to provide me a VBA code so that to run through col. "A" and should replace the number from left side which "2" into "1". I present below original data and expected result. Thank you all in advance


original data
1205000
1206500
1207700

Expected result
1105000
1106500
1107700

 

[mole999]

you could just do a find replace for 120 to 110

 

[alansidman]

Option Explicit


Sub foo()
    Dim i As Long, lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To lr
        If InStr(Range("A" & i), 12) = 1 Then
            Range("A" & i) = 11 & Right(Range("A" & i), 5)
        End If
    Next i


End Sub

 

[bosco_yip]

Perhaps,

In B1, copied down :

=A1-100000

Regards
Bosco

 

[Panoos64]

Thank you mole for advice. I did not think so and is so easy. Thank you so much. have a nice day!

 

[Panoos64]

Hi alan, many thanks for code. It works nicely and based to my data. Have a great day!

 

[Panoos64]

Hi bosco, your formula works too. Thanks for your time spent for my project. Have a great day!