1. 打开需要处理的Excel表格
2. Alt + F11打开VB 编辑器张子枫诡异的笑
3. 双击左边的 “Sheet1”或相应的表名
Dim oldfile As String
Dim Newfile As String
Sub RemoveHyperLinks()3.35dk天赋
oldfile = "旧文件路径" '需要替换的旧文件名水管知识
Newfile = "新文件路径" '替换成的新文件名
国民校花 For Each hlink In Cells.Hyperlinks
hlink.Address = Replace(hlink.Address, oldfile, Newfile)
Next
End Sub
5. 关闭VB 编辑器,回到Excel主界面
演员胡亚捷6. Alt + F8调出宏对话框
7. 选择“RemoveHyperLinks”然后点击“运行”按钮
>汤芳大胆人体艺术
发布评论