如何批量添加求和公式

◆华佗◆ · 发表于 2024-10-10 15:30

见图片说明

ykcbf1100 · 发表于 2024-10-10 15:45

感觉没有实际意义啊，数量和实际数量之间是什么关系？数量那里不是已经有合计了吗？

longwin · 发表于 2024-10-10 15:48

小凡、、、 · 发表于 2024-10-10 15:48

确定每组盘号和合计成对格式没有问题一个循环就行了

longwin · 发表于 2024-10-10 15:49

Sub test()
For i = 1 To ActiveSheet.UsedRange.Rows.Count
      If Cells(i, 1) = "盘号" Then ksh = i + 1
      If Cells(i, 1) = "合计" Then
         Cells(i, "g").Formula = "=sum(" & "G" & ksh & ":G" & (i - 1) & ")"
      End If
Next
MsgBox "OK!"
End Sub

杨建营 · 发表于 2024-10-10 16:28

请楼主参考，求和公式是计算F列的值，如果计算G列，可以自己修改一下。

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

[求助] 如何批量添加求和公式

评分

评分