|
▼あひる さん:
>Office2007上で実行したら、結果がうまく行きません。
>どうやら、ソート処理の、第3ソートキーを認識してくれていないようなんです。
>Key1:=Sheets(kekkaSheetName).Columns("L"), Order1:=xlDescending, _
>Key2:=Sheets(kekkaSheetName).Columns("M"), Order1:=xlDescending, _
>Key3:=Sheets(kekkaSheetName).Columns("O"), Order1:=xlDescending
引数Order名がすべて 1 というのは変ですね?
2003以前用に作った構文でも、↓2007でもSortできましたよ
With Sheets(kekkaSheetName).Range("A1").Currentregion
.Sort Key1:=.Columns("L"), Order1:=xlDescending, _
Key2:=.Columns("M"), Order2:=xlDescending, _
Key3:=.Columns("O"), Order3:=xlDescending, _
Header:=xlYes
End With
|
|