[[20140619224041]]　『月単位でセルを選択してｂ列を最優先、C列を次に浴x（koko）　ページの最後に飛ぶ

『月単位でセルを選択してｂ列を最優先、C列を次に優先して並べ替える』（koko）

お世話になります。
A2：E1000位にデータが入力されています。
E列は日付(シリアル値）で昇順に並んでいます。
このE列の日付を月毎に選択して最優先されるキーはB列、
次に優先されるキーはC列で並べ替えをしたいです。

例

	A	B	C	D	E
1	コード	性別	区分１	区分２	日付
2	112	男	1	か	H25.1.1
3	50	女	2	お	H25.1.4
4	100	男	2	え	H25.1.4
5	100	男	1	う	H25.1.10
6	251	女	2	い	H25.1.10
7	102	男	1	あ	H25.1.25
8	102	男	1	あ	H25.2.1
9	58	女	1	を	H25.2.5
10	9	男	2	う	H25.2.28
11	10	男	2	か	H25.3.2
12	57	女	2	お	H25.3.9
13	12	男	1	え	H25.3.10

A2～E7までを選択して
最優先されるキーはB列、
次に優先されるキーはC列で並べ替え
A8～E10までを選択して同条件で並べ替え
A11～E13を選択して同条件で並べ替え

この並べ替えをVBAで行いたいです。
ご教示お願い致します。

＜使用 Excel：Excel2007、使用 OS：WindowsVista ＞

 最初に
 With Range("F2:F2000")
    .Formula = "=IF(E2="""","""",YEAR(E2)*100+MONTH(E2))"
    .Value = .Value
 End With

 の後で、A:F 列を F、B、Cの優先順位でソートして、

 F列を削除
 Columns("F:F").Delete

 ソートの部分はマクロの記録そのままで使えると思います。
（Mook） 2014/06/19(木) 23:41

Mookさんへ
有難うございます
解決しました。

（koko） 2014/06/20(金) 12:56

コメント返信：

[ 一覧(最新更新順) ]

[[20140619224041]] 『月単位でセルを選択してｂ列を最優先、C列を次に浴x（koko） ページの最後に飛ぶ

[[20140619224041]]　『月単位でセルを選択してｂ列を最優先、C列を次に浴x（koko）　ページの最後に飛ぶ