excel中有什么函数可以实现类似自动筛选的功能?

Question

如图一中是自动筛选到三十二次的动作
如图二中是自动筛选后的结果
现在我想得到的结果是直接筛选后是得到图2中C1中所显示的结果，
麻烦高手了！！！感激不尽，之后再追加10分。谢谢！
下面是筛选中的数据：
一次
二次
三次
四次
五次
六次
七次
八次
九次
十次
十一次
十二次
十三次
十四次
十五次
十六次
十七次
十八次
十九次
二十次
二十一次
二十二次
二十三次
二十四次
二十五次
二十六次
二十七次
二十八次
二十九次
三十次
三十一次
三十二次

Answer 1

函数做不到，用VBA可以
把下列代码拷贝到你要实现功能的工作表的VBA窗口轴
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j As Integer
j = 0
If Target = [c1] Then
Rows("2:100").EntireRow.Hidden = False
If [c1].Value <> "" Then
For i = 2 To 100
If Cells(i, 1).Value = [c1].Value Then
j = i
End If
Next
If j > 0 Then
Rows("2:" & j - 1).EntireRow.Hidden = True
Rows((j + 1) & ":100").EntireRow.Hidden = True
End If
End If
End If
End Sub
改变C1的数据，则只显示A列匹配的哪行，若无匹配或C1为空，则全部显示追问

您好，怎么运行的时候会出错的呢？

追答

留个邮箱，我把做好的文件发给你

追问

好的，不要意思，几天没上网了，我的邮箱是
[email protected]

追答

发给你了