導讀下拉菜單可以提供選擇項目讓填表人填寫，避免了填表人填入混亂數據，讓后期數據處理變得高效，簡單。01基礎版下拉菜單以上是某公司登記表，如果要在B列，設置性別下....

下拉菜單可以提供選擇項目讓填表人填寫，避免了填表人填入混亂數據，讓后期數據處理變得高效，簡單。

01 基礎版下拉菜單

以上是某公司登記表，如果要在B列，設置性別下拉菜單，怎么辦呢？

操作步驟：

1、選中B2：B12,單擊數據選項欄——數據驗證，出現如下界面：

在驗證條件中選擇：序列，來源中輸入：男，女。

特別注意：男女中間的逗號要在英文輸入法中輸入，才可以，否則會出現這種情況。

GIF操作步驟如下：

02 自動去重復的下拉菜單

Excel有個工具叫做數據驗證，可以限定輸入數據的范圍，不過無法去掉重復值。那么如何創建去重復項的下拉列表呢？效果如下：

操作步驟：

1、準備數據如下，加入下拉列表創在A列，數據在D列。如下：

2、選中工作表，右擊——查看代碼，輸入以下代碼：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect([a:a], Target) Is Nothing Then Exit Sub

如果選擇的單元格不存在于A列，則退出。A列是設置數據驗證的區域

If Target.Rows.Count > 1 Then Exit Sub 不允許選擇多行

Dim arr, brr, i&, j&, k&, s

Dim d As Object

Set d = CreateObject("scripting.dictionary") 后期字典

arr = Range("d1:d" & Cells(Rows.Count, "d").End(xlUp).Row) 數據來源列

If Not IsArray(arr) Then Exit Sub

如果不存在數據源選項，則arr非數組，那么退出程序

For i = 2 To UBound(arr)

D1是標題，從第2行開始遍歷數據源，將人名裝入字典

If arr(i, 1) <> "" Then d(arr(i, 1)) = ""

Next

s = Join(d.keys, ",")

With Target.Validation

.Delete 刪掉舊的

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

Operator:=xlBetween, Formula1:=s S為數據驗證的序列來源

End With

Application.SendKeys "%{down}"

SendKeys發出快捷鍵atl ↓直接彈出數據驗證下拉列表

Set d = Nothing 釋放字典

End Sub

3、關閉vba窗口，在A列就能實現效果。

小伙伴們快來試試看吧！

喜歡就關注我，每天分享職場知識，辦公技巧！