vba按条件查找销量top10
时间: 2023-06-02 07:02:02 浏览: 65
以下是一个示例VBA代码,可以按照条件查找销量前10的产品:
```vb
Sub TopTenSales()
Dim ws As Worksheet
Dim LastRow As Long
Dim SalesRange As Range
Dim ProductRange As Range
Dim FilterRange As Range
'定义工作表和最后一行
Set ws = ActiveSheet
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'定义销售额和产品名称的范围
Set SalesRange = ws.Range("B2:B" & LastRow)
Set ProductRange = ws.Range("A2:A" & LastRow)
'定义筛选范围
Set FilterRange = ws.Range("A1:B" & LastRow)
'筛选销售额大于0的记录
FilterRange.AutoFilter Field:=2, Criteria1:=">0"
'按销售额降序排序
SalesRange.Sort Key1:=SalesRange, Order1:=xlDescending, Header:=xlYes
'选择销售额前10的记录
ws.Range("A2:B11").Select
'取消筛选
FilterRange.AutoFilter
End Sub
```
该代码首先定义了工作表和数据范围,然后使用自动筛选功能筛选出销售额大于0的记录。接着按销售额降序排序,最后选择销售额前10的记录。