如果需要将除当前工作外的所有其他工作表的某一位置（假设为A1）求和，那么输入
=SUM('*'!A1)即可，而不需要把表名逐一录入。
详见附图
相当于将后面表的起始位置相连，=SUM(Sheet4:Sheet3!A1)
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-09-06
Sub aa()
Range("A1").Select
Dim i As Integer
For i = 1 To 3 '有几个工作薄，最大值就设为几
ActiveCell.Range("A" & i) = "='" & ThisWorkbook.Path & "\[工作薄" & i & ".xls]sheet1'!A1"
Next
Dim rng As Integer
rng = Sheet1.Range("A65536").End(xlUp).Row - 1
ActiveCell.Range("A" & i) = "以上小计："
ActiveCell.Range("A" & i + 1) = "=sum($A$1:$A$" & i - 1 & ")"
Range("A1").Select
Dim i As Integer
For i = 1 To 3 '有几个工作薄，最大值就设为几
ActiveCell.Range("A" & i) = "='" & ThisWorkbook.Path & "\[工作薄" & i & ".xls]sheet1'!A1"
Next
Dim rng As Integer
rng = Sheet1.Range("A65536").End(xlUp).Row - 1
ActiveCell.Range("A" & i) = "以上小计："
ActiveCell.Range("A" & i + 1) = "=sum($A$1:$A$" & i - 1 & ")"
第2个回答 2011-08-31
例如，要求SHEET1、SHEET2、SHEET3中A1的和，可以用公式：
=SUM(SHEET1:SHEET3!A1)本回答被提问者采纳
=SUM(SHEET1:SHEET3!A1)本回答被提问者采纳
第3个回答 2011-08-31
如果工作表格式完全相同，可采用数据菜单下的合并计算
第4个回答 2011-08-31
这个真不知道
相似回答