EXCEL宏，能给我解释一下吗

显示全部楼层 · 2011-7-27 17:11:25

Sub 筛选另存()
Dim wb As Workbook
Dim x As Integer
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "/7月筛选.xls"
Set wb = Workbooks.Open(ThisWorkbook.Path & "/7月筛选.xls")
For x = 1 To wb.Sheets.Count

wb.Sheets(x).Range("A2:BR1800").AutoFilter

wb.Sheets(x).Range("A2:BR1800").AutoFilter

wb.Sheets(x).Cells.AutoFilter Field:=64, Criteria1:="0.00%", Operator:=xlAnd

wb.Sheets(x).Rows("3:1547").Delete Shift:=xlUp

wb.Sheets(x).Cells.AutoFilter Field:=64
Next x
End Sub

千问 · 2011-7-27 17:11:25

当前表另存为同路径下：7月筛选.xls7月筛选.xls里每页进行以下操作："A2:BR1800"取消筛选，重新进行筛选64列筛选不等于0.00%的行"3:1547"行删除取消64列筛选...