EXCEL VBA:使用宏运行制作具有部分文本匹配activecell的第一个单元格,然后在列表中使用后续宏运行activecell

时间:2013-03-08 12:13:19

标签: excel vba search select partial

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

1 个答案:

答案 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