Re: [算表] 想請問"分組篩選"的問題--進階篩選,VBA

[JieJuen (David)]

相信您也知道這要用進階篩選，
但是每組做一次有點累，所以錄一點小VBA就可以了~

http://2y.drivehq.com/q/MultiFilter.xls

法1 進階篩選
準則就把
a       a
>=0.1   <0.2
往右拉

結果大約如
a               a       a       a       a       a       a
0.03                    <0.1    >=0.1   <0.2    >=0.2   <0.3
0.47
0.33
0.23
0.34            a               a               a
0.22            0.03                            0.23
0.22                                            0.22
                                                0.22
Sub Macro1()
'
' 法1 進階篩選
'

'
    [c6].Select
    Do While Cells(1, ActiveCell.Column) <> ""

        Range("A1:A8").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=ActiveCell.Offset(-5, 0).Range("A1:B2"), CopyToRange:= _
        ActiveCell, Unique:=False

        ActiveCell.Offset(0, 2).Range("A1").Select
    Loop
End Sub


法2 公式+進階篩選

新增一b欄 陣列公式
=MATCH(A2,ROW($1:$10)/10-0.1)

分類後再篩選

a       b               b       b       b       b       b
0.03    1               1       2       3       4       5
0.47    5
0.33    4
0.23    3
0.34    4               a       a       a       a       a
0.22    3               0.03            0.23    0.33    0.47
0.22    3                               0.22    0.34
                                        0.22

a若先打好，篩選就不會有b出現

Sub Macro2()
'
' 法2 公式+進階篩選
'

'
    [d6].Select
    Do While Cells(1, ActiveCell.Column) <> ""

        If ActiveCell <> [a1] Then
            ActiveCell.Range("A1:B1").ClearContents: End If

        Range("A1:B8").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=ActiveCell.Offset(-5, 0).Range("A1:A2"), CopyToRange:= _
        ActiveCell, Unique:=False

        ActiveCell.Offset(0, 1).Range("A1").Select
    Loop
End Sub

法3456...
集中公式 (板上/集中)
排序
小計
......

※ 引述《flinder416 (累～一走了之)》之銘言：
:          篩選 <----  我想請問該如何設定 <0.1     把屬於組距內的資料篩選出來
:                                         0.1~0.2
: 1    0.03                               0.2~0.3
: 2    0.47                               0.3~0.4
: 3    0.33
: 4    0.23
: 5    0.34
: 6    0.22
: 7    0.22
: :     :
: :     :
: :     :
: 因為爬文是乎沒有人問相關的問題，希望板上的大大可以教一下
: 不然我統計的論文可能要靠土法煉鋼去計算
: 希望大大可以教一下
: 感激不盡!!!!!!

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.47.3.10