08/07/12 08:00:09
続き
そこで2003用の下のようなコードを書いて走らせてみたが、全然期待したようには動かんね。
Sub foo()
With Range("A1").CurrentRegion
.Sort Key1:=.Range("A1"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers
End With
End Sub
>>353は2003で作ったマクロを2007で走らせたんじゃないの？