[[20180719122353]]　『指定範囲の並び替え』（ももんが）　ページの最後に飛ぶ

『指定範囲の並び替え』（ももんが）

初めまして、よろしくお願いします。

不定期に記載されるリストを品番の若い順に並べ替えしたいです。

３行目のＣ列からＩ列に項目

Ｃ４からデータを入力し
終わりはランダムです

C4:I100だったりC4:10だったりします。
入力が完了した後に、マクロを起動するとＣ列をキーに昇順で並べ替えができるようにしたいのですが、下記では空白の部分も一緒に変な順番になってしまいます。

Sub 並べ替え()

    Range("C4:I100").Sort _
        Key1:=Range("C4"), _
        Order1:=xlDescending, _
        Header:=xlGuess
End Sub

外にあれば教えていただけると嬉しいです。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

http://officetanaka.net/excel/vba/tips/tips148.htm
が参考になるかもです。
。。。＾＾
昇順って
xlAscending
だったと思うのですが。。。＾＾；
でわ

（隠居じーさん） 2018/07/19(木) 13:06

 データがある範囲の途中に空行や空列がないのであれば以下ではどうか？
 Range("C4").CurrentRegion
 で、C4セルから繋がってデータがある範囲を返す。

 Sub 並べ替え()
    Range("C4").CurrentRegion.Sort _
        Key1:=Range("C4"), _
        Order1:=xlDescending, _
        Header:=xlGuess
 End Sub

（ねむねむ） 2018/07/19(木) 13:10

コメント返信：