你指定了sheet3工作表,没有找到此表,自然就下标越界了。 ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Add Key:=Range("K6"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet3").Sort
改成 ActiveSheet.Sort.SortFields.Clear ActiveSheet.Sort.SortFields.Add Key:=Range("K6"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveSheet.Sort
或者改成 增加个变量 Dim I As String I=ActiveSheet.Name ActiveWorkbook.Worksheets(I).Sort.SortFields.Clear ActiveWorkbook.Worksheets(I).Sort.SortFields.Add Key:=Range("K6"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets(I).Sort
[此贴子已经被作者于2010-7-29 0:34:45编辑过] |