如何通过计算另一个数组excel vba创建数组

Sub CreateArray()
    Dim inputArray() As Variant
    Dim outputArray() As Variant
    Dim i As Integer
    
    ' 假设已经有一个名为inputArray的数组，用于存储输入数据
    ' 这里只是一个示例，你可以根据实际情况修改
    
    ' 计算数组的大小
    Dim arraySize As Integer
    arraySize = UBound(inputArray) - LBound(inputArray) + 1
    
    ' 根据计算结果创建输出数组
    ReDim outputArray(1 To arraySize) As Variant
    
    ' 对输入数组进行计算，并将结果存储到输出数组中
    For i = LBound(inputArray) To UBound(inputArray)
        outputArray(i) = inputArray(i) * 2 ' 这里只是一个示例计算，你可以根据实际需求修改
    Next i
    
    ' 输出结果
    For i = LBound(outputArray) To UBound(outputArray)
        Debug.Print outputArray(i)
    Next i
End Sub