Soldan karakter eksiltme

[DeathDance]

Arkadaşlar merhaba. A sütununda yaklaşık 3500 adet telefon kaydım var. Kayıtlar şu şekilde:

5546589524
5523645896
4452569859
2325478985

Liste bu şekilde uzayıp gidiyor. Bu benim ön muhasebe programımdan aldığım yedek. Farklı bir ön muhasebe programına geçiş yapacağım fakat numaraların başındaki 3 haneli alan kodlarının tümünü silmem gerekiyor. Bunun için kullanabileceğim bir formül var mıdır? Türkçe office 2016 kullanıyorum. Teşekkürler, selamlar

Not: Arkadaşlar forumu araştırdım bazı formüller mevcut. Mesela =LEFT(A1;3) gibi. Fakat benim kayıt sayım çok fazla ve bu formül sadece hücreyi değiştiriyor. Benim istediğim tüm sütunu değiştirmek.

 

[Excelmy]

Merhaba

formul

=SAĞDAN(A1; UZUNLUK(A1)-3)

Vba

Sub alankodsclr()
For i = 1 To Range("A65536").End(3).Row
If Cells(i, 1) <> "" Then
    Cells(i, 1) = Trim(WorksheetFunction.Substitute(Cells(i, 1), Left(Cells(i, 1), 3), ""))
End If
Next
End Sub

 

[DeathDance]

Hocam cevabınız için çok teşekkür ederim. Fakat excelde yeniyim. Vermiş olduğunuz vba kodunu nasıl çalıştırabilirim? Teşekkürler..

Edit: Hocam çalıştırdım. Sorunum halloldu çok teşekkür ederim