用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內輕鬆開發出功能強大的自動化程式。
用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內輕鬆開發出功能強大的自動化程式。