実現したいこと
sortによる並び替えを実現したい
前提
・T列(昇順)→V列(昇順)→A列(昇順)となるように並び替えを実施
・2行目をヘッダーに設定する
発生している問題・エラーメッセージ
並び替え自体は意図する形でできていますが、なぜか2行目がヘッダーとして認識されず、2行目も並び替えの対象となってしまいます。
原因が分かれば教えていただけないでしょうか。
該当のソースコード
vba
1Sub 並び替え()2 3 With ActiveSheet.Sort 4 .SortFields.Clear 5 .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending 6 .SortFields.Add Key:=Range("V2"), SortOn:=xlSortOnValues, Order:=xlAscending 7 .SortFields.Add Key:=Range("T2"), SortOn:=xlSortOnValues, Order:=xlAscending 8 .SetRange Range("A2").CurrentRegion 9 .Header = xlYes 10 .Apply 11 End With12 13End Sub14 15 16 17
試したこと
上記のコードのほか1列ずつ個別に並び替えるコードも試しましたが、結果は同じでした。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
0 コメント