高级筛选教程(全VBA代码实现).xls

DateCustomerProductTotal 1 Jan 02 MegaMartCookies 278 07 3 Jan 02 MiniMartBread 789 00 3 Jan 02 SuperMartProduce 1 365 35 3 Jan 02 FoodMartProduce 240 17 4 Jan 02 MegaMartCookies 1 348 49 11 Jan 02 FoodMartProduce 2 023 35 11 Jan 02 MegaMartProduce 292 81 18 Jan 02 MiniMartProduce 1 802 92 20 Jan 02 MegaMartCookies 1 668 42 20 Jan 02 MegaMartMilk 566 00 21 Jan 02 MegaMartBread 422 00 21 Jan 02 FoodMartProduce 1 335 74 25 Jan 02 MegaMartCookies 176 41 25 Jan 02 MiniMartMilk 870 48 26 Jan 02 MiniMartMilk 1 682 37 26 Jan 02 MiniMartProduce 1 704 22 3 Feb 02 SuperMartCookies 460 00 3 Feb 02 MiniMartMilk 1 607 04 4 Feb 02 MiniMartMilk 1 205 28 7 Feb 02 MiniMartCookies 2 191 67 8 Feb 02 MiniMartMilk 454 77 17 Feb 02 MegaMartBread 1 800 00 17 Feb 02 MiniMartMilk 2 206 89 22 Feb 02 MegaMartBread 122 15 23 Feb 02 MiniMartCookies 2 374 06 23 Feb 02 MegaMartMilk 1 347 57 28 Feb 02 MegaMartCookies 615 94 TOTALcustomer 2000 datecustomer 11 Jan 02 FoodMart 7 Feb 02 MiniMart 17 Feb 02 MiniMart 23 Feb 02 MiniMart TOTAL条件然后空开一列再输入CUSTOMER条件 那这个CUSTOMER条件就不会被加进去 Sub Macro1 Range A16 CurrentRegion Offset 1 0 Clear Range DataBase AdvancedFilter Action xlFilterCopy CriteriaRange Range Criteria range CurrentRegion CopyToRange Range Cells 16 1 Cells 16 Range iv16 End xlToLeft Column Unique False End Sub 既然用vba 就去掉所有定义的名称 这样 Sub Macro1 Dim rg As Range Set rg Sheet1 Range a1 d Sheet1 Range a65536 End xlUp Row Range A16 CurrentRegion Offset 1 0 Clear rg AdvancedFilter Action xlFilterCopy CriteriaRange Range a1 b3 CopyToRange Range Cells 16 1 Cells 16 Range iv16 End xlToLeft Column Unique False End Sub 蓝色行上面的此白色区域是筛选条件 你 可以增加筛选条件的字段 例如你可以在 C1 或者D1增加TOTAL字段等 还有你可以 在各个字段的下面修改字段条件 例如将 TOTAL下面的 2000改成2000改成 500等 随便你 上面的蓝色行是你要返回的字段 例如你可以 把TOTAL字段删除 再按下沙漏图标试试 或者 增加PRODUCT字段 都可以 随便你 CriteriaRange Range Criteria range CurrentRegion CopyToRange Range Cells 16 1 Cells 16 Range iv16 End xlToLeft Column Unique False Criteri