DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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 miMerhaba,
Orijinal verinin üstüne yazacağı için başka bir tabloda deneme yapın, sonra çalıştırın. Orijinal belgenizde deneme yapmayın.
Kod: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
oldu vallahi teşekkür ederim yardımlarınız için.......dener misiniz.Kod:=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)