VBA怎么使用對話框快速選取不重復值?
百度經(jīng)驗 發(fā)布時間：2019-09-02 16:45:57 作者：臨風聽蟬歌 
我要評論
我要評論VBA怎么使用對話框快速選取不重復值？想要使用vba提取不重復的數(shù)據(jù)，該怎么提取呢？下面我們就來看看vba對話框提取不重復值的教程，需要的朋友可以參考下
數(shù)據(jù)處理的時候，想要提取不重復的值，在VBA中用對話框，就可以快速選取不重復值，下面我們就來看看詳細的教程。
1、在工作表中，點擊菜單欄【開發(fā)工具】，在其工具欄內(nèi)，點擊【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ū)υ捒?，選擇想要篩選的區(qū)域！
7、右擊【確定】，繼續(xù)運行代碼，會彈出第二個對話框！
8、選擇要放置不重復值的區(qū)域，繼續(xù)運行代碼，不重復值會被選取出來！
以上就是VBA使用對話框快速選取不重復值的教程，希望大家喜歡，請繼續(xù)關注腳本之家。
相關推薦：
vb6.0怎么生成exe程序?qū)崿F(xiàn)返回參數(shù)功能?
VBA怎么快速從兩個表格提取符合條件的數(shù)據(jù)?
相關文章
PPT怎么使用VBA代碼編程？ppt中想要實現(xiàn)編程效果，我們可以使用vba實現(xiàn)，下面我們就來看看ppt使用vba代碼編程的教程，需要的朋友可以參考下2018-09-25
VB6.0怎么調(diào)出被關閉的工具窗口？VB6.0中的窗口關閉了，想要重新打開，該怎么打開呢？下面我們就來看看VB6.0打開窗口的教程，需要的朋友可以參考下2018-09-18
excel怎么設置退出刪除vba工具欄？excel中使用vba以后，想要退出的時候刪除vba工具欄，該怎么設置呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-09-12
vb6.0怎么設置彈窗倒計時器效果？vb6.0中想要制作一個倒計時的效果，該怎么制作倒計時呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-08-31
VB6.0一串數(shù)字怎么拆分成單個數(shù)字？VB6.0表格中輸入的一串數(shù)字想要拆分成單個的數(shù)字，該怎么拆分呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-07-30
VB6.0怎么快速批量刪除txt內(nèi)容？VB6.0中想要快速刪除txt文件中的內(nèi)容，該怎么刪除呢？我們就來看看使用vb6.0刪除txt文件內(nèi)容的教程，需要的朋友可以參考下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
