Формула VBA для удаления строк, содержащих непрозрачные данные

Question

У меня есть таблица с ~ 3500 строк и 5 столбцов.

В столбце А содержатся URL-адреса. Некоторые из URL-адресов являются полностью квалифицированными доменами, некоторые из которых включают несколько подкаталогов с одним и тем же FQD.

Я хочу, чтобы удалить все перекрывающихся URL-кроме полным доменным (www.example.com)

Например, я мог бы иметь следующее:

www.example.com

www.example.com/sub-directory-a

www.example.com/sub-directory-b

www.example.com/sub-directory-a/sub-c/sub-d

Мне нужно удалить все строки, кроме www.example.com

Answer 1

Удаляет все строки с "/"

Sub RowKiller() 

    Dim F As Range, rKill As Range 
    Set F = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)) 
    Set rKill = Nothing 
    For Each r In F 
     v = r.Text 
     If v Like "*/*" Then 
      If rKill Is Nothing Then 
       Set rKill = r 
      Else 
       Set rKill = Union(r, rKill) 
      End If 
     End If 
    Next r 

    If Not rKill Is Nothing Then 
     rKill.EntireRow.Delete 
    End If 

End Sub