Find Multiple Criteria 将活动单元格向上移动 1

【问题标题】：Find Multiple Criteria move active cell up 1Find Multiple Criteria 将活动单元格向上移动 1
【发布时间】：2022-12-18 17:11:01
【问题描述】：

我如何修改它以搜索许多不同的短语而不是一个？

Rows(4).Find("零件编号", LookIn:=xlValues, lookat:=xlWhole).Offset(-1) = "CPN" Cells.Find(What:="CPN").激活 ActiveCell.Offset(-1, 0).选择做一点事

我不想只搜索“部件号”，而是想搜索“CPN”、“部件号”、“部件号”、“P/N”或“Mfg PN” 只会找到上述短语之一。

此代码在第 4 行中搜索“部件号”，在上方的单元格中输入找到的条件“CPN”。

【问题讨论】：

标签： excel vba

【解决方案1】：

只需寻找所有这些：

On error resume next
    Rows(4).Find("Part Number", LookIn:=xlValues, lookat:=xlWhole).Offset(-1) = "CPN"
    Rows(4).Find("CPN", LookIn:=xlValues, lookat:=xlWhole).Offset(-1) = "CPN"
    Rows(4).Find("Part Num", LookIn:=xlValues, lookat:=xlWhole).Offset(-1) = "CPN"
    Rows(4).Find("P/N", LookIn:=xlValues, lookat:=xlWhole).Offset(-1) = "CPN"
    Rows(4).Find("Mfg PN", LookIn:=xlValues, lookat:=xlWhole).Offset(-1) = "CPN"
On error goto 0
Cells.Find(What:="CPN").Offset(-1, 0).Select
Do something

【讨论】：