軟體: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的!!謝謝~~