şartlı sayı silme işlemi hk

[chakistes]

merhaba arkadaşlar vba ile sayfa içinde şartlı sayı silme işlemi yapabilirmiyiz.

örnek olarak
111.222.333.444
11.1111.11111.11
sütun içinde 3 tane noktalı sayılar varsa silmesin

2 noktalı ve 1 noktalı olanları silsin istiyorum.
123.456.789
333.789.555
22.1.22
1.1
22.44
333.3333

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Delete_Conditional_Number()
    Dim Veri As Variant, Son As Long, X As Long, Say As Long, Zaman As Double
  
    Zaman = Timer
  
    Son = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Veri = Range("A1:A" & Son).Value2
  
    ReDim Liste(1 To UBound(Veri), 1 To 1)
  
    For X = LBound(Veri) To UBound(Veri)
        If Len(Veri(X, 1)) - Len(Replace(Veri(X, 1), ".", "")) >= 3 Then
            Say = Say + 1
            Liste(Say, 1) = Veri(X, 1)
        End If
    Next

    Range("A:A").NumberFormat = "@"
    Range("A:A").ClearContents
    Range("A1").Resize(Say, 1) = Liste
  
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub

 

[chakistes]

Teşekkür ederim