Kann ich eine Excel-Formel verwenden, um die Verknüpfungsposition eines Hyperlinks in einer Zelle zu extrahieren?

Ich habe eine Tabelle mit einer großen Anzahl von Zellen, die Hyperlinks mit anderem Anzeigetext als der Hyperlinkposition enthalten

dh:

Zellstandort: A1

Anzeigetext = "Site Info"

Hyperlink location = " http://www.mylocation.com "

Gibt es eine Excel-Formel, mit der ich auf die Textzeichenfolge des Hyperlink-Speicherorts zugreifen kann?

Im Idealfall würde es so aussehen:

FORMEL (A1) = " http://www.mylocation.com "

Sie können ein Makro verwenden:

• Öffnen Sie eine neue Arbeitsmappe.
• In VBA einsteigen (Alt + F11 drücken)
• Ein neues Modul einfügen (Einfügen> Modul)
• Kopieren Sie die unten angegebene benutzerdefinierte Excel-Funktion und fügen Sie sie ein
• Raus aus VBA (Drücken Sie Alt + Q)

• Verwenden Sie diese Syntax für diese benutzerdefinierte Excel-Funktion: = GetURL (Zelle, [Standardwert])

   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
  

Ich musste nur die Adresse aus dem Wert einer einzelnen Zelle extrahieren, daher fand ich diese kleine Funktion praktisch:

Anstelle eines "Brute Force" -Makros können Sie auch eine benutzerdefinierte Funktion erstellen, die die URL für jeden Hyperlink extrahiert und zurückgibt, auf den verwiesen wird:

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

In diesem Fall können Sie es platzieren, wo Sie möchten. Wenn Sie beispielsweise möchten, dass die URL eines Hyperlinks in A1 in Zelle C25 aufgeführt wird, geben Sie in Zelle C25 die folgende Formel ein:

= 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");
  }

}