Başlangıç Karakterlerini Değiştirme

[ta2uk]

Selamlar;

bir excel tablosunda A ve C sütunlarında yer alan tüm verilerden "0" (sıfır) ve "90" ile başlayanlardan "0" (sıfır) ve "90" sayılarının atılmasını istiyorum.

İlgilenen tüm arkadaşlara teşekkürler şimdiden...

 

[PLİNT]

Selamlar;

bir excel tablosunda A ve C sütunlarında yer alan tüm verilerden "0" (sıfır) ve "90" ile başlayanlardan "0" (sıfır) ve "90" sayılarının atılmasını istiyorum.

İlgilenen tüm arkadaşlara teşekkürler şimdiden...

Merhaba.
Aşağıdaki gibi deneyin.
Eğer "B" sütunu dahil olacaksa kırmızı bölümleri silin.

 Sub sil()
For Each a In Range("a1:c" & Cells(Rows.Count, 1).End(3).Row)
[COLOR="Red"]If a.Column <> 2 Then[/COLOR]
If Left(Trim(a.Value), 1) = "0" Then _
a.Value = Right(a.Value, Len(Trim(a.Value)) - 1)
If Left(Trim(a.Value), 2) = "90" Then _
a.Value = Right(a.Value, Len(Trim(a.Value)) - 2)
[COLOR="red"]End If[/COLOR]
Next
End Sub