Question

我在VBA宏中寻找以下内容。

我希望宏在Excel中的工作表1中查找某个值，并使用Excel中的sheet2中的值执行VLOOKUP。

如果工作表1中的字段中的值为空，则Excel也应显示为空白而不是#N/A。

我可以编写代码来执行VLOOKUP，但我真的不确定如何输入IF命令。

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        .Range("G5:G600").Formula = "=VLOOKUP(F5,Sheet2!D:F,3,0)"

Answer 1

包含IF的技巧是确保所有双引号都被转义：

.Range("G5:G600").Formula = "=IF(F5="""","""",VLOOKUP(F5,Sheet2!D:F,3,0))"

Vlookup与VB宏中的if函数

1 个答案: