Как добавить элементы из списка в ячейки на листе

Question

Я пытаюсь добавить элементы из списка в несколько строк в листе Excel. Я пытался сделать это так:

Dim Rand As Long
Dim ws As Worksheet
Set ws = Worksheets("Necmontage")
Rand = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Range(ws.Cells(Rand, 1), ws.Cells(Rand + necesar.ListCount - 1, 1)).Merge
ws.Cells(Rand, 1) = "K"

Range(ws.Cells(Rand, 2), ws.Cells(Rand + necesar.ListCount - 1, 2)).Merge
ws.Cells(Rand, 2) = "Montage"

Range(ws.Cells(Rand, 3), ws.Cells(Rand + necesar.ListCount - 1, 3)).Merge
ws.Cells(Rand, 3) = comanda.Caption

Dim i As Integer
i = 0
Do While i = necesar.ListCount - 1
    ws.Cells(Rand + i, 4) = necesar.List(i, 0)
    i = i + 1
Loop
End Sub

Он добавляет все значения, которые я хочу, кроме значений из списка (где я это делаю во время цикла). Я не знаю почему, но это не принимает значения. Есть идеи по поводу этой проблемы?

Answer 1

Вы имели в виду в своем коде:

Do While i <= necesar.ListCount - 1 'instead of =
    ws.Cells(Rand + i, 4) = necesar.List(i, 0)
    i = i + 1
Loop

Кстати, вы можете увидеть в режиме отладки, поставив точку останова на строке Do While, если программа идет туда, куда вы хотели.