1、首先，在Excel中新建数据表格。
2、然后，在电脑键盘上按快捷键Alt+F11，从而Excel进入vba界面。
3、接着，在Excel的vba界面依次点击插入——模块，从而进入代码编写的界面。
4、最后，在代码编写的界面输入代码： sub合计20() Dim a% Do Until Sheet2. Cells (a, 2)="" Sheet2. Cells(2, 3)= Sheet2. Cells (2, 3)+ Sheet2. Cells (a, 2) a=a+1 End sub 插入控件，将控件制定宏为刚才写的代码即可。
直接公式不就好么 ，要VBA 作甚 [a1] =application.sum(range("A2:A" & cells(rows.count ,1 ).end(xlup).row))
