Sub LinkJudge()
On Error Resume Next
Dim myRange As Range
Dim myWord As String
For Each myRange In ActiveSheet.UsedRange
If myRange.Hyperlinks.Count &zhidaogt; 0 Then
myWord = myWord & Chr(10) & Chr(13) & myRange.Address & vbTab & myRange.Hyperlinks(1).Address
End If
Next
MsgBox myWord
End Sub
1.超链接一般字体都会变成蓝色,并自动加下划线,光标移动到该位置会自动变成手型,这时只需按右键-清除超链接即可.
2.该方法适合批量处理大量链接:
1.点击视图-宏,在宏的窗口中,属入宏名,hao(命名要遵守excel规则)。然后点击创建按钮。
2.在打开的代码窗口中,我们在Sub与End Sub之间输入“Cells.Hyperlinks.Delete”点击保存后可以关闭窗口。
3.回到excel表格中,再次点击工具,打开宏窗口。选择之前编辑好的宏hao,再点击执行按钮,会看到所有超链接都消失了。
Sub LinkJudge()
On Error Resume Next
Dim myRange As Range
Dim myWord As String
For Each myRange In ActiveSheet.UsedRange
If myRange.Hyperlinks.Count &zhidaogt; 0 Then
myWord = myWord & Chr(10) & Chr(13) & myRange.Address & vbTab & myRange.Hyperlinks(1).Address
End If
Next
MsgBox myWord
End Sub
以WPS表格2019版本为例:
关于wps中怎么打开超链接,步骤如下:
请点击左上角“文件”,进入选项对话框,编辑-编辑设置下,取消勾选【按下ALT键并单击以跟踪超链接】即可。
不想直接点击链接转网页,请勾选【按下ALT键并单击以跟踪超链接】即可。
1、确认使用了什么链接
编辑→链接
可以看到本工作薄使用了那些外部源。
注意上面的“位置”信息,这个查找的依据。
如位置:C:\Documents and Settings\aa\桌面
2、Ctrl+F 或 编辑→查找
查找内容:用“aa”或“桌面”,点击选项,范围选“工作簿”
查找全部就能找出所有的外部链接了。
3、以上也是百度上搜索综合得出的。其他所谓的回答删除链接,关闭链接,都会导致数据异常或不正确,用上述1、2能定位出位置。