怎么批量复制excel超链接的链接网址
发布网友
发布时间：2022-04-26 13:08
共1个回答
热心网友
时间：2022-06-28 12:18
用VBA，假设你的超链接在H列，那么以下代码运行后将把对应的网址复制到I列。步骤如下：
ALT+F11,输入如下代码：
On Error Resume Next
Dim i As Long
For i = 1 To Cells(Rows.Count, "H").End(3).Row()
Range("I" & i) = Range("H" & i).Hyperlinks(1).Address
Next i
End Sub
点击图中红圈处的运行按钮。
如果超链接在别的列，请修改代码，请用别的列名替换H。
