Здравей,
Какво точно искаш да сумираш?
Тъй като имаш твърде много файлове, най-лесния начин да ги сумираш е чрез макро. Следният код преминава през всички екселски файлове от определена папка и сумира стойностите от клетки А1:Е50, sheet1:
Sub Sum_Workbooks()
'path to open the Excel files
Const FOLDER As String = "C:\Users\username\Desktop\Excel\"
Const cStrWSName As String = "Sheet1"
Const cStrRangeAddress As String = "A1:E50"
Dim rngTarget As Range
Dim wbSource As Workbook
Dim fileName As String
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set rngTarget = ThisWorkbook.Worksheets(cStrWSName).Range(cStrRangeAddress)
fileName = Dir(FOLDER, vbDirectory)
Do While Len(fileName) > 0
Application.DisplayAlerts = False
If Right$(fileName, 4) = "xlsx" Or Right$(fileName, 3) = "xls" Then
Set wbSource = Workbooks.Open(FOLDER & fileName)
wbSource.Worksheets(cStrWSName).Range(cStrRangeAddress).Copy
rngTarget.PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
wbSource.Close
End If
fileName = Dir
Loop
ProgramExit:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
End Sub
За да работи, пействаш този код във VBA едитора на MS Excel (alt + F11, insert new module) и запаметяваш файла в отделна папка от другите файлове като macro-enabled file (file ->save as -> xlsm). Трябва също така да въведеш пътят към папката с екселските файлове в кода. Успех и не забравяй да отбележиш този отговор, ако ти върши работа!