Sayının başındaki sıfırları silme

[Z3U519]

MErhaba arkadaşlar. Elimde 50 bin satırlık bir excel dosyası var. Hücrelerde örnek veriyorum 000000000720.00 veya 000000001125.00 gibi değerler var. Başındaki sıfırları sildirerek mesela 000000000720.00 yerine 720 yazmasını 000000001125.00 yerine 1125 yazmasını nasıl sağlayabilirim? Teşekkürler.

 

[muhasebeciyiz]

Sub SifirlariTemizle()
Dim hücre As Range
Dim deger As String
For Each hücre In Range("A1:A50000")
If hücre.Value <> "" Then
deger = hücre.Value
If InStr(deger, ".") > 0 Then
deger = Split(deger, ".")(0)
End If
hücre.Value = CLng(deger)
End If
Next hücre
End Sub


Hücredeki değerler metin formatındamı yoksa sayısal formattamı ona göre işlem yapmak gerekir

Eğer 50 bin satırı tek seferde hızlıca temizlemek istiyorsanız bu makro ile sıfırları temizleyebilirsiniz

 

[Necdet]

Merhaba,
Açıklamanızdan küsurat işareti Virgül değil, Nokta.
Eğer öyleyse
Sütunu seçin
Ctrl+H (yani bul ve değiştir)
ile Noktaları virgül ile değiştirin.

 

[Z3U519]

Teşekkür ederim. Makro bilgim çok yok. Daha basit bir formülle vs yapılma imkanı var mı acaba?

 

[Z3U519]

Merhaba,
Açıklamanızdan küsurat işareti Virgül değil, Nokta.
Eğer öyleyse
Sütunu seçin
Ctrl+H (yani bul ve değiştir)
ile Noktaları virgül ile değiştirin.

Çok teşekkür ederim. Bu şekilde oldu.