|
Sub Macro1()
'
Dim C As Integer
Cells.Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("work1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("work1").Sort.SortFields.Add Key:=Range(Cells(1, 2), Cells(C, 1)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("work1").Sort
.SetRange Range(Cells(1, 1), Cells(C, 78))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
For i = 2 To cc
If Cells(i, 1) = 1 Then
Exit For
End If
Next
i = i - 1
Range(Cells(1, 1), Cells(i, 75)).Select
Selection.Copy
Sheets("output").Select
Range("a1").Select
ActiveSheet.Paste
実行エラー'1004'並べ替えの参照が正しくありません。並べ替えるデータ内にあることと、[最優先されるキー]ボックスが空白でないことを確認してください。』
のエラーがでました。
|
|