Выберите столбец из заданного диапазона по адресу

Question

Когда я выбираю диапазоны от объекта WorkSheet, один из методов, который я могу использовать, - MySheet.Range("A1"). Есть ли аналогичный подход, который я могу использовать для выбора поддиапазона существующего объекта диапазона?

Чтобы сделать мой вопрос более конкретный вот пример:

Допустим, что при изменении выбора на конкретном листе я хочу сообщить пользователю, сколько «Колонка 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