常常使用电子表格的伙伴们可能会遇到过汇总多个表格数据的情况，虽然表格样式统一，可以用等号列个公式一个个加总，但wps表格和excel的公式长度又有限制，如果表格太多就不能这样做了。遇到这种情况怎么办？不用发愁，使用VBA，一段代码就能轻松搞定。

代码如下：

Sub 加总()

Dim i, j, minsheet, sheetnum, mincount, count, a

minsheet = 2 '待汇总的表格起始数

sheetnum = 10 '待汇总的表格终止数

mincount = 2 '待汇总的行数起始数

count = 20 '待汇总的行数终止数

For i = minsheet To sheetnum

For j = mincount To count

Sheets("Sheet" & i).Select

Range("B" & j).Select

a = Range("B" & j)

Sheets("Sheet1").Select

Range("B" & j).Select

Range("B" & j) = Range("B" & j) + a

Next j

Next i

End Sub


以上代码复制到VBA中即可使用，如果有问题，欢迎在评论区留言交流。