Question

用VB实现EXCEL中某列单元格的求和问题

EXCEL 中第三列中从第一个单元格开始有不定的但是是连续的几个单元格里有数字，判定将下面一个没有数值的单元格以上的单元格里的数求和 结果现在在第2列的第三个单元格里
初学VB。。从按钮里输入代码实现

Answer 1

Private Sub CommandButton1_Click()
s = 0
i = 1
Do While Cells(i, 3) <> ""
s = s + Cells(i, 3)
i = i + 1
Loop
[b3] = s
End Sub

Answer 2

自已创建“录”下一个宏，（就是录下自已需要做的操作步骤）
再进行编辑，就可以知道“代码”了！
建一个“按钮”，就是调用“宏”！

追问

不懂啊 能直接给我一段代码么 我用来学习学习 初学者 谢谢

追答

要了解VB，自己可练习创建一个“宏”，（就是录下自已需要做的操作步骤）
方法：点击——工具——宏——录制新宏——弹出窗口——确认宏名称——这时就会弹出一个录像框，你就可以一步一步点击你要做的操作，按下“停止”，就结束了宏录制！
你再进入工具——宏——选择刚录下的宏名称——点击“编辑”——这里面就是你要的宏代码了，自已可以研究了！
下面是一个宏就是，执行后自己打开：工作表3
代码是：
Sub 按钮1_单击()
Sheet (Sheet3)
End Sub

Answer 3

学习，路过，做任务。