（求助贴） 关于ctrl +f 查找后迅速标记

按住alt依次按f11,i,m
粘贴下面代码后回到工作表中
alt+f8运行宏,或者你也可以在该界面为该宏指定快捷键.
Sub test()
Dim id As String, g As Range
id = InputBox("请输入要查找的身份证号码")
Set g = Range("B:B").Find(id, , , xlWhole) '在b列查找,若在其它列请自行修改
If Not g Is Nothing Then
'g.select'如果在找到后选中该单元格,去掉句首的注释标记'
g.Interior.ColorIndex = 3
Else
MsgBox "未找到该号码"
End If
End Sub

另外如果仅仅是标记而不需要选择,还可以用条件格式来实现.
假设身份证们在B列,要查找的号码在C1单元格.
选中B列>条件格式>公式确定
=b1=c$1
单击该对话框上的格式按钮,设置需要的颜色.
如果有多个身份证号码(c1:c100)要标记
公式改为
=countif(c$1:c$100,b1&"*")