软件: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

测试原文宏，于工作表名report，储存格c5:o20由上而下数值为1~16，汇整4个档案 https://imgur.com/SRK3HRx看起来选择性贴上内运算"加"，应有正确加入是否有可能档案内工作表名reports，前或后有多出空格呢？使判断sh.name时不为真，而无加总另外则是副档名方面，是否要汇入皆为xlsx

谢谢帮忙 是我眼花 现在再RUN一次是OK的!!谢谢~~