Üst Hesapları Silme

[umit1907]

Merhabalar,
Logoda muavin aldığımda üst hesaplarda çıkıyor ben bu üst hesaplar satır olarak silmek istiyorum yardımlarınız için şimdiden teşekkürler

 

[veyselemre]

Sub test()
    Set Rng = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
    With CreateObject("Scripting.Dictionary")
        For Each huc In Rng
            hes = Split(huc.Value, ".")
            If UBound(hes) > 0 Then
                hes(UBound(hes)) = ""
                ustHesap = Join(hes, ".")
            Else
                ustHesap = hes(0) & "."
            End If
            .Item(ustHesap) = Null
        Next
        For Each huc In Rng
            hes = huc.Value & "."
            If .exists(hes) Then huc.ClearContents
        Next
    End With
    If WorksheetFunction.CountBlank(Rng) > 0 Then
        Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
End Sub

 

[umit1907]

Çok teşekkürler eline sağlık.