excel vb 将A单元格数据加到B单元格中

Question

如下图所示

我需要的效果是：我在右侧“新进货”一栏填写入数值，然后点击上方控件，就可以将右侧一列中填写的数值计入到左侧的“总进货数量”一列中，并同时将右侧“新进货”中的数值清空。

这些数据都在表格中的，“总进货数量”“新进货”是表标题。

Answer 1

给你一个简单的吧！

VBA函数：

Sub sum()

    For i = 3 To 6

        k = Range("B" & i)

        If k <> "" Then

            Range("A" & i) = Range("A" & i) + Range("B" & i)

            Range("B" & i) = ""

        End If

    Next

End Sub

按钮控件“进货量计入”指定宏“sum”

说明：3 To 6 为你的计数范围（即示例中计数为第3行到第6行）

示例：

Answer 2

Private Sub CommandButton1_Click()
For i = 1 To [H65536].End(xlUp).Row
If Cells(i, 8) > 0 Then '8是H列，7是G列
Cells(i, 7) = Cells(i, 8) + Cells(i, 7)
Cells(i, 8).ClearContents
End If
Next i
End Sub

追问

不好意思，请问这段代码加到哪里，没有“Sub xxx()”怎么指定呢

追答

你要指定宏？
把这个Private Sub CommandButton1_Click()
改成 SUB XXX()就行了
整个代码复制到工作表代码区
如果是添加的按钮，按钮名是CommandButton1，就可以直接

追问

For i = 1 To [H65536].End(xlUp).Row

是从第一行到有数据的最后一行对吧

If Cells(i, 7) > 0 Then
这个G列大于0的判定能不要吗？发现负数不能成功计算

追答

把鼠标放在空白工具栏那儿，右键，有个控件工具箱，里面有命令按钮，可以拖出来一个，在设计状态下，双击这个命令按钮，就出来代码区了，把正式代码放进去，成为上面那些代码的样子，再退出设计模式，你就可以在H列输入几个数字，再点刚才的按钮看看效果了。

Answer 3

for i=3 to cells(rows.count,8).end(3).row
cells(i,"G")=cells(i,"G")+cells(i,"H")"
cells(i,"H")=""
next