ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¬O§_¦³¤ñ¸û§Öªº¤èªk©O?

¥»©«³Ì«á¥Ñ ginbow ©ó 2011-5-30 23:47 ½s¿è

­è­è·|¿ù·N  

³o¬O·sªº¸Õ¸Õ¬Ý

Sub gd()


Dim i As Integer
Dim s As Integer
Dim frow As Integer
Dim d As Integer


s = Worksheets("sheet1").Cells(65536, 1).End(xlUp).Row

Z = s / 15

w = Int(Z)

For x = 1 To w

If frow = 0 Then frow = 1 Else: frow = d + 1


d = frow + 14

Worksheets("sheet1").Range("B" & x).FormulaArray = "=AVERAGE(A" & frow & " : A" & d & ")"


Next x



End Sub

book1.rar (10.53 KB)

GinBow

TOP

·PÁÂHsieh¡A §Ú§â¥¦§ï¨ì¤u§@ªí2    B1=AVERAGE(OFFSET(¤u§@ªí1!$A$1,(ROW(A1)-1)*15,,15,))
¥i¬O§ÚÁÙ¬O·Qª¾¹D»¡©ú¡A¬O§_¥i¥H©O?
celina710828

TOP

B1=AVERAGE(OFFSET($A$1,(ROW(A1)-1)*15,,15,))¦V¤U½Æ»s
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD