设置相关数据验证的范围

Question

我想创建一个模块来打印 Excel 中的所有工作表，并结合 2 个下拉列表。其中之一是依赖下拉列表。

我不太精通 VBA Excel，所以我尝试使用此脚本，但检索第二个下拉列表（即依赖下拉列表）的范围时似乎出现错误。

如果您有任何建议或知道正确的脚本，请告诉我，我将不胜感激。谢谢你

模块

Excel表格

Answer 1

我想我可以看到你想在这里做什么。

假设您有一个单元格 O2，并且该单元格有一个下拉列表验证指向其他位置的范围。

要循环遍历范围内的每个单元格，您可以执行以下操作：

Sub test_this()
    Dim vf As String
    With ActiveSheet 'or, Worksheets("sheetname")
        vf = .Range("O2").Validation.Formula1
        If Left(vf, 1) = "=" Then vf = Mid(vf, 2, Len(vf) - 1)
        For Each c In .Range(vf).Cells
            'do something with c.Value
        Next
    End With
End Sub