列で並替え  次の文書

Sub 列で並替え()
Range("B1:M17").Sort _
Key1:=Range("A17"), Order1:=xlAscending, Header:=xlNo,
Orientation:=xlLeftToRight
ActiveSheet.Sort.SortFields.Clear
End Sub

以下の表を順位の列で並び替えた結果
(行、列の文字は印刷プレビューで表示させています)

 
並び替え 前


並び替え 後



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)