2行目から10000行目の100列目までを、優先順位を2つ設定して昇順に並べ替えるvba

2017/05/17


2行目から10000行目の100列目までを、優先順位を2つ設定して並べ替えるvba
(優先1⇒ 29列目、優先2⇒ 1列目)

スポンサーリンク

----- べんりあつめ。-----

ActiveSheet.Range(Cells(2, 1), Cells(10000, 100)) _
.Sort Key1:=ActiveSheet.Cells(1, 29), order1:=xlAscending, _
Key2:=ActiveSheet.Cells(1, 1), order2:=xlAscending

※ちなみに降順なら、xlAscendingを、xlDescendingに変更する。

スポンサーリンク

スマホのみ下に表示