Question

我目前有以下内容：

Set FindRow = ThisWorkbook.Sheets("Schedule").Range("n1:"& ActiveCell.Address).Find(What:="Assembly", SearchDirection:=xlPrevious, MatchCase:=False)

我想做以下

Set FindRow = ThisWorkbook.Sheets("Schedule").Range("n1:"& ActiveCell.Address).Find(What:="Assembly" or "Component", SearchDirection:=xlPrevious, MatchCase:=False)

我希望它能够搜索程序集或组件，并停止搜索最先出现的任何内容。

由于

Answer 1

你可能会有各种变化。

如果您从N1开始，那么您可以使用整个列。

Evaluate("MIN(MATCH(""Assembly"",N:N,0),MATCH(""Component"",N:N,0))")

在vba中合并

    Sub Button1_Click()
    s = "N" & Evaluate("MIN(MATCH(""Assembly"",N:N,0),MATCH(""Component"",N:N,0))")
    MsgBox s
    Range(s).Select
    End Sub

完成VBA查找功能以搜索两个搜索变量中的任何一个，然后选择出现的第一个

1 个答案: