VBA-Code durchschnittliche Excel-Daten

Question

ich drei Spalten „Proben-ID“ Die Ergebnisse haben, Durchschnitt

ZB:

SAMPLE ID 
1201 
1201 
1201 
1201 
1300 
1300 
1300 
1300 
1400 
Results 
400 
490 
340 
400 
400 
490 
233 
400 
290 

verwendete ich die folgende Formel 3. die durchschnittliche in Spalte erreiche ich diese wollen in vba gemacht werden. Mein Datensatz ist lang (nur wenige gezeigt)

1. Kann ich diese Formel nach unten auf andere Zelle mit VBA füllen (auch ohne sie in der ersten Zelle eingeben)

2.can wir diese definieren als String und kopiere es runter ??? Alle Hilfen werden geschätzt. oder jede andere Art und Weise zu diesem Dank der Codierung

= IF(A2<>A1,AVERAGEIF(A2:INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1),MATCH(TRUE,(INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1)<>A2,)),0)),A2,B2:INDEX($B2:INDEX(B:B,MATCH(1E+99,A:A)+1),MATCH(TRUE,(INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1)<>A2,)),0))),"") 

Answer 1

versuchen diese

Sub main() 
With Worksheets("averages") '<== change it as per your actual worksheet name 
    Range("C1:C" & .Cells(.Rows.Count, 1).End(xlUp).Row).formula = "= IF(A2<>A1,AVERAGEIF(A2:INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1),MATCH(TRUE,(INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1)<>A2,)),0)),A2,B2:INDEX($B2:INDEX(B:B,MATCH(1E+99,A:A)+1),MATCH(TRUE,(INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1)<>A2,)),0))),"""")" 
End With 
End Sub