小编ekh*_*h64的帖子

我有一个 Excel 文件，其中包含数百个使用超链接公式的单元格=HYPERLINK( <targetURL>, <friendlyName> )。我需要从这些中提取纯文本 URL。我发现的大多数示例都依赖于使用不同超链接方法的单元格。

所以一个这样的函数：

Function HyperLinkText(pRange As Range) As String

   Dim ST1 As String
   Dim ST2 As String

   If pRange.Hyperlinks.Count = 0 Then
      HyperLinkText = "not found"
      Exit Function
   End If

   ST1 = pRange.Hyperlinks(1).Address
   ST2 = pRange.Hyperlinks(1).SubAddress

   If ST2 <> "" Then
      ST1 = "[" & ST1 & "]" & ST2
   End If

   HyperLinkText = ST1

End Function

导致单元格文本“未找到”。或者，有没有办法将这些单元格转换为其他超链接格式，以便我拥有的宏可以工作？