Добавить элементы в Dyname Array VBA
Option Explicit
Option Base 1
Sub vba_array_add_value()
Dim myArray() As Variant
ReDim myArray(2)
myArray(1) = 5
myArray(2) = 10
ReDim Preserve myArray(1 To 3)
myArray(3) = 15
Debug.Print myArray(1)
Debug.Print myArray(2)
Debug.Print myArray(3)
End Sub
Braxton Bell