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))