|
>ソートの優先順位は1.O列(得意先コード)、2.E列(枝番)、3.D列(オーダー)、4.B列(日付)の順です。
書いてあるコードと、ソートする順番が違うように思いますが。
2007で無い限り、上記条件でソートする場合、優先順位が下位の方の組み合わせからソートします。
例えば、
1回目
第1キー
D列
第2キー
B列
で、ソート。
2回目
第1キー
O列
第2キー
E列
で、ソート。
またこんな組み合わせでもいいです。
1回目、
第1キー
B列
で、ソート。
2回目
第1キー
O列
第2キー
E列
第3キー
D列
で、ソート。
> myRow2 = Cells(65536, "P").End(xlUp).Row
> myStrg = "B" & myRow1 & ":$P$" & myRow2
> ActiveCell = myStrg
> Selection.Sort Key1・・・・・・
SElectionの部分を直接セルを指定してやった方がいいですね。
> myRow2 = Cells(65536, "P").End(xlUp).Row
> myStrg = "B" & myRow1 & ":$P$" & myRow2
Range(myStrg).Sort Key・・・・
|
|