Всем привет!
Подскажите пожалуйства, как расширять динамический массив по мере появления новых данных, при их сборе циклом?
Второй день ковыряюсь, ошибку все найти не могу))) Статей много прочёл, но с места сдвинуться не могу))
Подскажите пожалуйства, как расширять динамический массив по мере появления новых данных, при их сборе циклом?
Второй день ковыряюсь, ошибку все найти не могу))) Статей много прочёл, но с места сдвинуться не могу))
| Код |
|---|
Sub test()
LastRow = 2
Dim arr() As Variant
ReDim arr(1 To 1, 1 To 4)
Dim i%, k%
For i = 1 To LastRow
k = k + 1
ReDim Preserve arr(1 To UBound(arr, 1) + 1, 1 To 4) 'вылетает ошибка subscrpt out of range
arr(k, 1) = "Привет"
arr(k, 2) = "Пусто"
arr(k, 3) = "Пусто"
arr(k, 4) = "и снова здравствуйте"
Next i
Range("A1:D2") = arr
End Sub |
Изменено: - 29.04.2022 11:48:35
