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

我正在努力解决以下问题：我试图在包含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))" 

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