插入带除法的简单公式时出现运行时错误 1004

Question

我有这个小代码允许根据之前计算的数据填写表格：

（我们感兴趣的最后一行）

'inserts the values calculated
For Each CellCalc In Worksheets(WsPrevData).Range("D" & FirstLine + 2 + NbLinesYear * Counter + 2 * RegionCount - 2 & ":O" & FirstLine + 2 + NbLinesYear * Counter + 2 * RegionCount - 2)
    CountCells = 0
    CellCalc.Select
    For PackOfLines = FirstLine + 2 To FirstLine + 2 + NbLinesYear * Counter - NbLinesYear + 2 * RegionCount - 2 Step NbLinesYear
        If IsNumeric(Range(Split(Cells(1, CellCalc.Column).Address, "$")(1) & PackOfLines).Value) Then
            CellCalc.Value = CellCalc.Value + Range(Split(Cells(1, CellCalc.Column).Address, "$")(1) & PackOfLines).Value
            CountCells = CountCells + 1
        End If
    Next
    pouet = CellCalc.Value
    CellCalc.Formula = "=" & pouet & "/" & CountCells 'Runtime error 1004 here -_-
Next

基本上，它只是获取已填充数据中不同单元格中的值，然后对这些单元格进行平均，并将其写入最后一个单元格。

我希望除法得到值，而不是简单的纯数字。

因此，我使用“.formula”并尝试插入公式。这是我收到他以下错误消息的时候：

运行时错误 1004：应用程序定义或对象定义错误

pouet = 120,166907548137（双）

和CountCells = 3（整数）

我尝试了不同的方法：

• 删除“=”符号允许插入公式（变得无用）

• 直接插入结果有效（但我想要计算的细节）

• 将“pouet”转换为整数可以使其工作，但我会丢失小数...

• 另一方面，将两个变量都设为 Double 并不能正常工作

• 删除长数字中的一些数字不会改变任何事情

• 删除斜线没有任何作用

• 将 CountCells 定义为 double 不会改变任何事情

• 使用 .FormulaR1C1 而不是 .Formula 没有任何改变

Answer 1

我已将 Formula 更改为 FormulaLocal，它非常适合我

Dim pouet As Double
Dim CountCells As Integer

pouet = 120.166907548137

CountCells = 3 

Range("A1").FormulaLocal = "=" & pouet & "/" & CountCells

Range.FormulaLocal property

在 VBA 中，小数点分隔符是点，但在某些国家/地区（例如我的国家，我猜像您的国家），小数分隔符是逗号。当您使用Formula 或FormulaR1C1 时，VBA 需要英文格式的值（并且公式的名称必须是英文，并且参数用逗号分隔等等），但是如果您使用FormulaLocal，您可以使用您的区域设置。

上面的代码非常适合我。希望这会有所帮助

更新：嗯，另一件令人惊讶的事情是：

Range("A1").Formula = "=" & Replace(pouet, ",", ".") & "/" & CountCells