【原】在表格内快速找到自己

如何在表格内快速找到自己名字，或快速查找某个字符，比表格自带的查找好用，以下为完整源码

Sub 快速查找()

On Error GoTo jieshu

Dim vba_cpp As String

vba_cpp = "B站vba_cpp" '将“”引号内的内容改为自己想要搜索的字符

Cells.Find(What:=vba_cpp, After:=ActiveCell, LookIn:=xlFormulas, _

        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _

        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate

If 0 Then

jieshu:

MsgBox "未找到", , "B站vba_cpp"

End If

End Sub

只许将代码内第四行中引号内的内容改为自己名字或要查找的内容即可

将代码保存为加载宏，然后在表格内自定义功能区添加到顶部菜单栏中，使用时直接点击按钮即可查找，一劳永逸，不会操作的可查看视频