Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16423 / 76732

←次へ　｜　前へ→


	【65777】Re:ソートの並べ替え基準の指定方法

りん

- 10/6/27(日) 9:50 -


	引用なし

	パスワード

kei さん、こんにちは。

>データの範囲はあるタイトル文字を探した後に、そのタイトルから２行下が
>データなので、行を変数kとして範囲を設定することができました。
>（データのみ範囲）
>列はAからE列までと変わりませんが、件数は増減するので、
>.End(xlDown)で範囲設定をしました。

>次に、ソートの基準のセルを設定したいのですが、これもまたセルを変数で
>設定しなければならないので、Cellsで指定しようとしましたが、エラーに
>なりました。

Keyのところの、Rangeが余計ですね。

　 Range(Cells(k, "A"), Cells(k, "E").End(xlDown)).Sort _
　　　Key1:=Cells(k, "A"), Order1:=xlAscending, _
　　　Key2:=Cells(k, "E"), Order2:=xlAscending, Header:=xlNo

これでいかがでしょうか？

1 hits

▼

【65757】ソートの並べ替え基準の指定方法 kei 10/6/25(金) 11:11