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 & ")"