數據處理的時候，想要提取不重復的值，在VBA中用對話框，就可以快速選取不重復值，下面我們就來看看詳細的教程。

1、在工作表中，點擊菜單欄【開發工具】，在其工具欄內，點擊【visual basic】!

2、會進入VBA編輯界面！點擊菜單欄【插入】，在其下拉菜單中，選擇【模塊】！

3、會彈出模塊編輯窗口！

4、在模塊窗口輸入以下代碼：

Sub 窗口篩選重復值()Dim d As ObjectSet d = CreateObject("scripting.dictionary")qy = Application.InputBox("", "選擇要進行不重復篩選的區域", , , , , , 8)For Each cf In qy  d(cf) = ""NextSet ff = Application.InputBox("", "要放置的區域", , , , , , 8)ff.Resize(d.Count) = Application.Transpose(d.keys)End Sub

5、點按鍵盤上的F8，一步步運行編寫的代碼！同時可以檢查代碼是否正確！

6、彈出選擇區域對話框，選擇想要篩選的區域！

7、右擊【確定】，繼續運行代碼，會彈出第二個對話框！

8、選擇要放置不重復值的區域，繼續運行代碼，不重復值會被選取出來！

以上就是VBA使用對話框快速選取不重復值的教程，希望大家喜歡，請繼續關注武林網。

相關推薦：

visualbasic怎么編寫單元格偏移代碼?

vb6.0怎么生成exe程序實現返回參數功能?

VBA怎么快速從兩個表格提取符合條件的數據?