如何让下拉列表默认显示第一项，而不是空白？
Excel 工作表中的下拉列表是一项实用功能，能有效简化并规范数据录入——用户只需从预设选项中选择，无需手动逐字输入。然而，有时您可能会遇到这样的情况：单击下拉单元格后，初始显示为空白，而非列表中的第一个有效选项。这一问题通常源于源数据列表被编辑后末尾残留了空行，或删除了靠近末尾的项目，导致数据验证在列表顶部意外引入了空槽位。尤其在处理较长列表时，每次都需要滚动跳过空白项才能找到首个有效内容，既低效又令人沮丧。
解决此问题不仅能提升用户操作的便捷性，还能有效避免意外选中空白值，从而防止对后续数据处理或报告任务造成干扰。在本文中，您将掌握一些实用方法，确保下拉列表始终在顶部显示第一个条目，彻底消除不必要的空白选项。
使用数据验证功能在下拉列表中显示第一项而非空白
避免下拉列表顶部出现空白条目的有效方法之一，是通过公式设置数据验证，动态确定正确的引用范围。该方法能确保仅包含源列表中的非空单元格，无论因删除末尾数据而产生多少空行。此方案尤其适合频繁修改源列表的用户，或希望采用简洁、基于公式的调整方式而不依赖宏的用户。
1. 选择要创建下拉列表的单元格，然后转到 Excel 功能区，点击数据> 数据验证> 数据验证，即可打开如下所示的“数据验证”对话框：
2. 在“数据验证”对话框的设置选项卡中，将允许设置为序列，并在来源框中输入以下公式，以动态引用仅包含实际数据的范围：
=OFFSET(Sheet 3!$A$1,0,0,COUNTA(Sheet 3!$A:$A)-1,1)
注意：在此公式中，Sheet 3 指源数据所在的工作表，A1 为列表的起始单元格，请根据实际工作表布局相应调整。使用 COUNTA 可确保仅统计从 A1 开始的非空单元格。若源列表中包含有意留空的行（不仅限于末尾），此方法可能无法完全排除这些空白行，因此建议保持源列表连续，以获得最佳效果。
3. 单击确定以应用设置。现在，当您单击任意已配置的下拉列表单元格时，列表将从第一个实际数据项开始显示。即使源数据发生变化，只要范围覆盖 A 列中的所有项目，且主数据块内无空白单元格，此效果仍将保持。结果如下所示：
提示：日后如需扩展或缩减源列表，无需手动更新数据验证设置——只要范围开头没有空白单元格，公式将自动调整。但请注意，若列表中存在空白（不仅限于末尾），虽然计数时会被跳过，仍可能导致下拉列表中出现意外的间隙。
潜在问题：如果您的源区域可能包含有意留下的空白、合并单元格或非连续数据，请考虑将 Excel 表格用作源区域，或参考下方的 VBA 方法以实现更灵活的处理。
使用 VBA 代码自动在下拉列表中显示第一项而非空白
在某些场景中，仅调整数据验证源并不足够——例如，当您的数据频繁变动，或因其他结构性原因导致来源区域中可能出现空白时。借助一段简洁的 VBA 代码，您可确保每次激活含数据验证的单元格时，下拉列表自动选中并显示首个可用项，从而加快数据录入速度，减少用户点击次数。
1. 插入下拉列表后，右键单击包含该下拉列表的工作表标签，然后从上下文菜单中选择查看代码。Microsoft Visual Basic for Applications 编辑器将随即打开。在窗口中，请将以下代码粘贴到对应的工作表模块中（而非标准模块）。此代码将在后台运行，并在每次选中数据验证单元格时自动重置下拉列表：
VBA 代码：自动在下拉列表中显示第一个数据项：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
Dim xFormula As String
On Error GoTo Out:
xFormula = Target.Cells(1).Validation.Formula1
If Left(xFormula, 1) = "=" Then
Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Value
End If
Out:
End Sub
2. 粘贴代码后，请将工作簿保存为启用宏的 .xlsm 文件，然后关闭 VBA 编辑器窗口。返回工作表，单击任意带有下拉列表的单元格——激活单元格时，下拉列表中的第一个条目将自动显示。
提示与注意事项：当您希望为用户提供无缝体验时（尤其是面对动态或较长的源列表，或列表中可能存在不可避免的空白条目），VBA 方法尤为理想。请务必启用宏，并提前告知其他工作簿用户——出于安全考虑，某些环境可能会限制宏的使用。
故障排除：如果代码似乎未生效，请仔细检查是否已将其正确放置在 VBA 编辑器中的对应工作表代码窗口中，并确保下拉列表使用的是标准数据验证序列。
局限性：VBA 解决方案仅在用户选择下拉单元格时触发；若单元格通过其他方式（例如公式结果或粘贴操作）填充，则不会生效。一旦您移除单元格中的下拉列表，或将该单元格移至不含 VBA 代码的其他工作表，自动选择功能将立即失效。
将 Excel 表格用作源区域
如果您的下拉源列表是动态的，并希望更便于维护，不妨将源列表转换为 Excel 表格。表格会随着数据的增删自动调整范围，确保下拉列表始终保持最新状态。但请注意，Excel 表格不会自动排除空白单元格——除非您显式过滤掉它们（例如，在 Excel 365 和 Excel 2021 中使用 FILTER 函数），否则表格中的空白条目仍会显示在下拉列表中。
1. 选择您的源数据，按 Ctrl + T 将其转换为表格，并确保顶部无空白行。随后，在“表格设计”选项卡中为表格指定一个有意义的名称，例如 MyList。
2. 设置数据验证时，请使用结构化引用来引用表格列。在“数据验证”的来源中输入：
=INDIRECT("MyList[Column1]")将 Column 1 替换为您的实际列名（即列标题）。此方法可动态包含表格列中所有已填充的项目，在您更新数据后仍保持列表完整性。
此方法特别适用于源数据频繁更新、且多名用户需高效管理验证列表的场景。
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱