[em45][em45]

先用vba定义一个title函数，如
Function Title(ByVal url As String) As StringOn Error Resume Nexturl = "http://" & Replace(url, "http://", "")With CreateObject("Msxml2.XMLHTTP").Open "get", url, False.sendTitle = Split(Split(.responsetext, "<title>")(1), "</title>")(0)End WithEnd Function

然后再目标单元格内调用此函数，再拖动可以应用到其他单元格。

【论坛广邀专家，每日专人回答经管问题！遇到重要紧急的经管难题欢迎@“论坛答疑”客服专号站内ID，小二帮你快找专家+秒找答案。】