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

Автор Rengame113, 18 июля 2018, 13:28

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
[свернуть]