首页 > 学术百科

如何在EXCEL表中自动插入小计行-并对指定列求和

如何在EXCEL表中自动插入小计行，并对指定列求和。

Sub小计求和()

Dimxasinteger,m1asinteger,m2asinteger

Dimkasinteger

m1=3‘定义起始行的初始值，起始行不一致，需要根据实际情况修改

forx=3to1000‘从起始行进行循环

ifcells(x,1)=””thenexitsub

ifcells(x,1)<>cells(x+1,1)then

m2=x

rows(x+1).insert

cells(x+1,”c”)=”小计”‘C列输入“小计”

cells(x+1,”e”)="=sum(e"&m1&":e"&m2&")"‘e列求和，求和列不一致，修改列

谭功炎标

2012江苏数学

x=x+1

m1=m2+2

endif

nextx

endsub

第三步：点击执行按钮

［出文件旧煽矩归视圈宙TtAOJ梧式g调试O运行(WJH®宿迁市马陵中学外接囲⑷^U(W)琵軌H)何咱kT.,Jft*7

Sub小计求和0

[limkA.sI:."egt]',mlAs:ntrg?r,112Aw7it?ger

DimkrVsInteger

小泉纯一郎

ml=a1定3

zork=37c1CW

IfC&llE(xtI)=""ThenEsiiZ'jb

IfCellstx.1)<?Cells(z-If1)Then

m2-e

Rdw^(je+1:.Cnsert

Cellsti-L,勺-■'，计"厂匚列帝“小i十"

Cellsfs-L,*e"j==munv：:e"&n2必h£|求求皿列牛…致，程孔列杯

H=x-1ml=m2-2

EndIf

timelase上的都好大

Nextx

EndSub|

第四步：运行结果：

ZB1

标段

丄程量

非煤矿山六大系统

小计

起始粒置

1黑项目分类

单价	全额
	2
	3
	4

	9



	0



	0

本文发布于:2024-09-21 01:52:39，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/612904.html

上一篇：BIM技术概论十套习题2018 - 有答案

下一篇：OPTIFLUX4000_En

标签：起始求和计行需要

留言与评论（共有 0 条评论）