帖子: 67
主題: 21
精華: 0
積分: 94
點名: 0
作業系統: xp
軟體版本: 2010
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2011-3-9
最後登錄: 2013-1-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-5-30 21:39 | 只看該作者

[發問] 是否有比較快的方法呢?

請問大大們，如果資料有A1~A300 ，每15筆資料 B1=AVERAGE(A1:A15)的平均值
，但下一個是B2=AVERAGE(A16:A30)
B3=AVERAGE(A31:A45)以此類推，
而不是直接下拉B1=AVERAGE(A1:A15)
B2=AVERAGE(A2:A16)
B3=AVERAGE(A3:A17)
是否有比較快的方法去做呢?

樓主熱帖

celina710828

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 84
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-8

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-5-30 22:07 | 只看該作者

B1=AVERAGE(OFFSET($A$1,(ROW(A1)-1)*15,,15,))向下複製

學海無涯_不恥下問

TOP

celina710828

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 94
點名: 0
作業系統: xp
軟體版本: 2010
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2011-3-9
最後登錄: 2013-1-17

3^#

發表於 2011-5-30 22:13 | 只看該作者

感謝Hsieh，我把它改到工作表2 B1=AVERAGE(OFFSET(工作表1!$A$1,(ROW(A1)-1)*15,,15,))
可是我還是想知道說明，是否可以呢?

celina710828

TOP

ginbow

中學生 Rank: 2

帖子: 28
主題: 4
精華: 0
積分: 54
點名: 0
作業系統: windows xp pro
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2010-5-5
最後登錄: 2016-6-8

4^#

發表於 2011-5-30 23:30 | 只看該作者

本帖最後由 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)

GinBow

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 84
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-8

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-5-30 23:50 | 只看該作者

回復 3# celina710828

B1=AVERAGE(OFFSET(工作表1!$A$1,(ROW(A1)-1)*15,,15,))
OFFSET(工作表1!$A$1,(ROW(A1)-1)*15,,15,)就是要得到平均範圍
其中工作表1!$A$1當作資料的起始位置
當B1公式中(ROW(A1)-1)*15就是要從A1位移幾列?
(ROW(A1)-1)=0，0*15還是0，所以B1要算的範圍是從A1下移0列
到了B2公式會變成(ROW(A2)-1)*15
就會是位移15列的位置做起點就是A16
,,15,))當中的15是指，起點位置向下擴展15列的範圍

學海無涯_不恥下問

TOP

celina710828

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 94
點名: 0
作業系統: xp
軟體版本: 2010
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2011-3-9
最後登錄: 2013-1-17

6^#

發表於 2011-5-31 16:48 | 只看該作者

感謝ginbow 的幫忙，但巨集無法使用也，我巨集已改為低了，也是不能用，還是很感謝您
Hsieh 大大您好:不好意思我不知道哪裡出了問題平均值不一樣也，幫幫小女吧

Book2.rar (3.05 KB)

celina710828

TOP

yanto913

中學生 Rank: 2

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

7^#

發表於 2011-5-31 18:16 | 只看該作者

A2=AVERAGE(OFFSET('15為一組'!$A$2,(ROW(A2)-2)*15,,15,))
A3=AVERAGE(OFFSET('15為一組'!$A$2,(ROW(A3)-2)*15,,15,))

YOYO

TOP

linsurvey2005

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

8^#

發表於 2011-5-31 19:19 | 只看該作者

回復 5# Hsieh

我喜歡這樣的互動方式
好友學習的空間~I like

開心學習,學習很開心

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 84
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-8

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2011-5-31 19:23 | 只看該作者

A2=AVERAGE(OFFSET('15為一組'!$A$2,(ROW(A1)-1)*15,,15,))
向下複製

學海無涯_不恥下問

TOP

celina710828

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 94
點名: 0
作業系統: xp
軟體版本: 2010
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2011-3-9
最後登錄: 2013-1-17

10^#

發表於 2011-5-31 20:19 | 只看該作者

謝謝三位大老們，我都有試都可以完成也，

至於我的是2011版找不到
編輯>>到>>特殊>>選空格>>確定>>右鍵>>刪除>>儲存格上移>>確定>>完工

CTRL+`(ESC鍵下那一撇看公式之變化)

選有公式之連續儲存格>>剪下>>切至其他工作表>>貼上
但還是第一次的方法也是可以的，謝謝

celina710828

TOP