如果需要将除当前工作外的所有其他工作表的某一位置(假设为A1)求和,那么输入
=SUM('*'!A1)即可,而不需要把表名逐一录入。
详见附图
相当于将后面表的起始位置相连,=SUM(Sheet4:Sheet3!A1)
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 & ")"
例如,要求SHEET1、SHEET2、SHEET3中A1的和,可以用公式:
=SUM(SHEET1:SHEET3!A1)
如果工作表格式完全相同,可采用数据菜单下的合并计算
这个真不知道