EXCEL VBAで複数キーで並べ替える場合のメモです。
※Excel 2013 64ビット
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
Dim wb As Workbook ' 新しいブックを作成 Set wb = Workbooks.Add ' シートにデータ貼り付け ～省略～ ' 並べ替え With wb.Sheets("Sheet1").Sort ' 並べ替えの条件をクリア .SortFields.Clear ' １番目の並べ替えキー G列の4行目から27行目 .SortFields.Add Key:=Range("G4:G27"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ' ２番目の並べ替えキー A列の4行目から27行目 .SortFields.Add Key:=Range("A4:A27"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ' 並べ替えの範囲 .SetRange Range("A4:H27") ' 最初の行にヘッダー情報が含まれるかどうか xlGuess：自動 xlYes：見出し xlNo：見出し使用しない .Header = xlGuess ' 大文字小文字を区別する並べ替え false：区別しない true：区別する .MatchCase = False ' 並べ替えの方向 xlTopToBottom：行単位で並べ替え（上から下） xlLeftToRight：列単位で並べ替え（左から右） .Orientation = xlTopToBottom ' 並べ替えの方法 xlPinYin：ふりがなを使って並べ替え xlStroke：ふりがなを使わずに並べ替え .SortMethod = xlPinYin ' 並べ替え実行 .Apply End With |