vba - 从 Excel 列表中提取匹配的单词

Question

我在一个excel表A中有一个名称列表，另一个excel表B包含描述。我想将工作表 A 中的名称从工作表 B 的描述中提取到另一个单元格/列

例子

表 A

ROW 1: PUMP
ROW 2: MOTOR
ROW 3: VALVE
ROW 4: BELT

表 B

ROW 1: FOR DIESEL ENGINE, PUMP, INJECTION, FOR DIESEL ENGINE
ROW 2: LUGGED, VALVE;BUTTERFLY;3";NB
ROW 3: BELT, DRIVE, 3V-9507

我需要使用任何公式或宏将名称pump、Valve和belt提取到 Sheet B 中的单独列或单元格中。

Answer 1

如果您可以使用公式，那么使用Find带有一些错误测试的公式将起作用。以下示例测试您的三个关键字中的每一个是否存在，如果未找到该值，则返回空白，如果在搜索的单元格中找到该键，则返回“X”。

我输入了这个公式并为三个键中的每一个进行了修改：

=IF(ISERROR(FIND("PUMP",$A1,1)),"","X")

我将公式复制到该列并为每个测试创建另一列。这是一个屏幕截图：

您可以将最后一个参数 , 替换为"X"您想要指示找到关键字的任何值。