批量更改 Microsoft Excel 中 URL 的外观

批量更改 Microsoft Excel 中 URL 的外观

我希望更改 Microsoft Excel 工作表中 URL 的外观。目前,当前的 URL 看起来像:http://www.example.com/101010101010101010101010101。我知道如何通过右键单击工作表并单击“超链接”来更改 URL 的锚文本,这种方法有效,但在处理包含数千个 URL 的工作表时,这种方法并不理想。

我想删除完整的 URL 锚文本并用 ASCII 替换它,但要大规模删除并确保链接仍然有效。

问题摘要

如何更改 Microsoft Excel 中数千个 URL 的外观?

答案1

尝试一下这个小虚拟专用网络宏:

Sub HyperFixer()
    Dim h As Hyperlink, r As Range
    For Each h In ActiveSheet.Hyperlinks
        Set r = h.Parent
        h.TextToDisplay = "a"
        r.Font.Name = "Marlett"
    Next h
End Sub

宏的安装和使用非常容易:

  1. ALT-F11 打开 VBE 窗口
  2. ALT-I ALT-M 打开新模块
  3. 粘贴内容并关闭 VBE 窗口

如果您保存工作簿,宏将随之保存。如果您使用的是 2003 以后的 Excel 版本,则必须将文件另存为.xlsm而不是.xlsx

要删除宏:

  1. 调出如上所示的 VBE 窗口
  2. 清除代码
  3. 关闭 VBE 窗口

要使用 Excel 中的宏:

  1. ALT-F8
  2. 选择宏
  3. 触摸运行

要了解有关宏的更多信息,请参阅:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

必须启用宏才能使其工作!

相关内容