|
|
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
a5506257: 金币+10, ★★★很有帮助 2014-02-28 01:06:59
怎么传文件呢?把代码发给你,新建一个宏,命名为"subt",复制这段代码中间部分到代码窗口,再运行即可.
Sub subt()
For i = 1 To ThisWorkbook.Worksheets.Count
For k = 2 To 13
s = 0: t = 0
For j = 1 To i
s = s + Sheets(j).Cells(k, 4)
t = t + Sheets(j).Cells(k, 6)
Next j
Sheets(i).Cells(k, 5) = s
Sheets(i).Cells(k, 7) = t
Next k
Next i
End Sub |
|
回复此楼
