错误sorting在VBA中

我有一张工作簿。 计划是添加多个工作表，然后在每个工作表中应用相同的macros。 我想教自己的VBA，我正在一步一个脚印。 我有一张工作簿，我想在应用其他函数之前对A列进行sorting，但是我一直在收到编译错误和语法错误。 不知道为什么。 请帮忙。

Public Sub AtRisk() ScreenUpdating = False Dim ws As Worksheet Dim rowRange As Range Dim lastRow As Long For Each ws In ThisWorkbook.Worksheets Sheets(ws.Name).Select lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Set rowRange = ws.Range("A1:A" & lastRow).Sort Key1:=rowRange, Order1:=XLAscending, Header:=XLYes Next ws ScreenUpdating = True End Sub 

Answer 1

根据你的声明，rowRange是一个范围。 你应该先设定它：

 Set rowRange = ws.Range("A1:A" & lastRow) 

然后在下一行进行sorting。

 rowRange.Sort Key1:=rowRange, Order1:=XLAscending, Header:=XLYes 

另外，select工作表是没有必要的。 如果是，ws.select就够了。