VBA-错误1004

这一行显示运行时错误1004，但我不明白为什么：

---

问题是vba非常以美国英语为中心。所以要么使用，要么代替；或使用。公式1c1本地：

请参阅如何避免使用。选择并说明原因

作出了两项修改：

使用公式1C1代替公式。 更换电池；在的公式中，。 它应该是ActiveCell.FormulaR1C1，而不是ActiveCell.Formula.Change ActiveCell.Formula为ActiveCell.FormulaR1C1Local++以避免选择和ActiveCell

ActiveCell.Formula = "=MATCH(R" & i & "C16;R" & i & "C6:R" & i & "C15;0)" 

Sub Call_Min()

    Dim i As Integer
    Dim limit As Integer
    Sheets("AUX").Activate
    limit = ActiveSheet.Range("B6").Value

    Sheets("DATA").Activate
    'ActiveSheet.Cells(6, 16).Select
    'ActiveCell.Formula = "=SUM(Range("F6:I6"))"
    For i = 6 To limit

      'MATCH(P6;F6:O6;0)
      ActiveSheet.Range("P" & i).Select
      ActiveCell.Formula = "=MIN(R" & i & "C6:R" & i & "C15)"

      ActiveSheet.Range("E" & i).Select
      ActiveCell.Formula = "=MATCH(R" & i & "C16;R" & i & "C6:R" & i & "C15;0)"
    Next i

End Sub

Sub Call_Min()
Dim i As Integer
Dim limit As Integer

limit = Sheets("AUX").Range("B6").Value

Sheets("Sheet11").Activate
'ActiveSheet.Cells(6, 16).Select
'ActiveCell.Formula = "=SUM(Range("F6:I6"))"
For i = 6 To limit

      'MATCH(P6;F6:O6;0)
      Sheets("DATA").Range("P" & i).FormulaR1C1Local = "=MIN(R" & i & "C6:R" & i & "C15)"

      Sheets("DATA").Range("E" & i).FormulaR1C1Local = "=MATCH(R" & i & "C16;R" & i & "C6:R" & i & "C15;0)"
Next i
End Sub

Sub Call_Min()

    Dim i As Integer
    Dim limit As Integer
    Sheets("AUX").Activate
    limit = ActiveSheet.Range("B6").Value

    Sheets("DATA").Activate
    'ActiveSheet.Cells(6, 16).Select
    'ActiveCell.Formula = "=SUM(Range("F6:I6"))"
    For i = 6 To limit

      'MATCH(P6;F6:O6;0)
      ActiveSheet.Range("P" & i).Select
      ActiveCell.FormulaR1C1 = "=MIN(R" & i & "C6:R" & i & "C15)"

      ActiveSheet.Range("E" & i).Select
      ActiveCell.FormulaR1C1 = "=MATCH(R" & i & "C16,R" & i & "C6:R" & i & "C15,0)"
    Next i

End Sub