=HYPERLINK(D1,C1)

2、提取 超链接
第1步:Sheet页→右键→查看代码
第2步:粘贴如下代码,并保存
Sub link()
Dim hl As Hyperlink
For Each hl In ActiveSheet.Hyperlinks
hl.Range.Offset(0, 1).Value = hl.Address
Next
End Sub

第3步:工具栏→运行→运行子过程
第4步:可以查看到已提取所有超链接地址 ( 覆盖的方式写在超链接的右边一列)

参考
如何批量插入和提取超链接?
Excel批量提取超链接网址