搜索功能无法在VBA中返回结果

时间:2018-12-06 16:09:39

标签: excel vba

我正在编写一个宏以在Excel中进行信息分析,并且搜索功能遇到问题。

我将使用它来搜索包含数据列表的称为“主数据”的工作表上的多个单元格。单个单元格内容的示例如下: EXT 10DEC,PCR 11DEC,LC 12DEC,FR 24DEC

我想在每个单元格中搜索特定信息,这些信息是由另一单元名为“控件”的工作表中单元格B10中指定的特定文本和变量数据连接而成的。我有以下代码可以做到这一点:

MyValue = "EXT" & " " & Worksheets("Control").Range("B10").value
Range("J2").Formula = "=IF(ISNUMBER(SEARCH(MyValue, RC[-1])),""EXT"",""N"")"

因此,使用上面的示例数据,如果我在单元格B10中输入10Dec,我希望代码在单元格I2中搜索“ EXT 10DEC”,如果找到它,则在J2中返回“ EXT”。如果找不到,则应返回“ N”。

我的问题是此代码为所有内容返回“ N”。我已经测试了MyValue变量,ISNUMBER和IF函数,找不到任何问题。

有人可以帮忙吗?

1 个答案:

答案 0 :(得分:2)

您使用的是文字字符串“ MyValue”,而不是该变量的值:

MyValue = "EXT" & " " & Worksheets("Control").Range("B10").value
Range("J2").Formula = "=IF(ISNUMBER(SEARCH(""" & MyValue & """, RC[-1])),""EXT"",""N"")"