用vba编写宏定义数组并动态添加1行2列

Sub AddRowToArray() Dim myArray() As Variant Dim numRows As Integer Dim numColumns As Integer

' Define initial size of array
numRows = 1
numColumns = 2

' Resize array to accommodate new row
ReDim Preserve myArray(1 To numRows + 1, 1 To numColumns)

' Add values to new row
myArray(numRows + 1, 1) = "Value 1"
myArray(numRows + 1, 2) = "Value 2"

' Print array values
For i = 1 To numRows + 1
    For j = 1 To numColumns
        Debug.Print myArray(i, j)
    Next j
Next i

End Su