Sütunu sayılardan ibaret kılmak..

[fs58]

merhabalar.
çoğu hücresi sayılardan oluşan bir sütunun bazı hücrelerinde kelimeler var. bu kelimelerin silinip boşluksuz bir sayı sütunu yapmam lazım. yardımcı olursanız sevinirim. teşekkürler.https://drive.google.com/open?id=1j_mvt5btCLoqQJiLyEF7QBzo4zmh1LXN

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.

Sub Test()
    Dim Bak As Long
    Dim Say As Long
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    For Bak = Say To 2 Step -1
        If Not IsNumeric(Cells(Bak, "A")) Then
            Cells(Bak, "A").Delete
        End If
    Next
End Sub

Yada kolona filtre uygulayın.
Sayı Filtreleri / Büyük Veya Eşit seçin, boş kutuya 0 yazın tamama tıklatın. (listenizde eğer negatif sayı varsa sıfır yerine en düşük negatif sayıyı yazın. Tamamı tıklatın.
Filtrelenen listeyi kopyalayın yeni bir kolona yapıştırın.
Sonra isterseniz A kolonunu silersiniz.

 

[fs58]

Çok zekice. sağ olun. teşekkürler.