문제 - 제거 및 정렬 열

Question

단순한 수출을 열을 제거하고 정렬하는 데 노력하고 내가 오류를 받고 있어요 :

Run-time error '9': Subscript out of range

나는 초 최근에 만들어진 통합 문서에 기본 매크로를 실행할 때마다.

원래 통합 문서는 6 열을했다

Sub ONCE() 
' 
' ONCE Macro 
' export and prep an ONC list 
' 
' Keyboard Shortcut: Ctrl+e 
' 
    Range("A:A,B:B,F:F").Select 
    Range("F1").Activate 
    Selection.Delete Shift:=xlToLeft 
    Columns("A:A").Select 
    Columns("A:A").EntireColumn.AutoFit 
    Columns("B:B").ColumnWidth = 8.29 
    Columns("B:B").EntireColumn.AutoFit 
    Columns("C:C").EntireColumn.AutoFit 
    Columns("C:C").Select 
    ActiveWorkbook.Worksheets("QueueDetail_20160802_150124").Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("QueueDetail_20160802_150124").Sort.SortFields.Add _ 
     Key:=Range("C1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _ 
     :=xlSortNormal 
    With ActiveWorkbook.Worksheets("QueueDetail_20160802_150124").Sort 
     .SetRange Range("A2:C35") 
     .Header = xlNo 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 
    Range("D4").Select 
End Sub 

, 내가 매크로를 기록했던 모든 자동 (정보의 각 비트는 시각에 맞게 우는 있도록 더블 클릭) 각 열을 맞게하고 시도, 여분의 3 열을 제거했다 마지막 열 (가장 작은 것부터 가장 큰 것까지)로 통합 문서를 정렬합니다.

새 통합 문서에서 매크로를 실행하면 오류 메시지가 생성되고 마지막 열에서 정렬이 실행되지 않습니다. 여분의 기둥과 간격을 제거하는 것은 완벽하게 작동하는 것처럼 보입니다.

Answer 1

"QueueDetail_20160802_150124"시트를 새 책에 추가하거나 ActiveWorkbook.sheets(1).Sort.SortFields.Clear sheets (1)를 사용하면 활성 노트의 첫 번째 시트에서 작동합니다. activesheet은 현재 선택된 시트에서 작동합니다.

디버깅을 사용하면 코드가 실패한 행임을 알 수 있습니다.