hücredeki rakamlar haricindekileri silme

[hls06drm]

mrh
bir hücrede sadece rakamlar kalacak şekilde diğer tüm harf vb karakterleri nasıl silebilirim.

 

[DoğanD]

Merhaba,

Orijinal verinin üstüne yazacağı için başka bir tabloda deneme yapın, sonra çalıştırın. Orijinal belgenizde deneme yapmayın.

Sub sil()
Dim i, y, sutun As Integer
sutun = 1 'A sütununda çalışması için 1 sayısı var. farklı bir sütunda çalışacaksa sütun no değiştirin.
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row 'ikinci satırdan itibaren, A sütununda dolu olan son hücreye kadar
    Cells(i, 1).NumberFormat = "@"
veri = Cells(i, sutun)
Cells(i, sutun) = ""
For y = 1 To Len(veri)
    If IsNumeric(Mid(veri, y, 1)) Then Cells(i, sutun) = Cells(i, sutun) & Mid(veri, y, 1)
Next y
Next i
End Sub

 

[hls06drm]

Merhaba,

Orijinal verinin üstüne yazacağı için başka bir tabloda deneme yapın, sonra çalıştırın. Orijinal belgenizde deneme yapmayın.

Sub sil()
Dim i, y, sutun As Integer
sutun = 1 'A sütununda çalışması için 1 sayısı var. farklı bir sütunda çalışacaksa sütun no değiştirin.
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row 'ikinci satırdan itibaren, A sütununda dolu olan son hücreye kadar
    Cells(i, 1).NumberFormat = "@"
veri = Cells(i, sutun)
Cells(i, sutun) = ""
For y = 1 To Len(veri)
    If IsNumeric(Mid(veri, y, 1)) Then Cells(i, sutun) = Cells(i, sutun) & Mid(veri, y, 1)
Next y
Next i
End Sub

teşekkür ederim. peki makro kullanmadan formulle yapılabilir mi

 

[Ali]

=TOPLA.ÇARPIM(PARÇAAL(0&A1;BÜYÜK(İNDİS(ESAYIYSA(--PARÇAAL(A1;SATIR($1:$25);1))*SATIR($1:$25);0);SATIR($1:$25))+1;1)*10^SATIR($1:$25)/10)

dener misiniz.

 

[hls06drm]

=TOPLA.ÇARPIM(PARÇAAL(0&A1;BÜYÜK(İNDİS(ESAYIYSA(--PARÇAAL(A1;SATIR($1:$25);1))*SATIR($1:$25);0);SATIR($1:$25))+1;1)*10^SATIR($1:$25)/10)

dener misiniz.

oldu vallahi teşekkür ederim yardımlarınız için.......