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

Question

例如，

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

转换为

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

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