将此公式添加到单元格

Question

我不知道为什么以下代码不工作，它给了我一个错误。

Sub addformula() 
For i = 10 To 99 
    For j = 10 To 99 
    Sheet8.Cells(93 + i - 10, 20 + j - 10).Formula = "=IF(OR(AND(J" & i & " = 1; K" & j & " = 1);AND(J" & j & " = 1; K" & i & " = 1));1;0)" 
    Next 
Next 
End Sub 

Answer 1

尝试使用逗号而不是,分号;（即使你有逗号作为非标准分隔符）：

Sub addformula() 
    For i = 10 To 99 
     For j = 10 To 99 
      Sheet8.Cells(93 + i - 10, 20 + j - 10).Formula = "=IF(OR(AND(J" & i & " = 1, K" & j & " = 1),AND(J" & j & " = 1, K" & i & " = 1)),1,0)" 
     Next 
    Next 
End Sub