vba - 按地址从给定范围中选择列

Question

当我从 WorkSheet 对象中选择范围时，我可以使用的一种方法是 MySheet.Range("A1")。我可以使用类似的方法来选择现有范围对象的子范围吗？

为了让我的问题更具体，这里有一个例子:

假设当特定工作表上的选择发生更改时，我想告诉用户此范围内有多少个“Column I”单元格。根据我目前对 VBA 的理解，我会做如下的事情:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim col As Range
    For Each col In Target.Columns
        If col.Column = Range("I:I").Column Then
            MsgBox col.Rows.Count
        End If
    Next
End Sub

是否有更灵活的方法来索引子范围？

Answer 1

查看交叉点的一种方法:

Dim ir As Range
Set ir = Application.Intersect(Target, Range("I:I"))
If Not ir Is Nothing Then MsgBox ir.Cells.Count