Sub Получить_ссылки()
    
    Dim arrSrc(), arrRes()
    Dim lr As Long, i As Long
    
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    arrSrc() = Range("A2:A" & lr).Value
    ReDim arrRes(1 To UBound(arrSrc), 1 To 1)
    
    For i = 1 To UBound(arrSrc)
        GetHyperlinks arrSrc(i, 1), arrRes(i, 1)
    Next i
    
    Range("B2").Resize(UBound(arrRes)).Value = arrRes()
    
    MsgBox "Готово!", vbInformation
    
End Sub

Private Sub GetHyperlinks(varSrc, varRes)
    
    Dim lngInstr1 As Long, lngInstr2 As Long, lngStart As Long
    
    lngStart = 1
    Do
        lngInstr1 = InStr(lngStart, varSrc, "<iframe ")
        If lngInstr1 = 0 Then
            Exit Do
        End If
        lngInstr2 = InStr(lngInstr1, varSrc, "</iframe>")
        lngInstr2 = lngInstr2 + Len("</iframe>")
        varRes = varRes & Mid(varSrc, lngInstr1, lngInstr2 - lngInstr1) & " "
        lngStart = lngInstr2
    Loop
    varRes = RTrim(varRes)

End Sub