excel - EXCEL VBA：使第一个单元格与部分文本匹配activecell与宏运行，然后下一个单元格与后续宏运行activecell

Question

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

Answer 1

在其他一些相关代码的帮助下，我实际上能够自己解决这个问题

抱歉浪费任何人的时间

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