VBA、宏 - 批量自动添加超链接

mmaimm3344

各位读者好，在平时工作中，可能会遇到：给成批的联系人名字上添加邮箱地址，或者个人博客，或者成批的网站添加网址，或者给成批的文件名添加文件链接，这时，最原始的方法当然是邮件->超链接，但是当你面都很多很多的单元格的时候，手动添加就是一个又累又枯燥又容易犯错的工作。困扰了我很长世间，今天终于捉摸出了一个程序，个人感觉很简单，但是对于初级用户的我来说，很满足，也希望各位读者老师能够给予批评指正不足的地方。

程序中，以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

mmaimm3344

把文件带上，仅供参考

xupei777

学习了，111

shenyingshizhe

学习中国。

京杉钰666

感谢分享，留着备用。

咸味

好好好好！我正需要！

iswntgah

楼主,如果还要向C列添加D列的超链接,如何?

mmaimm3344

iswntgah 发表于 2016-10-15 11:43
楼主,如果还要向C列添加D列的超链接,如何?

Sub Drawing_Hyperlink()


  Dim r As Integer, hang As Integer
  
  r = ActiveSheet.UsedRange.Rows.Count
  
  For hang = 2 To r
  
    Cells(hang, "C").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Cells(hang, "D").Value
    Application.ScreenUpdating = False
   
    Next hang
        
   
End Sub

在路上90

验证一下哈~
谢谢分享

iswntgah

mmaimm3344 发表于 2017-3-22 20:21
Sub Drawing_Hyperlink()

谢谢，受教了