Question

我知道这很简单，但是我出了点问题。我只想从C列中的值中减去B列中的值，并将这些结果放在Q列中。

我已将我的strFormula（1）分配为一个变体，然后将该方程应用于strFormula（1）。我在Stack Overflow上从@Manhattan更改了以下代码：）

Sub FormulasNoLoops()

    Dim strFormulas(1) As Variant

    With ThisWorkbook.Sheets("Sheet1")
        strFormulas(1) = "=(C2-B2)"
        .Range("Q2:Q130").Formula = strFormulas
        .Range("Q2:Q130").FillDown
   End With

End Sub

运行脚本时没有错误，但在列Q中也没有结果。理想情况下，我什至不想输入该列的最后一个单元格，但可以在某处使用.End(xlUp)。

谢谢！

Answer 1

第一

Dim strFormulas(1) As Variant

正在创建一个包含两个项目的数组，0,1

对于一个公式，我会完全避免使用该变量。

但是，如果要使用它，只需将其设置为不带(1)

的字符串即可

Dim strFormulas As String

然后加载它：

strFormulas = "=(C2-B2)"

此外，当您将公式应用于整个范围时，无需填写：

Sub FormulasNoLoops()

   With ThisWorkbook.Sheets("Sheet1")
        .Range("Q2:Q130").Formula = "=(C2-B2)"
   End With

End Sub

简单：在Excel VBA中减去两列，并填充到特定列中的工作表末尾

1 个答案: