excel表格的数字为何不能累加

Sub ocean_cheng()
Dim iStar As Integer
Dim MaxCol As Integer
iStar = 1
MaxCol = ThisWorkbook.ActiveSheet.Range("IV1").End(xlToLeft).Column
For Col_i = 1 To MaxCol
Col1 = ThisWorkbook.ActiveSheet.Cells(1, Col_i).Value
If Col1 <> "" Then
If Col1 <> "" Then
For j = iStar To Col_i
If j = 1 Then
ThisWorkbook.ActiveSheet.Cells(2, j).Value = Col1 / Col_i
Else: This360问答Workbook.ActiveSheet.Cells(2, j).Value = _
(Col1 / (Col_i - iStar + 1)) 胶村美促+ ThisWorkbook.ActiveSheet.Cells(2, j - 1).Value
End If
Next j
iStar = Col_i + 1
End If
End If
Next Col_i
ThisWorkbook.ActiveSheet.Cells(2, j).Value = ThisWorkbook.ActiveSheet.Cells(2, j - 1).Value
End Sub
我只能用VBA写了，如何把代码放到宏里应该知道吧（Alt+F11）

可以参阅我以前的回答。。
但是不好搜索。。
由于电脑使用二进制保存数据的
所以一些10进制下面的有限小数在2进制中是无限的
导致了电脑保存数据的时候会有一定的浮点误差
所以excel中一般数字存储的精度是小数点后15位
而且基本上和实际的数都不一样（小数点后）

主要看你要用到什么公式
需要多精确
有必要的话需要自己另外想办法写公式来保障准确性

这也不是excel的问题
而是所有电脑软件的通病

官渡古镇提大喜55件；锦云70件；祥云1件；瑞云4件；送黄土坡新广丰吉云100件；锦云20件；彩云100件；瑞云20件；发昭通：瑞云52件；吉云60件；锦云10件；彩云11件
复制到word里面，编辑——替换——查找内容输入[!0-9]——替换输入++——高级——使用通配符打勾——全部替换
然后查找内容输入++——替换输入+——全部替换(多点几次，直到出现数字中间出现一个加号)——全选——复制——点击excel一个单元格——输入=——然后粘贴就可以了。

在工作中，经常做一些叠加累加的计算，我们可以启用excel迭代计算的方法，快捷的完成我们的工作，今天小编就和大家一起来学习Excel 单元格数值累加的方法。
1、打开excel，点击excel选项

2、此时我们计入excel选项界面

3、依次找到公式启用迭代计算

4、并设置最多迭代次数为1，最后确定完成设置

5、在excel表格中A1单元格中输入任意数字，并在B2单元格中输入公式=A1+B1

6、此时我们在A1单元格中输入数字，在B2单元格就会把所有在A1单元格的数字进行累加了。

打开“工具-选项”，在“视图”中勾选“状态栏”复选框。右击EXCEL表格下面的状态栏，选“求和”。