近5年PB估值序列 近5年PE估值序列 ROE_PB 近1年滚动20日 换手率均值 近5年指数趋势 ROE 毛利率 景气度边际变化 帮我写一个vba代码，按照顺序打印输出如上内容。同时注意要把上述内容存除在一个数组中，使用for循环

以下是一个示例代码，实现了将所需数据存储到一个数组中，并按照顺序打印输出：

Sub PrintData()
    Dim data(1 To 9) As Variant
    Dim i As Integer
    
    ' 获取数据并存入数组
    data(1) = Range("A2:A6").Value
    data(2) = Range("B2:B6").Value
    data(3) = Range("C2:C6").Value
    data(4) = Range("D2:D21").Value
    data(5) = Range("E2:E6").Value
    data(6) = Range("F2:F6").Value
    data(7) = Range("G2:G6").Value
    data(8) = Range("H2:H6").Value
    data(9) = Range("I2:I6").Value
    
    ' 按照顺序打印输出
    For i = 1 To 9
        Debug.Print data(i)
    Next i
End Sub

需要注意的几点：

- `data`是一个大小为9的数组，每个元素存储一个需要输出的数据。
- 可以根据实际情况修改数据的来源范围。
- 输出语句使用了VBA内置的`Debug.Print`函数，输出结果将在VBA开发环境的Immediate窗口中显示。如果需要将结果输出到Excel表格中，可以使用`Range`对象的`Value`属性来实现。