如何在Excel的数据验证下拉列表中设置默认值？

Sub DropDownListToDefault() Dim xCell As Range Dim xRg As Range Dim xAcCell As Range Dim xScreen As Boolean On Error Resume Next Set xAcCell = Application.ActiveCell Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation) If xRg Is Nothing Then MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel" Exit Sub End If xScreen = Application.ScreenUpdating Application.ScreenUpdating = False For Each xCell In xRg If xCell.Validation.Type = 3 Then If xCell.Value = "" Then xCell.Value = "- Choose from the list -" End If Next xAcCell.Select Application.ScreenUpdating = xScreen End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！