请教版主又是一个循环累计的问题，十万分之感谢！！！

东风吹

小弟在实际工作中，有一表，分三项，第一项即A列为本日生产数字，第二项B列为本月生产累计，第三项C列为本年生产累计。请教如何只输入A列的数字，B列和C列自动计算出来，也就是说如何设置B=B+A，C=C+A。因小弟初学，烦请说的仔细一点。万分感谢！！！

LAO_DI

每天数完当日术后运行以下程序更新一下：
sub a()
for i=1 to cells(1,1).end(up).row
cells(i,2)=cells(i,1)+cells(i,2)
cells(i,3)=cells(i,1)+cells(i,3)
next
end sub

sqac

Sub 循环累计()
    '本示例假定第一行为标题行
    Dim r As Range
    Dim a As Integer
    Dim i As Integer
    Set r = [a1].CurrentRegion
    a = r.Count '取出数据行数
    For i = 2 To a
        Cells(i, 2) = Cells(i, 2) + Cells(i, 1) '将本日数累加到本月累计
        Cells(i, 3) = Cells(i, 3) + Cells(i, 1) '将本日数累加到本年累计
    Next
End Sub

东风吹

再请版主讨教一番。不知您给出的解决办法如何进行运行和编辑。因小弟初学，望请见谅。

jojozz

是阿，版主，一步一步教，好吗？

sqac

第一步：在Excel窗口中按Alt+F11键打开VBA窗口；
第二步：在左方的工程窗口中双击需要计算的工作表名称；
第三步：将代码全部复制到右方窗口中；
第四步：关于运行；在Excel窗口中按Alt+F8键打开宏窗口，选择后点击“执行”即可；
第五步：关于编辑；执行第一、二步后，找到代码进行编辑。
不解之处请说明。

seamount

为什么产生很多零

sqac

可以插入一句
if Cells(i, 2) + Cells(i, 1)<>0 then
    Cells(i, 2) = Cells(i, 2) + Cells(i, 1)
end if

东风吹

谢谢版主问题已解决。

东风吹

版主就是版主，人品好，技术高。谢谢。另在运行程序时发现好像不能处理代小数点的数字，一运行就出现运行时错误6，溢出，该如何解决？另能否烦请版主给程序加上注解，以便小弟能随表格的变化和工作的需要自己处理。最后再一次感谢我们德高望重的版主及各位热心的朋友们！！！