Hücrenin başından sayı silme

[dimitri7711]

Merhabalar arkadaşlar,

Elimde:
9597031973
9579250668
9571796828 gibi sayılar var,

Başındaki 9 ları silmek istiyorum,
Şu anda elimde Makro var (basına 5 ekle) sayıların basına 5 ekleyebilen,
Aynı formatta 9'ları silebilecek makroya ihtiyacım var,

Yardımcı olabilirseniz sevinirim

Ekte elimde bulunan Makro örneğini gönderiyorum,

Teşekkürler

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub ilk9sil()
For i = 1 To Range("a65536").End(3).Row
If Cells(i, 1) Like "9*" Then
Cells(i, 1) = Right(Cells(i, 1), Len(Cells(i, 1)) - 1)
End If
Next
End Sub

 

[Necdet]

Merhaba,

Alternatif olsun, Sayının A1 hücresinde olduğu varsayılarak aşağıdaki fonksiyonlar önerilmiştir.

1. Hücrelerin hepsi rakam, aynı uzunlukta ve 9 ile başlıyorsa :

=SAĞDAN(A1;9)+0

2. Hücrelerin hepsi rakam, değişken uzunlukta ve 9 ile başlıyorsa :

=SAĞDAN(A1;UZUNLUK(A1)-1)+0

3. Hücrelerin değişken uzunlukta ve 9 ile başlamıyorsa :

=EĞER(SOLDAN(A1;1)="9";SAĞDAN(A1;UZUNLUK(A1)-1)+0;A1)

Yukarıdaki seçeneklerden hangisi işinize geliyorsa onu kullanabilirsiniz.