用ExcelVBAfunction直接遍历表格中的网址，然后直接抓取title标题就行
[Visual Basic] 纯文本查看 复制代码Function Title(ByVal url As String) As String
On Error Resume Next
url = "http://" & Replace(url, "http://", "")
With CreateObject("Msxml2.XMLHTTP")
.Open "get", url, False
.send
Title = Split(Split(.responsetext, "")(1), "")(0)
End With
End Function
