填充函数公式

zllyyz · 发表于 2024-1-23 14:14

本帖最后由 zllyyz 于 2024-1-23 14:22 编辑

Sub 填充公式()
Range("k2") = "=D2-SUM(E2:I2)"
Range("k2:k11").FillDown
Range("n2") = "=J2-M2"
Range("n2:n11").FillDown
Range("d13") = "=SUM(D2:D12)"
Range("d13:n13").FillRight
End Sub

行不固定就使用下方(自行更改)：
Range("k2") = "=D2-SUM(E2:I2)"
Range("k2:k" & Range("a65536").End(xlUp).Row).FillDown

答对请送花

838225419 · 发表于 2024-1-23 14:21

本帖最后由 838225419 于 2024-1-24 10:01 编辑

ddz79101 发表于 2024-1-23 14:07
再上传,请老师看看！

最后一行求和，试一下

那时雨 · 发表于 2024-1-23 14:23

参与一下……加油

ddz79101 · 发表于 2024-1-23 14:29

838225419 发表于 2024-1-23 14:21
最后一行求和，试一下

谢谢老师！但附件无法读取

ddz79101 · 发表于 2024-1-23 14:30

那时雨发表于 2024-1-23 14:23
参与一下……加油

谢谢老师！完全符合我希望，结果正确

huarong7984 · 发表于 2024-1-23 15:51

所发示例，仅供参考

838225419 · 发表于 2024-1-23 16:27

ddz79101 发表于 2024-1-23 14:30
谢谢老师！完全符合我希望，结果正确

重新上传，加上了“合计”

		自动登录	找回密码
密码			免费注册

[求助] 填充函数公式

评分

评分