JAMES 發問時間: 電腦與網際網路軟體 · 9 年前

EXCEL 下拉清單問題!!

我要用EXECL>資料>驗證做"下拉清單",

但重覆的人員也跟著重覆出現在清單裡面,

該如何讓重複的資料只出現一次....

資料有上百筆,不考慮用『逐筆輸入,逗號隔開』

會用『增加輔助表單,篩選出不重複資料』來完成,但除了這兩種方式之外

有沒有更便捷的方式....(透過函數之類的)

已更新項目:

使用VBA....有沒有具體的說明咧

6 個解答

評分
  • jan
    Lv 4
    9 年前
    最佳解答

    假設人員清單在A欄,要在C1新增"下拉清單"

    http://www.funp.net/326416

    Sub test()

    Dim NoDupes As Object

    Dim rng As Range, Cell As Range

    Set NoDupes = CreateObject("Scripting.Dictionary")

    '假設人員清單在A欄

    Set rng = Range("A1:A" & [A65536].End(xlUp).Row)

    '取得不重複人員的清單

    For Each Cell In rng

    If Not NoDupes.exists(Cell.Value) Then

    NoDupes.Add Cell.Value, Cell.Value

    End If

    Next

    '假設要在C1新增 資料>驗證做"下拉清單"

    With Range("C1").Validation

    .Delete

    '加入不重複人員的清單(方法是用,號輸入)

    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

    xlBetween, Formula1:=Join(NoDupes.keys, ",")

    '下面是錄製巨集得來的,直接照抄(選取字串按F1可到說明)

    .IgnoreBlank = True

    .InCellDropdown = True

    .InputTitle = ""

    .ErrorTitle = ""

    .InputMessage = ""

    .ErrorMessage = ""

    .IMEMode = xlIMEModeNoControl

    .ShowInput = True

    .ShowError = True

    End With

    End Sub

  • 6 年前

    ●九州 娛樂 網站 http://ts777.cc/

    ●●●運彩遊戲、真人遊戲、電子遊戲、對戰遊戲、對戰遊戲●●●

    ●新舊會員儲值就送500點

    ● 真人百家樂彩金等你拿

    ●線上影片直播、正妹圖、討論區免費註冊

    歡迎免費體驗交流試玩!

    ●九州 娛樂 網站 http://ts777.cc/

  • 6 年前

    最近發現一家很不錯的a片專賣店唷,

    網址先貼給你 http://xor.tw/4nz0h

    它出的新片速度很快喔~每個禮拜都有很多新片

    新片價格一片是30元而已,我看過還很清晰的,

    有瑕疵片可以跟客服反應,他們會協助處理唷

    如果你要畫質更好的,也有藍光dvd,超*的

    不知道怎麼挑片的話,也有站長推薦的精選套餐

    http://xor.tw/4nz0x

    自己買很多了才推薦給你唷!!看看吧

    #@#

    推薦你這間線上A片即時觀看喔!!

    A片種類超多的,我常去光顧呢

    保證你不會後悔的啦~

    號稱業界最強,怎麼可以錯過呢

    30點現上儲值可以馬上觀看,省去等宅配時間

    http://xor.tw/4nz0x

  • 9 年前

    輸入資料裡面有重複, 所以製作出來的下拉清單跟著一起重複

  • 您覺得這個回答如何?您可以登入為回答投票。
  • 鬍鬚
    Lv 7
    9 年前

    是清單裡面的資料有重複,或是輸入的資料有重複?

  • Daniel
    Lv 7
    9 年前

    不用輔助表單,就要使用VBA囉!

還有問題?馬上發問,尋求解答。