Excel 两列单元格合并超级链接的VBA 写法

 

 

Excel 单元格 分两列 （B列存放姓名， C列存放链接）

列如：

姓名	学号	博客地址
1309032022	小张	https://www.cnblogs.com/xiaozhangpython/
1413042001	小张学Python	https://www.cnblogs.com/xiaozhangpython/
1413042002	小张学Python	https://www.cnblogs.com/xiaozhangpython/

等等

要求在B列建立C列指示的链接 （自动建立）

VBA 脚本如下：

---

Public Sub addURL()

 Dim BLeft As String
 Dim CRight As String
 Dim Line As Integer 
 
 For Line = 2 To 58               '分别标示起始和结束行，实际使用时 调整参数 2和 58， 也可以作为函数参数
 
     BLeft = "B" + CStr(Line)
     CRight = "C" + CStr(Line)
 
     Range(BLeft).Select
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range(CRight).Value, TextToDisplay:=Range(BLeft).Value
 
     Range(CRight).Clear   ' 将C列清除 
 Next Line
 
End Sub

执行脚本后，如下：

 

姓名	学号	博客地址
1309032022	小张
1413042001	小张学Python
1413042002	小张学Python