如何设置一个查找，输入内容后只显示查找的那一行，或者凸显出那一行

发布网友发布时间：2022-04-25 15:44

共2个回答

热心网友时间：2023-10-14 03:04

简单的VBA代码。

Sub 查找()
Dim str
str = VBA.InputBox("请输入你要查找内容")
If Not Cells.Find(str, lookat:=xlWhole, MatchCase:=True) Is Nothing Then
    Cells.Interior.ColorIndex = 0
    Cells.Find(str, lookat:=xlWhole, MatchCase:=True).EntireRow.Interior.ColorIndex = 6
    Cells.Find(str, lookat:=xlWhole, MatchCase:=True).select
End If
End Sub

热心网友时间：2023-10-14 03:05

这是一个标准筛选动作，刷黑第一行数据，点击工具栏的筛选键，将产生你要求的按钮。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com