Question

如何在EXCEL同一个单元格里面输入数字自动相加？

我想在EXCEL同一个单元格里面实现输入数字自动相加，比如在A2，输入1、2、3，分3次输入，如何实现不用“=1+2+3”，自动求和为6？要求结果也在A2中。想实现在原有的单元格里数字存在的情况下，再输入一个数字，它们自动相加求和？
假如不能实现的话，如何实现我输入数字比较多的情况下，不会每次输入显示一大串，如=1+2+3+4+5+……等很多，很不方便，最好前面可以合并再加？控制在2、3个数字最好！
谢谢！求祝高人,高分不是问题啊！！大侠啊！
据说宏可以实现，如何使用请给出详细步骤，再加分

Answer 1

这个使用excel的迭代计算可以完成。

具体操作方法如下：

1、单击文件按钮

2、在弹出的快捷菜单中单击选项

3、在弹出的excel选项对话框左侧单击公式按钮，在右侧的计算选项中勾选启用迭代计算，最多迭代次数为1，单击确定按钮

4、在A2单元格输入公式=A1+A2，回车，在A1依次输入1，2，3，即可在A2得到6

Answer 2

1、首先在Excel中输入几行测试数据。

2、然后在新的列输入一个等号。

3、在等号后面输入单词sum，与一个左括号，连起来就是"=sum("。

4、按住鼠标，从列1拖到列5，在上一步后面加上右括号，即 “=sum(A2:E5)”。

5、输入完成右括号之后，按一下键盘的Enter回车键，数字就自动求和了。

6、鼠标按住上一步单元格右下角出现的加号，往下拉，就会自动计算各行求和，完成效果图。

Answer 3

写了个代码，加到你的文档中就可以了。

具体步骤：打开你的文档，按Alt+F11进入VB界面，在左边工程小窗口中展开树状找到“ThisWorkBook”，把以下代码粘贴到“ThisWorkBook”中。

代码经过测试，可以符合你的要求。

Dim i As Double

Dim t As Integer

'--------------------------------------------------------

'Description:this micro-sub automatically plus range value

'--------------------------------------------------------

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

t = t + 1

On Error GoTo skip

If t <= 1 Then

Target.Value = Target.Value + i

End If

skip:

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

t = 0

On Error GoTo skip

i = Target.Value

skip:

End Sub

Answer 4

我想是不是改变一下你的表格设计,将要输入的数据放在一行或一列.如果表格的格式不允许改变已好办新增一张输入表,将输入表的结果求和后再返回给接收结果的表.这些操作都可以自动完成.
按你上面的要求算是VBA做起来代码能也不好写.况且你的输入也很不方便.

Answer 5

Sub 累计()
Dim x, y
x = Selection.Row()
y = Selection.Column()
Dim a As String
Dim b As Double
a = 0
Do While a <> ""
a = InputBox("", "请输入数字")
If a <> "" Then
b = b + a
Cells(x, y).Value = b
End If
Loop
End Sub
写入宏 宏好了后你就选中要输入的单元格然后运行宏输入完了就X掉宏