汇总当前工作簿中所有工作表A2:A10单元格的值

有见地产

假设当前工作薄有N个工作表，要求如标题处理数据，有新建工作薄时也要一并进行汇总求和
工作薄中设有宏函数sheets=get.workbook(1)
烦请各位支招，谢谢谢了

1578278106

1. Sub a()
   
2.     For i = 1 To Sheets.Count
   
3.         s = Application.Sum(Sheets(i).[a2:a10])
   
4.         s1 = s1 + s
   
5.         Sheet1.[c2] = s1
   
6.     Next
   
7. End Sub

复制代码

有见地产

1578278106 发表于 2013-2-26 00:06

谢谢解答，
不过题目有另外一个要求就是用indirect函数配合本例宏函数进行引用求和，我看了一下计算过程indirect只能有效引用工作表名称数组的第一个元素，即是第一个表明
有可能通过这样方法去实现吗？