excel中批量修改超链接最省事最完美解决方案,有图有真相

无名氏 软件技巧 5,156 次浏览 , 1条评论

excel中批量修改超链接最省事最完美解决方案,有图有真相
相信同学们在网上搜索过了把,都是糊弄人的,没有一个可以真正解决问题,mornone在这里找出一种最省事最完美的解决方法,特意分享与大家。
1. 打开需要处理的Excel表格
2. Alt + F11打开VB 编辑器
3. 双击左边的 “Sheet1”或相应的表名
4. 在右边编辑框输入上面的代码,注意相应地修改 OldURL 和 NewURL
5. 关闭VB 编辑器,回到Excel主界面
6. Alt + F8调出宏对话框
7. 选择“ReplaceHyperLinks”然后点击“运行”按钮

Dim OldURL As String
Dim NewURL As String

Sub ReplaceHyperLinks()
OldURL = "http://www.baidu.com/" '需要替换的旧链接
NewURL = "http://www.google.com" '替换成的新链接

    For Each hlink In Cells.Hyperlinks
        hlink.Address = Replace(hlink.Address, OldURL , NewURL )
    Next
End Sub

一条评论

  1. 逍遥博客 2011年10月13日 下午4:12 回复

    这个倒是好东西啊

发表评论

电子邮件地址不会被公开。 必填项已用*标注

Go