VBA，如果和Vlookup语句

Question

我具有以下公式，

=IF(valumeasure3!E2="Buy Notional Amount",VLOOKUP(C2,valumeasure3!C:U, COLUMNS(C:U),FALSE),0)

尝试在VBA中自动化此公式，我会收到语法错误。vlookup公式正常工作，但是一旦我执行语句，我就会遇到语法错误。我相信这与=

有关

Range("R2").Select
        ActiveCell = "=IF(valumeasure3!E2="Buy Notional Amount",VLOOKUP(C2,valumeasure3!C:U, COLUMNS(C:U),FALSE),0)"   ''buy currency amt
        Selection.AutoFill Destination:=Range("R2:R4182")

Answer 1

在VBA中，当您使用引号时，您将为字符串设置边界。您应该使用双引号。

Range("R2").Select
    ActiveCell = "=IF(valumeasure3!E2=""Buy Notional Amount"",VLOOKUP(C2,valumeasure3!C:U, COLUMNS(C:U),FALSE),0)"    ''buy currency amt
    Selection.AutoFill Destination:=Range("R2:R4182")

但是，一个建议是我建议您尽可能使用.Select和ActiveCell。

Dim Rng as Range
Set Rng = Range("R2")
Rng.Value = ....