VBA code of batch copy hyperlink address

来源:互联网 发布:linux安装make工具 编辑:程序博客网 时间:2024/06/06 14:29
Sub AddHyperlink()

Application.ScreenUpdating = False

With ActiveSheet

lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

For i = 1 To lastrow

    Cells(i, 2) = Cells(i, 1).Hyperlinks(1).Address

Next i

End With

Application.ScreenUpdating = True

End Sub
0 0