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

jimmy

123.pdf (26.33 KB)

下載次數: 10

2010-11-7 21:53

各位先進
小弟有一問題，有一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

回復 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
之後可依數量作排序 再求四分位數

Hsieh

C2陣列公式
{=IF(COUNTIF($A$1:A2,A2)=1,QUARTILE(IF($A$2:$A$315=A2,$B$2:$B$315),1),"")}

jimmy

回復 3# Hsieh


    謝謝大大的教導
問題已解決