excel - 如何在 Excel VBA 中的行范围内引用命名列

Question

我想遍历用户选择的一组行的命名列中的所有单元格。但是，我不确定如何做到这一点。

Named Column in Selection of Rows

我已经使用打击代码来获取用户选择的范围/行，但我不知道如何从那里获取该范围内命名列中的单元格。

Set rng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)

Answer 1

您可以使用 Intersect :

Sub Test()

Dim rng1 As Range, rng2 As Range, cl As Range
With ThisWorkbook.Sheets("Sheet1") 'Whichever sheet your working on
    Set rng1 = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
    Set rng2 = Intersect(rng1, .Range("COLE")) 'Whichever name your named range is.
    For Each cl In rng2
        'Do something
    Next cl
End With    

End Sub

请注意，取消输入框后，这将引发错误，您可以通过一些错误处理来解决该错误。