“我的宏”有多个部分（均在表内部）： 一种。第4列中的值= col4值+ col5值（有效）
b。然后将col5值设置为0（有效）
c。列4和5中的最后一个单元格设置为各自列中所有条目的总和。 （无效）
d。第5列中的每个单元格都需要具有以下公式： [@ [已完成并存储的日期总数（K = H + I + J）]]-[@ [已完成之前的工作]] （无效）要将第4和5列中的最后一个单元格设置为我尝试过的列的总和：
Cells（Rows.Count，4）.End（xlUp）.Row.Formula =“ = SUM（Table2 [已完成先前工作]）”
Cells（Rows.Count，5）.End（xlUp）.Row.Formula =“ = SUM（Table2 [存储的材料]）”
要为第5列中的每个单元格设置公式，我已经尝试过：
对于i = 12 To Cells（Rows.Count，5）.End（xlUp）.Row
Cells（i，5）.Formula =“ = [@ [已完成并存储的日期总数（K = H + I + J）]]-[@ [已完成先前工作]]”
下一个我
我不确定这部分是否有效，因为我的代码停止以求和公式运行。
Sub zeroAndAdd0_Click（）
For i = 12 To Cells(Rows.Count, 4).End(xlUp).Row
Cells(i, 4).Value = Cells(i, 4).Value + Cells(i, 5).Value
Cells(i, 5).Value = 0
Next i
Cells(Rows.Count, 4).End(xlUp).Row.Formula = "=SUM(Table2[Prior Work Completed])"
Cells(Rows.Count, 5).End(xlUp).Row.Formula = "=SUM(Table2[Stored Materials])"
For i = 12 To Cells(Rows.Count, 5).End(xlUp).Row
Cells(i, 5).Formula = "= [@[Total Completed & Stored to Date (K=H+I+J)]] - [@[Prior Work Completed]]"
Next i
结束子