怎么批量复制excel超链接的链接网址

2016-04-22    分类:WordPress   0人评论 1,036人浏览

excel的VBA,假设你的超链接在A列,那么以下代码运行后将把对应的链接网址复制到B列。步骤如下:

ALT+F11,输入如下代码:

Sub x()
On Error Resume Next
Dim b As Long
For b = 1 To Cells(Rows.Count, "A").End(3).Row()
    Range("B" & b) = Range("A" & b).Hyperlinks(1).Address
Next b
End Sub

点击图中红圈处的运行按钮。

如果超链接在别的列,请修改代码,请用别的列名替换A。

效果见下图:

怎么批量复制excel超链接的链接网址

转载请注明:悦目网 - 新媒体营销交流互动平台 » 怎么批量复制excel超链接的链接网址

本文作者: