如何用VBA实现动态列相减结果的动态输出范围设置？

嗨，刚接触VBA不用发愁，你的需求其实很容易实现——核心就是动态找到数据的最后一行，然后把公式应用到对应范围就行。

你的原代码里固定了E3:E400，我们只需要把这个固定范围改成基于你要计算的两列（也就是公式里的RC[-2]和RC[-1]，对应C列和D列）的动态行数即可。

修改后的完整代码 #

Sub Makro2()
    Dim ws_3 As Worksheet
    Dim lastRow As Long ' 用来存储最后一行的行号
    
    Set ws_3 = ThisWorkbook.Worksheets(2)
    Application.CutCopyMode = False
    
    ' 找到C列最后一行有数据的行号（如果你的数据源是D列，就把"C"改成"D"，或者取两者最大值更稳妥）
    lastRow = ws_3.Cells(ws_3.Rows.Count, "C").End(xlUp).Row
    
    ' 动态应用公式：从E3到E列的最后一行
    ws_3.Range("E3:E" & lastRow).FormulaR1C1 = "=RC[-2]-RC[-1]"
End Sub

关键步骤解释 #

• ws_3.Cells(ws_3.Rows.Count, "C").End(xlUp).Row：这行代码是从C列的最底部（Excel最大行号）往上找第一个有数据的单元格，返回它的行号，完美适配每天变化的行数。
• 如果担心C列和D列的行数不一致，可以取两者的最大值，避免漏算：

  Dim lastRowC As Long, lastRowD As Long
  lastRowC = ws_3.Cells(ws_3.Rows.Count, "C").End(xlUp).Row
  lastRowD = ws_3.Cells(ws_3.Rows.Count, "D").End(xlUp).Row
  lastRow = WorksheetFunction.Max(lastRowC, lastRowD)
  

• 最后用"E3:E" & lastRow拼接出动态的范围，再应用你的减法公式就搞定了。

这样不管每天数据有多少行，公式都会自动覆盖到最后一行，完全满足动态化的需求～

内容的提问来源于stack exchange，提问作者Marc225