关注运营账号

最新推荐文章于 2024-09-16 16:05:38 发布

阿娇

最新推荐文章于 2024-09-16 16:05:38 发布

阅读量655

点赞数

本文链接：https://blog.csdn.net/ajiao5198/article/details/7562284

版权

收到运营部的工作人员账号excel，需要批量关注。给D列的所有单元格加入超链接，链接到其个人时空

1.Alt+F11，进入VBA编辑界面

2.插入一个Module

3.copy以下代码

Sub 链接()

i = 3

    Do While Range("D" & i).Cells.Text <> ""

    Range("D" & i).Select

    Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="http://www.l99.com/user.action?longNO=" & Mid(Range("D" & i).Cells.Text, 1, 7)

    i = i + 1

    Loop

End Sub

注：mid截取字符串取七位龙号。去掉最后的空格。郁闷：trim不work。只好用这个方法

4. F5运行