Макрос Excel - чтение данных из массива

Question

Как вы читаете данные из динамического массива?

ReDim idx(1 To nItemsToPick)
ReDim varRandomItems(1 To nItemsToPick)
For i = 1 To nItemsToPick
    Do
        booIndexIsUnique = True
        idx(i) = Int(nItemsTotal * Rnd + 1)
        For j = 1 To i - 1
            If idx(i) = idx(j) Then
                booIndexIsUnique = False
                Exit For
            End If
        Next j
        If booIndexIsUnique = True Then
            Exit Do
        End If
    Loop
    varRandomItems(i) = rngList.Cells(idx(i), 1)
Next i

Спасибо!

Answer 1

Каким-то образом вы должны заставить пользователя ввести начальную ячейку и указать, хотят ли они данные по горизонтали или по вертикали.

Затем, если пользователь вводит «А1», и имеется 10 элементов, а ориентация горизонтальная.вам нужно превратить это в строку -> "A1: A10"

Range("A1:J10") = varRandomItems

или

Range("A1:A10") = Application.Transpose(varRandomItems)

(извините, я забываю, как соединить строки в этой точке)