Question

我必须计算2列（firstCol和lastCol）的值之间的差异，并在不同的列（NextColumn）中设置这些差异。行计数不断变化，因此我必须在计算差异之前计算rowCount。我尝试使用Range编写一个循环，以便可以计算差异，但它似乎不起作用。

For i = 3 To lastRow

Range(Cells(3, NextColumn), Cells(lastRow, NextColumn)).FormulaR1C1 = "=Range(Cells(i, firstCol),Cells(i,firstCol)).Value - Range(Cells(i, lastCol),Cells(i,lastCol)).Value"

Next i

非常感谢任何帮助！

谢谢尼克

Answer 1

对于＆＃34; i＆＃34;的任何输入进入公式，你需要使用＆＃34; ＆安培;我和我＆＃34;当使用公式=＆＃34;＆＃34;时，例如：

<com.google.android.gms.ads.AdView
    android:id="@+id/adView"
    android:layout_width="wrap_content"
    android:layout_height="wrap_content"
    android:layout_alignParentBottom="true"
    android:layout_centerHorizontal="true"
    ads:adSize="BANNER"
    ads:adUnitId="xxxxxx-xxxxx" />

当您更改为只是没有向单元格输入公式的公式时（数学在VBA中进行），您可以忽略Excel格式和＆＃34;＆＃34;阻止，例如：

"=A" & i & "+B" & i

确保在适当的地方使用你的循环变量，这样你就可以在循环中获得结果：

= Cells(i,"A").Value +  Cells(i,"B").Value

Answer 2

为什么要循环？除非我误解了这个问题，否则应该这样做：

Range("X3:X"& lastrow).Formula = "=C3-D3"

公式将会调整。

Answer 3

vba需要在引号之外，你不需要循环：

Range(Cells(3, NextColumn), Cells(lastRow, NextColumn)).Formula = "=" & Cells(3, firstCol).Address(0, 0) & "-" & Cells(3, lastCol).Address(0, 0)

不需要循环。 Excel将根据需要更改相对引用。

获取2个整数列之间的差异到第三列

3 个答案: