写宏命令可以,当你在B1单元格输入筛选值回车后,让后台自动按其值进行筛选并显示筛选结果。按下ALT+F11组合键---双击左侧对应的工作表---复制粘贴以下代码:Private Sub Worksheet_Change(ByVal Target As Range)Dim Rng As RangeIf Target.Row = 1 And Target.Column = 2 And Target.Cells.Count = 1 And Target.Value "" Then UsedRange.EntireRow.Hidden = False For Each Rng In Application.Intersect(Range("A4:A30000"), UsedRange) If Rng.Value Target.Value Then Rng.EntireRow.Hidden = True End If NextEnd IfEnd Sub
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号