VBA怎么使用對話框快速選取不重復值?
百度經驗 發(fā)布時間：2019-09-02 16:45:57 作者：臨風聽蟬歌 
我要評論
我要評論VBA怎么使用對話框快速選取不重復值？想要使用vba提取不重復的數據，該怎么提取呢？下面我們就來看看vba對話框提取不重復值的教程，需要的朋友可以參考下
數據處理的時候，想要提取不重復的值，在VBA中用對話框，就可以快速選取不重復值，下面我們就來看看詳細的教程。
1、在工作表中，點擊菜單欄【開發(fā)工具】，在其工具欄內，點擊【visual basic】!
2、會進入VBA編輯界面！點擊菜單欄【插入】，在其下拉菜單中，選擇【模塊】！
3、會彈出模塊編輯窗口！
4、在模塊窗口輸入以下代碼：
Sub 窗口篩選重復值()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
qy = Application.InputBox("", "選擇要進行不重復篩選的區(qū)域", , , , , , 8)
For Each cf In qy
d(cf) = ""
Next
Set ff = Application.InputBox("", "要放置的區(qū)域", , , , , , 8)
ff.Resize(d.Count) = Application.Transpose(d.keys)
End Sub
5、點按鍵盤上的F8，一步步運行編寫的代碼！同時可以檢查代碼是否正確！
6、彈出選擇區(qū)域對話框，選擇想要篩選的區(qū)域！
7、右擊【確定】，繼續(xù)運行代碼，會彈出第二個對話框！
8、選擇要放置不重復值的區(qū)域，繼續(xù)運行代碼，不重復值會被選取出來！
以上就是VBA使用對話框快速選取不重復值的教程，希望大家喜歡，請繼續(xù)關注腳本之家。
相關推薦：
相關文章
PPT怎么使用VBA代碼編程？ppt中想要實現編程效果，我們可以使用vba實現，下面我們就來看看ppt使用vba代碼編程的教程，需要的朋友可以參考下2018-09-25
VB6.0怎么調出被關閉的工具窗口？VB6.0中的窗口關閉了，想要重新打開，該怎么打開呢？下面我們就來看看VB6.0打開窗口的教程，需要的朋友可以參考下2018-09-18
excel怎么設置退出刪除vba工具欄？excel中使用vba以后，想要退出的時候刪除vba工具欄，該怎么設置呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-09-12
vb6.0怎么設置彈窗倒計時器效果？vb6.0中想要制作一個倒計時的效果，該怎么制作倒計時呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-08-31
VB6.0一串數字怎么拆分成單個數字？VB6.0表格中輸入的一串數字想要拆分成單個的數字，該怎么拆分呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-07-30
VB6.0怎么快速批量刪除txt內容？VB6.0中想要快速刪除txt文件中的內容，該怎么刪除呢？我們就來看看使用vb6.0刪除txt文件內容的教程，需要的朋友可以參考下2018-06-29
VB6.0怎么使用圖片框？VB6.0編程開發(fā)的時候，想要使用圖片框，該怎么使用呢？下面我們就來看看詳細的教程，很簡單，需要的朋友可以參考下2018-06-25
VB6.0標簽框怎么使用？VB6.0中想要使用標簽框，該怎么使用呢？下面我們就來看看詳細的教程，很簡單，需要的朋友可以參考下2018-06-25
抖音VBS表白程序如何制作？使用TXT制作vbs表白程序的方法
抖音VBS表白程序如何制作？抖音表白小程序是最近比較火的一款小工具，在本文中小編為大家介紹的是使用TXT制作vbs表白程序的方法，需要了解的朋友可以閱讀下文2018-06-21
VB6.0怎么編寫一個加法計算器？VB6.0中想要制作一個加法計算器，該怎么制作呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-06-06
