excel 查找后如何只显示需要的结果其他不需要的数据隐藏呢
发布网友
发布时间：2022-04-24 00:10
共4个回答
热心网友
时间：2022-05-23 17:03
说明:在弹出的窗口输入你要查找的数字,点击确定就可以只显示着个数字所在的行.如果在弹出的窗口不输入任何内容点击确定或者点击取消.显示所有的内容.
代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Dim AA As Range, Endcol, Endrow As Long
Range("A:A").EntireRow.Hidden = False
Endcol = [iv1].End(xlToLeft).Column
Endrow = Range("A65536").End(xlUp).Row
For i = Endrow To 1 Step -1
Rows(i).Hidden = True
Next
stra = InputBox("请输入你要查找的数字:", "A")
If stra = "" Then
For i = Endrow To 1 Step -1
Rows(i).Hidden = False
Next
Else
Set AA = Range(Cells(1, 1), Cells(Endrow, Endcol)).Find(what:=stra, lookat:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
If Not AA Is Nothing Then
firstAddress = AA.Address
Do
If Rows(AA.Row).Hidden = True Then
Rows(AA.Row).Hidden = False
Else
End If
Set AA = Range(Cells(1, 1), Cells(Endrow, Endcol)).FindNext(AA)
Loop While Not AA Is Nothing And AA.Address <> firstAddress
Range("A1").Activate
End If
End If
Application.EnableEvents = True
End Sub
热心网友
时间：2022-05-23 17:03
变通的办法是查找→查找全部，按Ctrl+A 全选查找结果，填充背影色高亮，这样比较简单。
使用完成后全选，取消背影填充即可。
热心网友
时间：2022-05-23 17:04
热心网友
时间：2022-05-23 17:04
