エクセルのVBAソートについて

質問

はじめましてm(__)m

昇順ソートで「0」を覗いてソートをかける方法をお教え頂けないでしょうか？

現在、下記方法でソートしております。

どうぞ宜しくお願い致します。

Sub J列目()

Range("A9:L65536").Sort _
Key1:=Range("J9") _
, Order1:=xlAscending _
, Header:=xlGuess _
, MatchCase:=False _
, Orientation:=xlTopToBottom _
, SortMethod:=xlPinYin
End Sub

回答No.1

tom04 · ベストアンサー

こんばんは！
＞昇順ソートで「0」を覗いてソートをかける方法をお教え頂けないでしょうか？

とありますが「0」の行はそのままの位置で、それ以外を昇順に並び替える！という解釈で・・・

Sub 並び替え()
Dim i As Long
Cells(9, "A").CurrentRegion.AutoFilter field:=10, Criteria1:="<>0"
i = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(9, "A"), Cells(i, "L")).Sort Key1:=Cells(9, "J"), Order1:=xlAscending, Header:=xlYes
ActiveSheet.AutoFilterMode = False
End Sub

※　9行目は項目行でA列～L列まで項目が入力してあり、
行に関しては途中に空白行がない！という前提です。

こんな感じではどうでしょうか？m(_ _)m