[已解决]用代码求和

642070295 · 发表于 2013-10-16 16:24

请求各位大师帮忙，“用代码求和”怎么表达？要求说明在附件里。先谢谢了！

用代码求和.rar (75.91 KB, 下载次数: 7)

CheryBTL · 发表于 2013-10-16 16:31

这个可能要用到工作表事件
但是什么时候下，向表2最后一列添加数据？？

danio112 · 发表于 2013-10-16 16:31

Sub t()
b = Cells(Rows.Count, 2).End(3).Row ‘B列最后行号
a = Cells(Rows.Count, 1).End(3).Row 'A列最后行号
s = WorksheetFunction.Sum(Range("A3:A" & a))
Cells(b + 1, 2) = s
End Sub

642070295 · 发表于 2013-10-16 17:02

运行时“语法错误”提示，下面这行代码显示红色：
b = Cells(Rows.Count, 2).End(3).Row ‘B列最后行号
大师再帮看看吧？先测试好再发过来！谢谢！

642070295 · 发表于 2013-10-16 17:05

补充说明：数据分别在两个表格，要不要指定哪个表格？

642070295 · 发表于 2013-10-16 17:11

回cherybtl:
只要运行代码，就向表2最后一行数据下空格填入表1中A列求和的值

殿堂之上 · 发表于 2013-10-16 17:38

你看一下

642070295 · 发表于 2013-10-16 17:51

谢谢danio112大师和殿堂之上大师，问题解决了！非常感谢两位大师

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