| |
初めて質問させて頂きます。
シートをコピーしてワークシートを作り、それを5つのキーでソートしています。
デバッグ時に何度も同じマクロを繰り返すと、ソートが上手くいくときと行かないときがあります。
繰り返し実行の際には、ワークシートを削除しsheet1だけの状態にしてから、実行してるのですが、ワークシートがソートされてないときがあります。
コードは下記のようになってます。
解決の方法をご存知のかた、アドバイス頂きたくよろしくお願いします。
Sheets("sheet1").Copy After:=Sheets(1)
Sheets("sheet1 (2)").Select
Sheets("sheet1 (2)").Name = "wksheet"
Sheets("wksheet").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
