我可以使用Excel公式提取单元格中超链接的链接位置吗？

我有一个电子表格，其中包含大量包含超链接的单元格，这些超链接的显示文本与超链接位置不同

即：

单元格位置：A1

显示文字=“网站信息”

超链接位置=“ http://www.mylocation.com ”

是否有一个Excel公式可以让我访问超链接位置的文本字符串？

理想的情况是这样的：

FORMULA（A1）=“ http://www.mylocation.com ”

您可以使用宏：

• 打开一个新的工作簿。
• 进入VBA（按Alt + F11）
• 插入一个新模块（“插入”>“模块”）
• 复制并粘贴下面的Excel用户定义函数
• 退出VBA（按Alt + Q）

• 为此自定义Excel函数使用以下语法：= GetURL（cell，[default_value]）

   Function GetURL(cell As range, Optional default_value As Variant)
   'Lists the Hyperlink Address for a Given Cell
   'If cell does not contain a hyperlink, return default_value
        If (cell.range("A1").Hyperlinks.Count <> 1) Then
            GetURL = default_value
        Else
            GetURL = cell.range("A1").Hyperlinks(1).Address
        End If
  End Function
  

我只需要从单个单元格的值中提取地址，所以我发现这个方便的小函数：

除了“蛮力”宏，您还可以创建一个用户定义的函数，该函数将提取并返回指向它的任何超链接的URL：

Function GetURL(rng As Range) As String
     On Error Resume Next
     GetURL = rng.Hyperlinks(1).Address 
End Function

在这种情况下，您可以将其放置在所需的位置。例如，如果要在单元格C25中列出来自A1中超链接的URL，则在单元格C25中，您将输入以下公式：

= GetURL（A1）

http://excel.tips.net/T003281_Extracting_URLs_from_Hyperlinks.html

function EXTRACT_URL(input) {

  var range = SpreadsheetApp.getActiveSheet().getRange(input);
  var re = /^.+?\(\"(.+?)\",.+?$/;
  if (input.indexOf(':') != -1) {
    var formulas = range.getFormulas();
    for (var i in formulas) {
      for (var j in formulas[i]) {
        formulas[i][j] = formulas[i][j].replace(re, "$1");
      }
    }
    return formulas;
  } else {
    return range.getFormula().replace(re, "$1");
  }

}