我的excel中，各表超链接路径中出现C:\Users\经营部\AppData\Roaming\Microsoft\Excel\怎么去除，求救！

Question

我的excel中，各表超链接路径中出现C:\Users\经营部\AppData\Roaming\Microsoft\Excel\，上百张表没法一个个重新更改，有没有方法去除。我在百度搜了个VBA，但是删不掉。我是win7系统
Sub clearurl()
y = 20 '行数
i = 1 '开始行
lu = "B" '假如在B列
While i < y
tempa = "C:\Users\Administrator\Desktop\" '要删除的字符
Range(lu & i).Select
On Error Resume Next
URL = Selection.Hyperlinks(1).Address
te = Replace(URL, tempa, "")
On Error Resume Next
Selection.Hyperlinks(1).Address = te
i = i + 1

Wend
End Sub
在帮帮我吧，看问题出在那里啊，好心人

Answer 1

直接Ctrl+F
输入

查找内容：C:\Users\经营部\AppData\Roaming\Microsoft\Excel\
替换为：C:\Users\经营部-曹家荣\AppData\Roaming\Microsoft\Excel\

全部替换。

只能替换路径，不能删除路径。除非你不要这个数据了。

Answer 2

你连路径都没有更改,怎么可能会删除超链接呢?

你将C:\Users\Administrator\Desktop\ 替换成

C:\Users\经营部\AppData\Roaming\Microsoft\Excel\追问

回过头来看还是没改



追答

我晕, 这个不叫超链接呀,这个是公式引用.

 

你先显示公式,然后按CTRL+H(查找替换), 查找里面输入路径名 ,再点全部替换.

 

最后再点一下显示公式,就行了.

 

如果你不要公式,只要数据, 选中整个工作表, 复制, 右键, 选择性粘贴, 值

 

本回答被提问者采纳

Answer 3

给你一个新的吧，，

Sub clearurl()

    tempa = "C:\Users\Administrator\Desktop\" '要删除的字符

    For Each c In ActiveSheet.Hyperlinks

        If InStr(c.Address, tempa) > 0 Then

            c.Address = Replace(c.Address, tempa, "")

        End If

    Next

End Sub

追问

还是删除不掉怎么办

追答

把你的文件发到[email protected]

Answer 4

直接删除就行了。追问

删不掉