单元格写入公式

燕红尘

Sub 宏1()
Dim N As Long
Dim M As Long
N = Range("R1").End(xlDown).Row
M = 1 - N  
    Range("S2").Select
    ActiveCell.FormulaR1C1 = "=RC[-3]*RC[-1]"
    Range("S2").Select
    Selection.AutoFill Destination:=Range("S2", Cells(N, 19))
   Cells(N + 1, 19).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"（想用变量M代替-10该怎么写）
'ActiveCell.FormulaR1C1 = "=SUM(S2:S11)"（这样写的为啥不行）
End Sub

ykcbf1100

可以这样：ActiveCell.Formula = "=SUM(S2:S11)"

ykcbf1100

可以这样：ActiveCell.FormulaR1C1 = "=SUM(R2C:R" & "[-1]C)"

燕红尘

ykcbf1100 发表于 2022-12-13 16:00
可以这样：ActiveCell.FormulaR1C1 = "=SUM(R2C:R" & "[-1]C)"

字符串中插入变量我大概懂了，变量必须在""之外，用&连接。
但是我测试这段
N=4
ActiveCell.FormulaR1C1 = "=SUM(R" & N & "C:R[4]C)"
显示的是 =SUM(S$4:S9)  这里为什么有个美元符号？

ykcbf1100

燕红尘 发表于 2022-12-14 10:44
字符串中插入变量我大概懂了，变量必须在""之外，用&连接。
但是我测试这段
N=4

$表示的是绝对地址。$4表示汇总是从第4行开始。