如何将带有超链接的文本列转换为Excel中的文本URL？

Question

例如，

超链接的公司名称列 公司A. 公司B. ...

转换为

公司A的网址 公司B的URL ...

Answer 1

这段代码应该使用超链接的值并将其放入新工作表的列中：

Sub RemoveHyperlinks()
    Dim Cell As Range

    Dim i As Long
    Dim k As Long
    k = 1
    Set Cell = Workbooks("Book2").Sheets("Sheet1").UsedRange

    i = 0

    Do Until i = Cell.Hyperlinks.Count
    If Cell.Hyperlinks.Count > 0 Then
    Workbooks("Book2").Sheets("Sheet2").Cells(k, 1).Value = Cell.Hyperlinks.Item(k).Address
    i = i + 1
    k = k + 1
    End If

    Loop

End Sub