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

2024-10-28 20:19:34

推荐回答（5个）

回答（1）：

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

具体操作方法如下：

1、单击文件按钮

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

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

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

回答（2）：

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

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

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

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

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

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

回答（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

回答（4）：

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

回答（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掉宏

最新问答

慢性浅表性胃炎食疗

1983年9月初2是什么星座？性格怎样？

NOKIA 6020设置

qq炫舞更新后的那个七彩翅膀是不是飞行的?

炫舞女生七彩耀光衣服怎么得到的

音源与音箱的开关机顺序

沈阳盛京医院拔牙好还是医大口腔拔牙好？我下百两颗智齿都是横着长的，得挖出来，去哪安全些，周围都是神经

想问去天津市旅游住哪里比较舒服，和男朋友一起

有没有秦殇的物品修改器，要能改物品数量的！不要H2，或者是改怪物的爆率，改好了之后发给我！

哪个学英语的软件比较好用？