Sub AASearchForPartialText()
Dim SearchValue As String
SearchValue = Range("d2").Value
Columns("D:D").Select
Selection.Find(What:=SearchValue, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
我试图通过输入他们想要找到的部分字符串并点击搜索按钮来搜索一长串名称(有时是2000),从而简化/加快excel搜索功能。期望的结果是它将遍历名称列表,突出显示匹配的下一个连续单元格
我正在做的最好的是突出显示范围d:d。有人可以帮帮我吗?
我已经为任何人提供了样本工作簿
谢谢大家
https://www.dropbox.com/s/uahuzsu3a8qfv6z/searchpartial.xlsm
答案 0 :(得分:2)
我实际上能够自己解决这个问题,并为其他有些相关的代码提供一些帮助
抱歉浪费任何人的时间Sub newsearchrecord()
Dim SearchValue As String
SearchValue = "*" & Range("D2").Value & "*"
Cells.Find(What:=SearchValue, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub