在数据验证下拉列表中设置默认值

这就是我最终得到的。

Sub DropDownListToDefault()
    Dim oCell As Range

    For Each oCell In ActiveSheet.UsedRange.Cells
        If HasValidation(oCell) Then
            oCell.Value = "'- Choose from the list -"
        End If
    Next
End Sub

Function HasValidation(cell As Range) As Boolean
    Dim t: t = Null

    On Error Resume Next
    t = cell.Validation.Type
    On Error GoTo 0

    HasValidation = Not IsNull(t)
End Function

函数HasValidation从这里被盗。

运行宏DropDownListToDefault后，单击DV单元后，您将有以下选择：

请注意，在下拉列表中没有类似“- Select from the list -如果您希望用户从下拉列表中选择某项”之类的项目，只需在后续处理中不接受默认值即可。