array VBA sum

Opret et ny array m/100 elementer - index 0 til Kundenr index 1 til SalgsSum.
Initier arrayet med nul i begge index.

Gennemløb det oprindelige array - element for element - check om et kundenr findes - hvis ja, adder salgspriser
hvis nej indsæt kundenr. i index 0 og adder salgsprisen

har du et eks...

har lavet mit array sådan her der en fil for hver mån  der hentes sådan salgsdatafiler() .
hvor kan jeg få den til at summere for hver kunde pr. mån



Dim z, q As Integer
z = 0
ReDim salgaar(1, UBound(salgsdatafiler()), antal)

  For p = 1 To UBound(salgsdatafiler())
 
Set ValData = Application.Workbooks.Open(salgsdatafiler(p))
Set valsheet = ValData.Worksheets(1)
If p = 1 Then antall = valsheet.Range(Range("a2"), Range("a65000").End(xlUp)).Count  'tæller antal indtastninger efter overskriften

 
antal = valsheet.Range(Range("a2"), Range("a65000").End(xlUp)).Count  'tæller antal indtastninger efter overskriften


'Do Until i = antall
j = 0
For i = 1 To antal
ReDim Preserve salgaar(1, UBound(salgsdatafiler()), antal)

salgaar(0, z, j) = valsheet.Range("a" & i).Offset(1) 'her gemmes Kundeid
salgaar(1, z, j) = valsheet.Range("c" & i).Offset(1) 'her gemmes Valutakode
j = j + 1
    'Loop
    Next

ValData.Close
z = z + 1
Next p

End Sub

luk