软件:excel 版本: 我想要将资料夹下多个EXCEL档案中，若有工作表名称"Report"， 就将这工作表'Report'的C40:O100 (每个Report格式都一样) 复制并加总至一张汇总表 也就是比如汇总表的C40的值会是这些'Report'C40的加总, 我google后发现xlPasteSpecialOperationAdd 似乎可以做得到 于是拼凑出了以下vba 但是结果不如我想像, 他并没有将每个复制贴上的值持续加上 请帮我看是有什么问题吗? 谢谢 Sub paste_and_sumup() Dim str$, tt$, i%, aa As Worksheet, sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False Set aa = ActiveSheet FnPath = ThisWorkbook.Path & "\" tt = Dir(FnPath & "*.xlsx") aa.Select: Range("C4:O100").Clear If tt <> "" Then Do Until tt = "" Workbooks.Open FnPath & tt For Each sh In Worksheets If sh.Name = "Reports" Then aa.Activate sh.Range("c5:O44").Copy aa.Activate Range("c5").PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd End If Next Workbooks(tt).Close False tt = Dir Loop End If Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub