在 Excel 中，您可以利用数据验证功能为用户创建下拉列表，方便其选择所需值。但您或许希望在用户从下拉列表单元格中删除所选项时，自动显示一个默认值（例如“-Select——”）。本文将为您提供一种基于 VBA 代码的分步解决方案。

在下拉列表中删除值时自动显示默认值

在下拉列表中删除值时自动显示默认值

1. 右键单击包含下拉列表的工作表标签，然后从上下文菜单中选择查看代码。

2. 在弹出的 Microsoft Visual Basic for Applications 窗口中，将以下代码复制并粘贴到脚本编辑器中。

VBA：在下拉列表中删除所选项时显示默认值

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xObjV As Validation
On Error Resume Next
Set xObjV = Target.Validation
If xObjV.Type = xlValidateList Then
 If IsEmpty(Target.Value) Then Target.Value = "-Select-"
End If
End Sub

3. 保存代码后，每当删除所选项，下拉单元格将自动显示默认值，直至选择新项为止。