求大神赐一段代码，求和汇总并保存在另一个工作表里

anking2018

姓名	单数	件数	重量	分值
aa	15	500	900	20
bb	26	600	700	10
cc	36	700	800	11
dd	22	400	400	30
4月1号汇总

求大神赐一段代码：sheets1里面表格如上表，想用vba实现每列的求和并把汇总按日期保存在sheets2的表格里，sheet2表格如下

4月1号	单数	件数	重量	分值
4月2号
4月3号

anking2018

现在还有没睡觉的大神吗？

anking2018

我用了一个最笨的方法，求大神个一个简单的代码Private Sub 生成汇总_Click()
Range("c56") = WorksheetFunction.Sum([c2:c55])
Range("d56") = WorksheetFunction.Sum([d2:d55])
Range("e56") = WorksheetFunction.Sum([e2:e55])
Range("f56") = WorksheetFunction.Sum([f2:f55])
Range("g56") = WorksheetFunction.Sum([g2:g55])
Range("h56") = WorksheetFunction.Sum([h2:h55])
Range("i56") = WorksheetFunction.Sum([i2:i55])
Range("j56") = WorksheetFunction.Sum([j2:j55])
Range("k56") = WorksheetFunction.Sum([k2:k55])
Range("m56") = WorksheetFunction.Sum([m2:m55])
Range("n56") = WorksheetFunction.Sum([n2:n55])
Range("o56") = WorksheetFunction.Sum([o2:o55])
Range("p56") = WorksheetFunction.Sum([p2:p55])
Range("q56") = WorksheetFunction.Sum([q2:q55])
Range("r56") = WorksheetFunction.Sum([r2:r55])
    Worksheets("汇总").Range("A65536").End(3).Resize(1, Worksheets("汇总").UsedRange.Columns.Count).Copy Worksheets("每日汇总统计").Range("A65536").End(3).Offset(1, 0)
End Sub

不知道为什么

anking2018 发表于 2018-4-7 00:06
现在还有没睡觉的大神吗？

没有附件？

anking2018

我用了一个最笨的方法，直接定位，但万一增加人员，行号就会增加，代码就需要再修改，求大神写一个定位最后非空行的下一行进行汇总统计的方法
Private Sub 生成汇总_Click()
Range("b23") = WorksheetFunction.Sum([b2:b22])
Range("c23") = WorksheetFunction.Sum([c2:c22])
Range("d23") = WorksheetFunction.Sum([d2:d22])
    Worksheets("汇总").Range("A65536").End(3).Resize(1, Worksheets("汇总").UsedRange.Columns.Count).Copy Worksheets("每日汇总统计").Range("A65536").End(3).Offset(1, 0)
End Sub

lsc900707

anking2018 发表于 2018-4-7 00:38
我用了一个最笨的方法，直接定位，但万一增加人员，行号就会增加，代码就需要再修改，求大神写一个定位最后 ...

你的附件和你开始的要求明显不符。

anking2018

lsc900707 发表于 2018-4-7 08:58
你的附件和你开始的要求明显不符。

做出来以后才发现问题，是当时没考虑好条件的限制

anking2018

朱荣兴 发表于 2018-4-7 11:46

谢谢大神，告别笨方法了