VBA Макросы: Внесение значений ячеек в коллекцию (циклом).

[Rengame113]

Есть данные от В4 до В15. Как занести значения этих ячеек в коллекцию?

[Администратор]

Код

Sub макрос()

    Dim cln As Collection
    Dim i As Long
   
   
    ' Создание коллекции.
    Set cln = New Collection
   
    ' Запись в коллекцию данных из экселя.
    For i = 4 To 15
        cln.Add Item:=Cells(i, "B").Value
    Next i
   
End Sub

[свернуть]

[Rengame113]

Спасибо.