月でソートする

日付ごとに予定が一件別にに記載されているExcel。それを月でソートして切り出す。

sub  月でオートフィルタ()

    dim mFilter 

    mFilter=array(xlJanuary,xlFebururay,.......)

End sub