Excel 宏：对每个工作表应用排序

Question

这是我用来对除两个页面之外的每个页面应用排序的代码。系统抛出以下错误。 “选择范围类的方法失败”。

私有子命令按钮3_Click() 将 ws1 调暗为工作表

For Each ws1 In Worksheets
    If ws1.Name <> "Sheet1" And ws1.Name <> "Extra" Then

**ws1.Range("A1:V1000").Select**      Something is wrong here I suspect

ActiveWorkbook.Worksheets(ws1).Sort.SortFields.Clear

ActiveWorkbook.Worksheets(ws1).Sort.SortFields.Add Key:=Range("I2:I1000") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets(ws1).Sort.SortFields.Add Key:=Range("T2:T1000") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets(ws1).Sort
    .SetRange Range("A1:V1000")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

End If
Next ws1

结束子

请帮忙。

Answer 1

我会在Selecting 范围之前将Select 工作表。替换：

ws1.Range("A1:V1000").Select

与：

ws1.Select
Range("A1:V1000").Select

如果您在下面的代码中使用.Range() 而不是Range()，则可能不需要这些Selections。另外由于ws1 是一个工作表对象，：

ActiveWorkbook.Worksheets(ws1)

应该替换为：

ActiveWorkbook.Worksheets(ws1.Name)

代码可能还有其他问题。