Ormai l'ho fatto ed allego
Ti allego il file "Funzionante", e l'altro file cartel2.xlsx (tutti due aperti)
Se devi sommare usa Foglio1, per 900.000 righe ci metterà 5/10/15 minuti
Se devi sommare per ogni anno, usa Foglio2 non sò quanto impiegherà
Ps. Non ci sono formule
Causa errore, sostituire... (SumIfs<<<>>>SumIf)
Trova1...rg = WorksheetFunction.SumIf(sh2.Range("F2:F" & Ur2), "=" & sh1.Cells(X, 1), sh2.Range("AC2:AC" & Ur2))
Trova2...rg = WorksheetFunction.SumIf(sh2.Range("AD2:AD" & Ur2), "=" & sh1.Cells(X, 1) & "_" & sh1.Cells(2, Y), sh2.Range("AC2:AC" & Ur2))
[Modificato da ABCDEF@Excel 07/11/2020 14:09]