EXCEL中超链接怎么批量修改替换

Question

假设一个EXCEL文件中有许许多多个单元格，每个单元格中的文字对应一个超链接，又假设每个超链接中都含有com这个关键字，能否批量把com替换成cn，而保持超链接的其他内容不变。多谢！
要替换的不是显示的文字，而是里面超链接中的部分文字。

Answer 1

一、批量修改超链接的地址不同：

        对于超链接地址不同的情况下，比如我们要修改的是链接中的某一段数据要批量替换。我们可以采用Excel宏来进行操作：

        （1）第一步，首先选择“工具>>宏>>脚本编辑器”

        （2）进入脚本编辑器界面，就可以看到html代码状态，这个时候可以利用Ctrl+F进行超找，选择要替换的一段链接或者整个链接进行对应的替换。如下图所示：

        （3）点击“全部替换”，完成全部替换。

二、批量修改的超链接地址完全相同

        针对超链接地址完全相同的情况很简单，采用excel宏命令比较快捷方便，具体操作举例如下：

        （1）进入上面介绍的脚本编辑界面，放一个按钮，双按钮，添加代码：

Private Sub CommandButton1_Click()

For Each h In Worksheets(1).Hyperlinks

If h.Range.Column = 2 Then  'B列

h.Address = Replace(h.Address, "地址一", "地址二")

ElseIf h.Range.Column = 3 Then 'C列

h.Address = Replace(h.Address, "地址一", "地址三")

ElseIf h.Range.Column = 4 Then 'D列

h.Address = Replace(h.Address, "地址一", "地址四")

End If

Next

End Sub

        If中的条件和值，以此类推，按照自己的需求进行相对应修改。

        （2）退出设计模式，点按钮运行。

        （3）完成批量替换操作。

Answer 2

可以替换,而且其链接的其他内容不变,地址也不会打不开.
选定要替换的单元格区域,打开"替换"对话框,"查找内容"输入COM,"替换"输入CN,点"全部替换"即可.

Answer 3

在那个下拉菜单栏里的工具那些用用宏编辑脚本 替换就和WORD的查找和替换一样方便，你试下希望对你有帮助

Answer 4

编辑里面有个替换 查找内容COM替换为CN 全部替换

Answer 5

将以下代码复制到新建宏，运行即可

注意，新建宏名字不能使用纯数字，复制的时候把新建的宏开头和结尾删除掉
即删除
sub 宏名()
end sub

以下是代码

----------------------------------------
Sub 替换超链接()
Dim sTobeReplaced As String
Dim sReplaceWith As String
sTobeReplaced = InputBox("输入你要查找的字符", "输入你要查找的字符")
sReplaceWith = InputBox("输入你要替换的字符", "输入你要替换的字符")
For Each Ws In Application.Worksheets '遍历工作表
For Each h In Ws.Hyperlinks '遍历超链接
If InStr(h.Address, sTobeReplaced) <> 0 Then
aLink = Replace(h.Address, sTobeReplaced, sReplaceWith)
h.Address = aLink
End If
Next
Next
End Sub本回答被提问者采纳