如何在表格内快速找到自己名字,或快速查找某个字符,比表格自带的查找好用,以下为完整源码
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
只许将代码内第四行中引号内的内容改为自己名字或要查找的内容即可
将代码保存为加载宏,然后在表格内自定义功能区添加到顶部菜单栏中,使用时直接点击按钮即可查找,一劳永逸,不会操作的可查看视频
联系客服