將此公式添加到單元格

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