vba excel。 如果/和

我敢肯定，我正在尝试粘贴一个公式，当它可以在代码中完成，但我是一个完全新手，错误的方式… …

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的出现ColE是否只是一次），然后在ColW显示WARNING

Answer 1

问题在于引号。 一般来说， FormulaR1C1应该是这样的：

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

确保你把报价加倍，这样就行了。

干杯!