UsedRangeを使ってソートすることは可能？

UsedRangeを使ってソートすることは可能ですか？

エクセルですが
学年　　組　　出席番号
2　　　　A　　　　1
1　　　　B　　　　2
と言うデータがあり、
これにフィルタをかけつつ、Ａ列で昇順に並び替えるＶＢＡを作ってるのですが

Sub さんぷる()
オートフィルタをかける
Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).AutoFilter

UsedRange.Sort Key1:=Cells(1, 1), order1:=xlAscending
End Sub

とすると、
UsedRangeでコンパイルエラーになるのですが
どうすればよろしいでしょうか？

No.4 ベストアンサー 回答者： WindFaller 回答日時： 2013/02/03 15:06

こんにちは。

なぜ、UsedRangeを使わなくてはならないのでしょうか？
オートフィルタは、一種のデータテーブルが出来ているのですから、そのテーブルの認識には、私は、UsedRangeは使いません。

エラーになるのは、UsedRangeの親オブジェクトがないからです。

>Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column))
列の間がないのなら、このような使い方はしませんが、あえて書くなら、このようになります。

RangeとCellsは、親オブジェクトの関係がないので、2つは繋がっていません。エラーの可能性を含んでいます。

With ActiveSheet　'←親オブジェクト
　.Range("A1", .Cells(1, Columns.Count).End(xlToLeft)).AutoFilter
　.UsedRange.Sort Key1:=Cells(1, 1), Order1:=xlAscending
End With

私なら、このような書き方をします。

Sub Sample1()
　With ActiveSheet
　　If .AutoFilterMode = False Then
　　　.Cells(1, 1).AutoFilter　'データの左端上のセル
　　End If
　　.AutoFilter.Range.Sort Key1:=.Range("A1"), Order1:=xlAscending, _
　　Header:=xlYes
　End With
End Sub

この回答へのお礼

UsedRangeを使えば列や行が増えても
対応できると思ったからです。

UsedRangeがエラーになるのは親オブジェクトがないからと言う理由なのですね。

スマートなコード、ありがとうございます。

お礼日時：2013/02/05 21:55

No.3 回答者： keithin 回答日時： 2013/02/03 14:38

sub macro1()

range("A:C").autofilter
activesheet.autofilter.range.sort key1:=range("A1"), order1:=xlascending, header:=xlyes
end sub
みたいな。


＃参考
＞UsedRangeでコンパイルエラーになるのですが

activesheet.usedrange
のように使うモノです。

この回答へのお礼

UsedRange.Sort
ではなく
ActiveSheet.AutoFilter.Range.Sort
とやればよかったのですね。
できました。

お礼日時：2013/02/05 21:55

No.2 回答者： KURUMITO 回答日時： 2013/02/03 14:13

次のようにしてはどうでしょう。

Sub さんぷる()
Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).AutoFilter
UsedRange.Sort Key1:=Cells(1, 1), order1:=xlAscending, Header:=xlYes
End Sub

この回答へのお礼

やっぱりUsedRangeがエラーになってしまいます。

お礼日時：2013/02/05 21:55

No.1 回答者： n-jun 回答日時： 2013/02/03 13:48

オートフィルタをかけた状態では

並び替えが出来ないんじゃないかな？
⇒並び替えをしてからフィルタをかけるとかなら
いけるんじゃないか？

この回答へのお礼

並び替えが原因なのですか。

お礼日時：2013/02/05 21:55