поиск ссылок в листе Excel

Question

Мне нужен код VB, который может обнаружить любое слово с http, .com, http, ссылками в листе Excel?

Заранее спасибо

Пример кода из комментариев

Sub ListLinks() 
  Dim aLinks As Variant aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) 
  If Not IsEmpty(aLinks) Then 
    Sheets.Add 
    For i = 1 To UBound(aLinks) 
      Cells(i, 1).Value = aLinks(i) 
    Next i 
  End If 
End Sub

Answer 1

Используйте Регулярное выражение

  Sub search()
    Dim Regex
    Set Regex = CreateObject("vbscript.regexp")

    With Regex
      .Global = True
      .MultiLine = False
      .IgnoreCase = True
       .Pattern = "http|www|html|Amazon|(Eco|Environ).*friendly"
     End With

    Dim cell
    For Each cell In UsedRange.Cells
      If Regex.test(cell) Then
        cell.Interior.Color = vbYellow
        ' or save cell.value to sheet
        Count = Count + 1
      End If
    Next
    MsgBox Count & " found"
  End Sub