Как фильтровать гиперссылки в excel?

Question

У меня есть несколько строк с гиперссылками и без гиперссылок Я хочу фильтровать только данные гиперссылки. Спасибо.

Answer 1

Это копирует гиперссылок с ссылкой на колонке B, как вы упоминается в разделе комментариев:

Sub Macro1() 
    cnt = 1 
    For Each cell In Range("A:A") 
     If cell.Hyperlinks.Count > 0 Then 
      Range("B" & cnt) = cell 
      ActiveSheet.Hyperlinks.Add Range("B" & cnt), cell.Hyperlinks(1).Address 
      cnt = cnt + 1 
     End If 
    Next 
End Sub 

Answer 2

высокого света (выберите) ячейки в столбце А вы хотели бы фильтровать (не включая строку заголовка) и запустить этот небольшой макрос:

Sub HyperPicker() 
    Dim r As Range 
    For Each r In Selection 
     If r.Hyperlinks.Count = 0 Then 
      r.EntireRow.Hidden = True 
     End If 
    Next 
End Sub