KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中打印下拉列表中的所有选项？

作者Siluvia修改日期

在 Excel 中使用下拉列表时，您可能需要快速打印其中的所有选项。这一需求在文档归档、审核、培训，或与同事协作规划数据录入（需提供所有可选项的纸质版）时尤为常见。尽管 Excel 未内置直接打印下拉列表全部选项的功能，但仍有多种实用方法可供选择。本文将为您介绍一种基于 VBA 的高效解决方案和一种适合大多数用户的简易手动方法，并附上故障排除技巧与实用建议，助您轻松顺畅地完成操作。

使用 VBA 代码打印下拉列表中的所有选项

如果您的下拉列表基于数据验证或窗体控件，并希望为每个选项自动生成独立的打印输出（例如，预览选择不同选项后工作表的呈现效果），使用 VBA 是最高效的方式。当您的数据或计算结果依赖于下拉选项，且需要为每种可能场景提供纸质副本时，这种方法尤为适用。请严格遵循以下步骤，以避免常见问题：

1. 按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。如果该快捷键无效，请确保已启用键盘快捷方式，且您的 Office 安装包含 VBA 组件。

2. 在 Microsoft Visual Basic for Applications 窗口中，单击插入> 模块，将下方的 VBA 代码复制并粘贴到打开的模块窗口中。请参见截图：

将 VBA 代码复制并粘贴到模块中

VBA 代码：将指定下拉列表中的所有选项分别打印为独立输出

Sub Iterate_Through_data_Validation()
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("Sheet1").Range("B8")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.PrintOut
    Next
End Sub

注意：代码中，Sheet1 被设为包含您要打印的下拉列表的工作表名称，而 B8 是包含该下拉列表的具体单元格。请务必将其替换为您实际使用的工作表名称和单元格引用，以免因引用错误导致运行出错或产生意外结果。

3. 代码就位后，按下 F5 键或单击运行按钮即可执行宏。该宏将遍历下拉列表中的每个值，相应更新指定单元格，并为每个条目发送一份独立的打印任务。若选项较多，此过程可能耗时较长，且会自动应用您的打印机设置（如默认打印机和打印份数）。

如果出现“下标越界”等错误，或更新了错误的单元格，请仔细核对工作表名称、下拉列表所引用的单元格，并确保您的下拉列表类型兼容（数据验证或窗体控件）。

当每个选项都会对工作簿中的大量计算或格式设置产生影响，且您需要打印展示每种场景的输出时，此方法尤为适用。然而，若下拉列表包含大量选项，宏的运行时间可能较长，并会迅速触发多个打印任务。运行宏前，请务必确认您的打印设置，以免造成不必要的纸张浪费。

通过直接列出下拉列表源数据打印所有选项

在许多情况下，您的下拉列表基于某个单元格区域或手动输入的项目列表，这些内容已在工作表中清晰可见或易于重建。如果您只需打印所有可用选项的列表（而非打印每种状态下完整的工作表），可采用以下简单方法，无需使用 VBA 或高级功能。

适用场景：此方法适用于下拉列表以单元格区域作为源数据，或在“数据验证”对话框中直接使用逗号分隔列表的情况，也是为团队成员或利益相关者快速提供选项参考列表的实用方式。

优势：无需宏，有效降低生成多个打印任务的风险；若源列表管理得当，即可即时完成。

局限性：此方法无法重现选择每个下拉选项后整个工作表的实际效果，仅会打印出所有可能值的列表。

步骤：

✓如果您的下拉列表基于单元格区域（例如选项位于 A1:A10）：

  • 转到工作表，找到用作下拉列表数据源的区域。该区域通常已在“数据验证”中设定，您可在“数据”>“数据验证”>“来源”字段中查看。
  • 用鼠标选中整个源数据区域（例如 A1:A10）。
  • 按 Ctrl+P，或转到文件 > 打印。
  • 在打印设置中，请确保选择“打印选区”（若您仅需打印列表，而非整张工作表）。
  • 请检查打印预览，确认所选内容的显示效果符合预期，然后打印该列表。

✓如果您的下拉列表使用手动输入的列表（例如“Apple，Banana，Orange”）：

  • 在您的工作表中，选择一个空白列，然后逐项输入内容，每项占一行（例如，在 B1 单元格输入“Apple”，B2 输入“Banana”，依此类推）。
  • 或者，打开“数据验证”对话框，从“来源”字段中复制列表内容，并以数值形式粘贴到某一列中。
  • 当整份列表均已填入该列后，请按上述步骤打印所选内容。

附加提示：如果您有一个很长的逗号分隔列表，希望将其拆分为独立单元格以便打印，可使用数据> 分列 功能，以逗号作为分隔符。

对于静态且长度较短至中等的列表，这种手动方法最为高效。如果列表经常变动，或您需要频繁为每个选项打印完整的工作表版本，请考虑使用前文介绍的 VBA 自动化方法。

故障排除与附加提示：

  • 如果下拉列表的数据源位于其他工作表或该工作表已被隐藏，您可能需要先取消隐藏相应工作表，或检查用于定义动态区域的公式。
  • 在运行任何可能触发多次打印任务的 VBA 代码前，请务必先通过打印预览确认将要使用的打印机。
  • 对于由公式驱动的下拉列表（例如动态数组源），建议先将其当前可见的项目复制并粘贴到新列中，再进行打印。
  • 请注意，打印大量列表会消耗大量纸张和墨水。务必先查看打印预览，避免浪费，并根据需要调整设置。
  • 如果无需直接打印，仅需导出列表，您也可以将列表复制粘贴到其他应用程序（如 Word、记事本等），以便进一步调整格式或轻松共享。

总结建议：对于需要反复打印下拉选项的用户，在工作簿中设置一个清晰标注的专用源列表区域可节省时间。如果您经常需要为不同场景打印工作表，请确保 VBA 宏保持最新，并在运行前检查所有引用。定期审查您的下拉源（尤其是在工作簿变更或更新后），以确保持续的准确性和高效便捷。

在 Excel 中轻松批量打印指定页当前工作表：

借助 Kutools for Excel 的打印特定页面工具，您可以轻松批量打印当前工作表中的指定页面，例如打印所有奇数页、所有偶数页、仅打印当前页，以及如图所示的自定义页码范围。
立即下载试用！（30 天免费试用）

使用 Kutools 打印当前工作表中的指定页面

相关文章：

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 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 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱