excel如何替换超级链接的内容

来源:百度知道 编辑:UC知道 时间:2024/06/01 02:30:23
EXCEL文件里的B列共66行的超级链接依次为:
B2单元: file:///E:\销售统计.xls-销售2部!B4-
B3单元: file:///E:\销售统计.xls-销售2部!E4-
B4单元: file:///E:\销售统计.xls-销售2部!H4-
......
我想把66个"销售2部"全部更换为"销售3部".请教热心人士如何快速更换,一个一个的改太多了,因为还有C\D\E..列需要全部改成"销售4\5\6...部"
切换到了公式显示状态,但却没有显示超级链接的公式,法替换。

方法a
选中超链接--复制--新建一个新的EXCEL或者本EXCEL中空白位置都可以。--右击“选择性粘贴”--数值(或者)。则所有超链接格式全部被取消。再选定原来位置的超链接(删除),复制这些已经去除了格式的文本,粘贴即可。
这个办法其优点便是其缺点,原理是利用选择性粘贴,清除其格式,再返回去。缺点是EXCEL格式同时会被清除,不过没大碍。

方法b
上边的稍微还是麻烦,可以用记事本文档取消excel中的超链接。
选定要批量处理的超链接单元格-复制
开始-程序-附件-记事本-粘贴-这样做后excel中的超级链接文本就取消了格式,再把记事本中的数据复制、粘贴到原excel文档原位置。思路和上面的一样。

用VBA快,
1、放一个按钮,
设计模式下,双按钮,添加代码:
Private Sub CommandButton1_Click()
For Each h In Worksheets(1).Hyperlinks
If h.Range.Column = 2 Then 'B列
h.Address = Replace(h.Address, "销售2部", "销售3部")
ElseIf h.Range.Column = 3 Then 'C列
h.Address = Replace(h.Address, "销售2部", "销售4部")
ElseIf h.Range.Column = 4 Then 'D列
h.Address = Replace(h.Address, "销售2部", "销售5部")
End If
Next
End Sub
If中的条件和值,以此类推,LZ自己填咯

2、去掉设计模式,点按钮运行。
3、OK

1.打开文件,按键