以下是一个示例的VBA代码，用于计算一个数组中每个元素的百分比变化：

Sub CalculatePercentageChange()
    Dim arr() As Variant
    Dim result() As Variant
    Dim i As Long
    
    ' 将要计算百分比变化的数组
    arr = Range("A1:A10").Value
    
    ' 定义结果数组
    ReDim result(1 To UBound(arr, 1), 1 To 1)
    
    ' 计算百分比变化
    For i = 2 To UBound(arr, 1)
        result(i, 1) = (arr(i, 1) - arr(i - 1, 1)) / arr(i - 1, 1) * 100
    Next i
    
    ' 将结果输出到指定区域
    Range("B2").Resize(UBound(result, 1), 1).Value = result
End Sub

上述代码中，首先将要计算百分比变化的数组存储到arr变量中。然后，定义了一个一维数组result，用于存储计算得到的百分比变化结果。

接下来，通过一个循环遍历arr数组，计算每个元素与前一个元素的百分比变化，并将结果存储到result数组中。

最后，通过Range("B2").Resize(UBound(result, 1), 1).Value = result将结果输出到指定的单元格区域（在示例中是输出到B2开始的单元格区域）。

你可以根据自己的需求修改代码中的数组范围和输出结果的位置。