行の量は動的ですが、マルチレベルの並べ替えマクロを作成しようとしています。私はそれを機能させるためにいくつかのテストデータをいじり回してきましたが、Excelから1004の実行時エラーが発生し続けます。2番目の目がこれを理解するのに役立つことを願っています。
これがテストデータです
A B C D
Num Status Junk Junk
1 Open 1 1
2 Open 2 2
3 Closed 3 3
3 Open 3 3
4 Open 4 4
6 Open 6 6
8 Open 8 8
8 Open 8 8
34 Open 34 34
456 Open 456 456
5 Closed 5 5
853 Open 853 853
2345Closed 2345 2345
234 Open 234 234
23 Closed 23 23
4 Open 4 4
76 Closed 76 76
345 Open 345 345
623 Closed 623 623
523 Open 523 523
4525Closed 4525 4525
6 Open 6 6
そして、これが私のマクロです
Range("A1:D1").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add _
Key:=Range("B1:B10"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Open,Closed", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add _
Key:=Range("A1:A10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range( "A1:A10")がある行も参照してください。A10を最後の行にします。だから私はそこに何を置くべきかわからなかった。
皆さんありがとう、
ジム