seri toplamı dizi olarak kısa yazmak

[mogu42]

CC370+
(CC370+CC369)/2+
(CC370+CC369+CC368)/3+
(CC370+CC369+CC368+CC367)/4+
(CC370+CC369+CC368+CC367+CC366)/5+
(CC370+CC369+CC368+CC367+CC366+CC365)/6+
(CC370+CC369+CC368+CC367+CC366+CC365+CC364)/7+
(CC370+CC369+CC368+CC367+CC366+CC365+CC364+CC363)/8+
(CC370+CC369+CC368+CC367+CC366+CC365+CC364+CC363+CC362)/9+
(CC370+CC369+CC368+CC367+CC366+CC365+CC364+CC363+CC362+CC361)/10+
(CC370+CC369+CC368+CC367+CC366+CC365+CC364+CC363+CC362+CC361+CC360)/11+
(CC370+CC369+CC368+CC367+CC366+CC365+CC364+CC363+CC362+CC361+CC360+CC359)/12+


Böyle bir seri oluşturmak istiyorum seri CC370 ten CC5 e kadar gidecek, ayrıca kaç tane hücre varsa o sayıyayadabölecek. Kısayolu varmıdır bunun

 

[alicimri]

CC370 hücre adı mı işlemleri yaptıktan sonra sonucu bir hücreye yazacak

 

[mogu42]

EVET CC370 hücre adı

 

[alicimri]

Herhalde böyle bir şey yapmak istiyorsunuz

Sub a()
For i = 370 To 5 Step -1
b = b + WorksheetFunction.Sum(Range("CC370:CC" & i)) / Range("CC370:CC" & i).Count
Next
MsgBox b
End Sub

 

[Ömer]

Merhaba,

Formül ile alternatif:
Not: Detaylı deneme yapmadım.

Dizi formülüdür. Girişini ctrl+shift+enter ile yapınız.

=TOPLA(ALTTOPLAM(9;KAYDIR(CC370;-1*(SATIR(CC5:CC370)-SATIR(CC5));0
 ;SATIR(CC5:CC370)))/(SATIR(CC5:CC370)-SATIR(CC5)+1))

.