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

您是否尝试过在Excel工作表的下拉列表中打印所有选项？本文将介绍如何在Excel中将下拉列表中的所有选项分别打印到单独的页面上。

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

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

以下VBA代码可以帮助您打印工作表中下拉列表的所有选项。请按照以下步骤操作。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请点击 插入 > 模块。然后将以下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 键运行代码。

随后，指定工作表中下拉列表的所有选项都会被分别打印出来。

相关文章：

• 如何在选择Excel下拉列表中的值时自动填充其他单元格？
• 如何在Excel下拉列表中键入时实现自动完成？
• 如何在Excel中创建带有日历的下拉列表？
• 如何在Excel中创建可搜索的下拉列表？
• 如何在Excel中创建支持多选或多个值的下拉列表？