Excel表格中获取或删除超链接的方法

1. 打开该Excel文件，切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：RemoveLink，点击“确定”退出;

2. 再点击“宏”→“查看宏”，选择“宏名”下的“RemoveLink”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码，然后保存关闭VBA编辑器：
'删除超链接地址
Sub RemoveLink()
 ‘Remove all hyperlinks from the active sheet
 ActiveSheet.Hyperlinks.Delete
 '用下面的代码亦可
 'Cells.Hyperlinks.Delete
End Sub

'获取超链接地址
Sub getLink()
 Dim hlkTemp As Hyperlink
 For Each hlkTemp In ActiveSheet.Hyperlinks
  '将抽取的超链接放在包含超链接单元格的后面
  hlkTemp.Range.Offset(0, 1).value = hlkTemp.Address
  '将抽取的超链接放在包含超链接单元格的前面
  'hlkTemp.Range.Offset(0, -1).value = hlkTemp.Address
 Next
End Sub

3. 点击“宏”→“停止录制”，如果不停止就执行，会一直记录执行的步骤哦

4. 再点击“宏”→“查看宏”，选择“宏名”下的“RemoveLink”并点击“执行”即可去除该工作表的链接。