返回列表下一主題上一主題發帖

excel各組別四分位計算問題請教

jimmy

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2010-11-7
最後登錄: 2010-11-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-11-7 21:53 | 只看該作者

excel各組別四分位計算問題請教

123.pdf (26.33 KB) 各位先進
小弟有一問題，有一EXCEL檔案要計算各組四分位數，由於組數有數千筆，不知用何種公式可解決此問題
非常感謝
問題如下
品號                      數量
8C-001                                  2
8N2I15B010001A0-31 49
8N2I15B010001A0-31 49
8N2I15B010001A0-31 NA
8N2I15B010001A0-31 NA
8N2I15B010009A0                   24
8N2I15B010009A0                   25
8N2I15B010010A0                8
8N2I15B010010A0                25
8N2I15B010013A0-12          16
8N2I15B010014B1                7
8N2I15B010014B1                8
8N2I15B010027A0-18 0
8N2I15B010027A0-18 11
8N2I15B012004A0                   NA
8N2I15B012004A0-12 15
8N2I15B012004A0-12 22
8N2I15B013008A0                   2
8N2I15B013008A0                   4
8N2I15B013008A0                   5
8N2I15B013009A0                   9
8N2I15B015002A0                28
8N2I15B015002A0                35
8N2I15B015002A0                46
8N2I15B015004A0                   5
8N2I15B015004A0                8
8N2I15B015004A0                13
8N2I15B015005A0                4
8N2I15B015006A0                21
8N2I15B015006A0                28
8N2I15B015006A0                28
8N2I15B015007A0                21
8N2I15B015007A0                28
8N2I15B015013A0                8
8N2I15B015013A0             6
8N2I15B015013A0                23
8N2I15B015013A0                26
8N2I15B018001A0                15

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

2^#

發表於 2010-11-8 00:34 | 只看該作者

本帖最後由 yangjie 於 2010-11-8 00:36 編輯

回復 1# jimmy

可嘗試用VBA巨集處理在這裡先參考處理資料分出組別與數量表
Sub Sample()
Dim myRng As Range
Sheets(1).Activate
Set myRng = Columns(1)
myRng.AdvancedFilter _
      Action:=xlFilterInPlace, _
      Unique:=True
Set myRng = Nothing
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(1).Activate
row1 = [A65336].End(xlUp).Row
Range("A1:A" & row1).Copy Sheets(Sheets.Count).Cells(1, 1)
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Sheets(Sheets.Count).Activate
For i = 2 To [A65336].End(xlUp).Row
      Cells(i, 2) = 0
      am = Cells(i, 2)
      For j = 2 To row1
         If Sheets(1).Cells(j, 1) = Cells(i, 1) Then
            bm = Sheets(1).Cells(j, 2)
            If bm = "" Or bm = "NA" Then bm = 0
            am = am + bm
         End If
      Next
      Cells(i, 2) = am
Next
End Sub
之後可依數量作排序再求四分位數

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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