Question

EXCEL里面如何筛选一列中已做超链接的项？

一列数据，有一千多项，有的做了超链接到图片，有的没有，我不小心把文字格式都统一了，现在要靠点击才能知道每一项有没有做超链接，有没有一些简单的方法筛选出已做了超链接的项？或者如何把超链接的颜色和普通文字的颜色重新区分开？

Answer 1

下面是自定义函数代码，先录制一个宏，然后将下面的代码放入宏代码的模块中。假设你的有超级链接的数据在A列，则在一空白列输入：=tes(a1) 往下复制公式，单元格中显示“有超级连接”的便是你要找出的，选中该列，采用自动筛选，即可选出来。

Function tes(a1)
If a1.Hyperlinks.Count Then
tes = "有超级链接"
Else
tes = ""
End If
End Function

Answer 2

你好，就你这种情况设计了一个函数，请按照我的提示操作
1、打开你的这张电子表格
2、请打开“宏”编辑器 可直接按照 ALT+F8 弹出一个对话框，随便输入一个名字比如"dd"然后点 “创建” 进入vba编辑界面
3、先清空右侧的Sub dd()End Sub的内容，然后将如下内容粘贴进去
Function GetLink(rng As Range) As String

Application.Volatile

If rng.Cells(1, 1).Hyperlinks.Count = 0 Then

GetLink = "No Hyperlink"

Else

If rng.Hyperlinks(1).Address = "" Then

GetLink = rng.Hyperlinks(1).SubAddress

Else

GetLink = rng.Hyperlinks(1).Address

End If

End If

End Function
4、按住CTRL+S保存完毕，关闭vba 编辑器

5、返回到要判断的那一列，假如你要判断A列中的数据是否有超链接，比如说A1
请在b1单元格中写入
=getlink(A1)
如果有超链接则会返回链接地址，如果没有则显示No Hyperlink
6、移动光标到b1单元格右下角（待到变十字架后）双击，自动填充判断公式。
7、判断完成，排序后即可得到哪些还没有做超链接