VBA怎么使用對(duì)話框快速選取不重復(fù)值?

數(shù)據(jù)處理的時(shí)候,想要提取不重復(fù)的值,在VBA中用對(duì)話框,就可以快速選取不重復(fù)值,下面我們就來看看詳細(xì)的教程。
1、在工作表中,點(diǎn)擊菜單欄【開發(fā)工具】,在其工具欄內(nèi),點(diǎn)擊【visual basic】!
2、會(huì)進(jìn)入VBA編輯界面!點(diǎn)擊菜單欄【插入】,在其下拉菜單中,選擇【模塊】!
3、會(huì)彈出模塊編輯窗口!
4、在模塊窗口輸入以下代碼:
Sub 窗口篩選重復(fù)值() Dim d As Object Set d = CreateObject("scripting.dictionary") qy = Application.InputBox("", "選擇要進(jìn)行不重復(fù)篩選的區(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、點(diǎn)按鍵盤上的F8,一步步運(yùn)行編寫的代碼!同時(shí)可以檢查代碼是否正確!
6、彈出選擇區(qū)域?qū)υ捒?,選擇想要篩選的區(qū)域!
7、右擊【確定】,繼續(xù)運(yùn)行代碼,會(huì)彈出第二個(gè)對(duì)話框!
8、選擇要放置不重復(fù)值的區(qū)域,繼續(xù)運(yùn)行代碼,不重復(fù)值會(huì)被選取出來!
以上就是VBA使用對(duì)話框快速選取不重復(fù)值的教程,希望大家喜歡,請(qǐng)繼續(xù)關(guān)注腳本之家。
相關(guān)推薦:
vb6.0怎么生成exe程序?qū)崿F(xiàn)返回參數(shù)功能?
VBA怎么快速從兩個(gè)表格提取符合條件的數(shù)據(jù)?
相關(guān)文章
- PPT怎么使用VBA代碼編程?ppt中想要實(shí)現(xiàn)編程效果,我們可以使用vba實(shí)現(xiàn),下面我們就來看看ppt使用vba代碼編程的教程,需要的朋友可以參考下2018-09-25
VB6.0怎么調(diào)出被關(guān)閉的工具窗口?
VB6.0怎么調(diào)出被關(guān)閉的工具窗口?VB6.0中的窗口關(guān)閉了,想要重新打開,該怎么打開呢?下面我們就來看看VB6.0打開窗口的教程,需要的朋友可以參考下2018-09-18- excel怎么設(shè)置退出刪除vba工具欄?excel中使用vba以后,想要退出的時(shí)候刪除vba工具欄,該怎么設(shè)置呢?下面我們就來看看詳細(xì)的教程,需要的朋友可以參考下2018-09-12
vb6.0怎么設(shè)置彈窗倒計(jì)時(shí)器效果?
vb6.0怎么設(shè)置彈窗倒計(jì)時(shí)器效果?vb6.0中想要制作一個(gè)倒計(jì)時(shí)的效果,該怎么制作倒計(jì)時(shí)呢?下面我們就來看看詳細(xì)的教程,需要的朋友可以參考下2018-08-31VB6.0一串?dāng)?shù)字怎么拆分成單個(gè)數(shù)字?
VB6.0一串?dāng)?shù)字怎么拆分成單個(gè)數(shù)字?VB6.0表格中輸入的一串?dāng)?shù)字想要拆分成單個(gè)的數(shù)字,該怎么拆分呢?下面我們就來看看詳細(xì)的教程,需要的朋友可以參考下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ā)的時(shí)候,想要使用圖片框,該怎么使用呢?下面我們就來看看詳細(xì)的教程,很簡單,需要的朋友可以參考下2018-06-25
- VB6.0標(biāo)簽框怎么使用?VB6.0中想要使用標(biāo)簽框,該怎么使用呢?下面我們就來看看詳細(xì)的教程,很簡單,需要的朋友可以參考下2018-06-25
抖音VBS表白程序如何制作?使用TXT制作vbs表白程序的方法
抖音VBS表白程序如何制作?抖音表白小程序是最近比較火的一款小工具,在本文中小編為大家介紹的是使用TXT制作vbs表白程序的方法,需要了解的朋友可以閱讀下文2018-06-21- VB6.0怎么編寫一個(gè)加法計(jì)算器?VB6.0中想要制作一個(gè)加法計(jì)算器,該怎么制作呢?下面我們就來看看詳細(xì)的教程,需要的朋友可以參考下2018-06-06