根据条件隐藏行

sddzllwcq

各位大师新年好!
求助各位一个问题：
例如：当 k1 的值为“一”时，则：只显示a列的值等于“一”的行，其他不等于“一”的行全部隐藏
          当 k1 的值为“二”时，则：只显示a列的值等于“二”的行，其他不等于“二”的行全部隐藏
请问各位怎样用vba来达到这个目的
谢谢

那么的帅

提供数据附件。

从从容容

以20行为例
Sub aa()
Dim x As Range
Sheets(1).Rows("2:20").Hidden = False
For Each x In Sheets(1).Range("a2:A20")
If Not x.Value Like Range("k1").Value Then
x.EntireRow.Hidden = True
End If
Next x
End Sub

无聊的疯子

使用筛选就可以了

1. 
   
2. Sub CC()
   
3.   Range("A2:A65536").AutoFilter 1, Range("K1").Value, , , False
   
4. End Sub
   

复制代码