Excel VBA“If”语句错误

所以我得到一些代码错误，我不知道如何解决它

Range("K" & varOffset).Select Output = If (ISBLANK(H2), "No", "Yes") <----------Shows up red ActiveCell.FormulaR1C1 = Output` 

我如何使这个如果陈述工作？

Answer 1

尝试这个

Excel中的公式不是VBA。 VBA的代码结构需要坚持

 Range("K" & varOffset).Select If trim(Range("H2")) = "" then output = "No" else output = "Yes" end if ActiveCell.FormulaR1C1 = Output 

Answer 2

看起来你正在尝试使用IF的工作表版本。

尝试VBA中频块

 If IsEmpty(H2) Then Output = "No" Else Output = "Yes" End If 

Answer 3

下面将避免需要select应该总是避免的单元。 它也避免了输出variables的需要

 with Range("K" & varOffset) If trim(Range("K" & varOffset).offset(0,-2).value)="" then'If blank .value= "Yes" else .value= "No" endif end with