在VBA上实现Vlookup公式，并处理错误1004

Question

我从VBA开始我的冒险之旅。我想在VBA上创建公式，使用vlookup，但这是错误的。此外，我想实现vlookup的单元格，当从不同的列将被填充

(例如，如果WB_WS_Pricing.Range("A4")<>0 WB_WS_PRICING.Range("CX4") = "=IFNA(VLOOKUP(Delivering!E4，DATA!A:I,9,0)，"")“

子公式()

Set WB_CMSO_MASS_IBERIA = ThisWorkbook
Set WB = ThisWorkbook

    Set WB_WS_PRICING = WB.Sheets("Pricing")
    Set WB_WS_HEADER = WB.Sheets("Header")
    Set WB_WS_DATA = WB.Sheets("DATA")
    Set WB_WS_Extension = WB.Sheets("Extension")
    Set WB_WS_DELIVERING = WB.Sheets("Delivering")


  WB_WS_PRICING.Range("CX4") = "=IFNA(VLOOKUP(Delivering!E4,DATA!A:I,9,0),"")"




   End Sub

没人知道出了什么问题？？对我来说这个公式似乎没问题。

Answer 1

您需要在公式中的双引号前加上额外的引号来转义(即“不是"")

WB_WS_PRICING.Range("CX4") = "=IFNA(VLOOKUP(Delivering!E4,DATA!A:I,9,0),"""")"