|
いつも勉強させていただいてます。
B列には名前・2行目には項目
C3からI26にはランダムに数字が入力されているデータがあります。
C列からI列をC列を第1キーD列を第2キー.....7つのキーでデータを昇順に並べ替えしたいのです。
下記VBAではエラーがでてしまします。
3つまでならエクセルの並べ替えでできるのですが・・・
どうかご教授よろしくお願いします。
Sub test()
Range("B2:I26").Select
Selection.Sort Key1:=Range("C3"), Order1:=xlAscending _
, Key2:=Range("D3"), Order2:=xlAscending _
, Key3:=Range("E3"), Order3:=xlAscending _
, Key4:=Range("F3"), Order4:=xlAscending _
, Key5:=Range("G3"), Order5:=xlAscending _
, Key6:=Range("H3"), Order6:=xlAscending _
, Key7:=Range("I3"), Order7:=xlAscending _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal _
, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal _
, DataOption4:=xlSortNormal, DataOption5:=xlSortNormal _
, DataOption6:=xlSortNormal, DataOption7:=xlSortNormal
End Sub
|
|