Vba将sheet3所有11列数据按A列从小到小后按B列从小到大排序
时间: 2024-05-06 10:18:49 浏览: 12
你可以使用以下的VBA代码来实现你的需求:
```vb
Sub SortSheet3Data()
'获取Sheet3的最后一行
Dim lastRow As Long
lastRow = Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Row
'按A列从小到大排序
With Sheets("Sheet3").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A2:A" & lastRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A1:K" & lastRow)
.Header = xlYes
.Apply
End With
'按B列从小到大排序
With Sheets("Sheet3").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B2:B" & lastRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A1:K" & lastRow)
.Header = xlYes
.Apply
End With
End Sub
```
上述代码首先获取了Sheet3的最后一行,然后按A列从小到大排序,接着再按B列从小到大排序。你只需要将这段代码复制到Excel的VBA编辑器中,然后运行该宏即可完成你的需求。