合计行与列，遇到麻烦问题。求助。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

excel文档在附件里。
合计每一车次行与列，遇到麻烦问题。求助。列求和没有问题，但是行求和要出错。希望大家帮我看看。
Sheet1.Select
    Dim r As Range, r2 As Range
    For Each r In [T:T].SpecialCells(xlCellTypeConstants, 2)
        If Len(r) Then           
            Set r2 = r.Offset(, -18).Resize(50000).Find("合计")
            r2.Offset(, 4).Resize(1, 1) = "=sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)"
            r2.Offset(, 6).Resize(1, 1) = "=sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)"
            r2.Offset(, 8).Resize(1, 8) = "=sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)"
            r2.Offset(, 12).Resize(r2.Row - r.Row - 2, 1) = "=sum(rc[-4]:rc[-1])"
     End If
    Next
End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：constant Special Offset Select range 求助 麻烦

你也不介绍介绍你要干什么 我们又不是机器 怎么能只看代码呢

excel已经上传到附件了。我想每一车次录入完后合计每一车次的行和列。但是每一车的行数又不是固定的。谢谢你。我再把帖子改一下。 2# zhaozyuan

如果你是想把后边的那三个 [tr][/tr]

送货 费

短运 费

中转 费

加上的话，代码应该改为

另外，你以后上传附件搞小点 帮你解决问题 还收流量费,或者把问题说清点，比如这个你如果说“合计行为什么后边三列没有加”就不需要上传附件，而且到现在 我也不明白你说的行合计错哪里了 只是猜一下 所以要把问题说清楚 看你附件太麻烦

直接用sumif就可以做到吧，一定要用vba？

controlpanel 发表于 2009-7-25 12:29
直接用sumif就可以做到吧，一定要用vba？

小板哥，人家不是懒得一个一个写公式吗 而且估计代码也不是他写的 自己都不懂 那么 sumif 那么麻烦的 他才不用呢

谢谢你，每一行求和，只想有车次的N列有求和公式，表头不用。代码运行后N列在表头所在的行业求和了。 5# zhaozyuan

看不到你的代码，N列有表头的地方不要求求和。 4# Anonymous

加不加 （送货费 短运费 中转费 ）？