如何用VBA实现数据自动筛选？

　　用vba实现数据透视表自动筛选：Sub 宏1() k = Cells(65536, 1).End(4).Row For i = 4 To 1 Step -1 ActiveSheet.Range("$A$3:$D$" & k).AutoFilter Field:=i, Criteria1:=Cells(1, i).Text If Columns(1).Count < 2 Then ActiveSheet.Range("$A$3:$D$" & k).AutoFilter Field:=i End If Next iEnd Sub　　　　VBA：Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。　　由于微软Office软件的普及，人们常见的办公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用更高效率，例如：通过一段VBA代码，可以实现画面的切换；可以实现复杂逻辑的统计（比如从多个表中，自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单）等。　　掌握了VBA，可以发挥以下作用：　　1.规范用户的操作，控制用户的操作行为；　　2.操作界面人性化，方便用户的操作；　　3.多个步骤的手工操作通过执行VBA代码可以迅速的实现；　　4.实现一些VB无法实现的功能。　　5.用VBA制做EXCEL登录系统。　　6.利用VBA可以Excel内轻松开发出功能强大的自动化程序。