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

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

操作步驟：

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

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

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

GIF操作步驟如下：

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列就能實現效果。

小夥伴們快來試試看吧！

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

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!