|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
各位读者好,在平时工作中,可能会遇到:给成批的联系人名字上添加邮箱地址,或者个人博客,或者成批的网站添加网址,或者给成批的文件名添加文件链接,这时,最原始的方法当然是邮件->超链接,但是当你面都很多很多的单元格的时候,手动添加就是一个又累又枯燥又容易犯错的工作。困扰了我很长世间,今天终于捉摸出了一个程序,个人感觉很简单,但是对于初级用户的我来说,很满足,也希望各位读者老师能够给予批评指正不足的地方。
程序中,以A列为要添加的名称,B列为链接
Sub Drawing_Hyperlink()
Dim r As Integer, hang As Integer
r = ActiveSheet.UsedRange.Rows.Count
For hang = 2 To r
Cells(hang, "A").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cells(hang, "B").Value
Application.ScreenUpdating = False
Next hang
End Sub |
评分
-
1
查看全部评分
-
|