Question

我正在努力解决以下问题：我正在尝试在包含VBA中的vlookup函数的公式中插入星号（*）。我收到错误13不匹配，我不知道如何解决它。我想格式不好。这是我的代码：

Dim sht As Worksheet, LastRow As Long     

Set sht = ThisWorkbook.Worksheets("JDE_Greece")
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
sht.Activate     
Range("K2:K" & LastRow).Value = _                        
     "=IF(ISNA(VLOOKUP("*"&J2&"*",CDL_Greece!C:C,1,0)),J2, VLOOKUP("*"&J2&"*",CDL_Greece!C:C,1,0))"

我看到我们可以使用允许使用此星号的字符〜。但这对我不起作用。

有没有人在这个问题上有任何线索？在此先感谢：）

Answer 1

试试这个：

Range("K2:K" & LastRow).Formula = "=IF(ISNA(VLOOKUP(""*""&J2&""*"",CDL_Greece!C:C,1,0)),J2,VLOOKUP(""*""&J2&""*"",CDL_Greece!C:C,1,0))"

如果您需要在工作表公式中使用引号"，则需要在代码中使用双引号""。

使用星号* - 错误13不匹配 - Vlookup

1 个答案: