- 帖子
- 28
- 主題
- 4
- 精華
- 0
- 積分
- 54
- 點名
- 0
- 作業系統
- windows xp pro
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台南市
- 註冊時間
- 2010-5-5
- 最後登錄
- 2016-6-8
|
本帖最後由 ginbow 於 2011-5-30 23:47 編輯
剛剛會錯意
這是新的試試看
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)
|
發表於 2011-5-30 23:30
| 