A列数据中有几万个数值

假如数据在A列，累加的数据显示在B列，代码如下 ：

Sub mysum()
Dim x, y, sums, ar
ar = Range("a2:b" & Range("a65536").End(3).Row)
For x = 1 To UBound(ar)
   sums = sums + ar(x, 1)
   ar(x, 2) = sums
   If sums >= 100000 Then
        sums = 0
   End If
Next
Range("a2").Resize(UBound(ar), 2) = ar
End Sub

B2开始

=IF(B1>=100000,A2,A2+B1)

选择B列-“条件格式”-“突出显示单元格规则”-“其他规则”：

“单元格值”，“大于或等于”，100000，然后设置一个格式（比如红字，或者黄底）