VBA Excel。 如果/和

Question

我确定我尝试通过在代码中完成公式时粘贴公式来解决这种错误的方法，但是我是个新手。

Range("W2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[-17]=("Small"),COUNTIF(C[-18],RC[-18])=1),"WARNING","CLEAR")"
Range("W2").Select

Dim lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("W2").AutoFill Destination:=Range("W2:W" & lastrow), Type:=xlFillDefault

尝试获取如果ColF = "Small"且ColV = 1 （它本身是粘贴并复制下来的公式，以检查ColE的出现次数只是一次），然后在ColW显示WARNING

Answer 1

问题出在引号中。 通常，这是FormulaR1C1样子：

Public Sub TestMe
    Selection.formular1c1 = "=IF(1=1,""true"",""false"")"
End Sub

确保将报价单加倍，并且可以使用。

干杯!