excel 查找后怎么只显示需要的结果其他不需要的数据隐藏呢

VBA

请将以下内容复制到VBA编辑器中。这个代码可以在excel中实现只显示特定数字所在的行，并隐藏其他内容。VBASub Worksheet_SelectionChange(ByVal Target As Range)Application.EnableEvents = FalseDim AA As Range, Endcol, Endrow As LongRange("A:A").EntireRow.Hidden = FalseEndcol = [iv1].End(xlToLeft).ColumnEndrow = Range("A65536").End(xlUp).RowFor i = Endrow To 1 Step -1Ro计那完学齐配成训的胶ws(i).Hidden = TrueNextstra = InputBox("请输入你要查找的数字:", "A")If stra = "" ThenFor i = Endrow To 1 Step -1Rows(i激雷燃白).Hidden = FalseNextElseSet AA = Range(Cells(1, 1), Cells(Endrow, Endcol)).Find(what:=stra, lookat:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext)If Not AA.IsNothing ThenfirstAddress = AA.AddressDoIf Rows(AA.Row).Hidden = True ThenRows(AA.Row).Hidden = FalseElseEnd IfLoop While Not AA.IsNothing And AA.Address fir装对掉注留利stAddressRange("A1").ActivateEnd IfEnd IfApplication.EnableEvents = TrueEnd Sub这个代码使用了VBA宏语言，可以在excel中执行。它会隐藏所有行，然后提示用户输入要查找的数字。如果用户没有输入任何内容，它会显示所有内容。如果用户输入了数字，它会查找并显示该数字所在的行。循环会继续进行直到找到下一个匹配项。注意：请确保先复制代码到VBA编辑器中，然后保存为VBA模块，并在excel中运行该模块来使其生效。