VBA超链接名称和地址

我正在尝试将excel电子表格中的所有超链接拉到新的工作表中。我希望A列显示超链接中的文本，B列显示超链接地址

我已经编写了下面的代码，B列中的所有代码都可以正常工作，但是A列中的值没有全部显示出来，并且它们与B列中的超链接地址不匹配。我做错了什么

提前谢谢

Sub extract_links()
    Dim hyp As Hyperlink
    Dim ReadCols As Long
    Dim ReadWriteRow As Long
    ReadWriteRow = 1
    ReadCols = 6

ActiveWorkbook.Sheets(2).Range("a:b").Clear

For c = 1 To ReadCols
    For Each hyp In ActiveWorkbook.Sheets(1).Columns(c).Hyperlinks
        ActiveWorkbook.Sheets(2).Range("a" & ReadWriteRow).Value = ActiveWorkbook.Sheets(1).Cells(ReadWriteRow, c).Value
        ActiveWorkbook.Sheets(2).Range("b" & ReadWriteRow).Value = hyp.Address
        ReadWriteRow = ReadWriteRow + 1
    Next
Next c
End Sub

---

这一次，您需要更改以下内容：

ActiveWorkbook.Sheets(2).Range("a" & ReadWriteRow).Value = ActiveWorkbook.Sheets(1).Cells(ReadWriteRow, c).Value

为此：

ActiveWorkbook.Sheets(2).Range("a" & ReadWriteRow).Value = hyp.Range.Value

---

再次感谢你的帮助！