常常使用电子表格的伙伴们可能会遇到过汇总多个表格数据的情况 ， 虽然表格样式统一，可以用等号列个公式一个个加总 ， 但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中即可使用，如果有问题，欢迎在评论区留言交流 。