李东宁效率实例：宏、技术的力量，能够以百倍千倍的高效完成你的工作

前两天发现自己常用的一个Excel的网关文件里面所有的超级链接的指向出现了错误，都指到服务器里去了，没有指到本地的电脑。这里面涉及的超级链接的单元格有几百个。而且我备份的文件也是这种情况，怎么办呢？如果要一个一个改，花的时间多了去了。今早到公司后想起来以前我做过的一个批量更改超级链接的宏，就拿出来稍微改了一下，用了大约一分钟，之后运行了不到一秒钟，把所有的错误的超级链接全都更改过来了，这就是技术的力量，能够以百倍千倍的高效完成你的工作。我把这个简单的代码附在下面：

Sub ChangeHyperlink()

Dim c As Object

On Error Resume Next

Range("A1:x500").Select

For Each c In Selection.Cells

If Left(c.Hyperlinks(1).Address, 46) ="\\beeefXXX.china.nsn-net.net\dongning\DDrive\" Then

c.Hyperlinks(1).Address = "D:\" &Right(c.Hyperlinks(1).Address, Len(c.Hyperlinks(1).Address) -46)

Next c

Cells(1, 1).Select

End Sub