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

Question

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

Private Sub CommandButton3_Click（）       Dim ws1 As Worksheet

backup_30-10-2016_12:00:00

End Sub

请帮忙。

Answer 1

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

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

使用：

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

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

ActiveWorkbook.Worksheets(ws1)

应替换为：

ActiveWorkbook.Worksheets(ws1.Name)

代码可能存在其他问题。