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 · ベストアンサー

こんにちは。

なぜ、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がエラーになるのは親オブジェクトがないからと言う理由なのですね。

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

回答No.3

keithin

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
とやればよかったのですね。
できました。

回答No.2

KURUMITO

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

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がエラーになってしまいます。

回答No.1

n-jun

オートフィルタをかけた状態では
並び替えが出来ないんじゃないかな？
⇒並び替えをしてからフィルタをかけるとかなら
いけるんじゃないか？

お礼

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