近5年PB估值序列 近5年PE估值序列 ROE_PB "近1年滚动20日 换手率均值" 近5年指数趋势 ROE 毛利率 景气度边际变化，如帮我写一个vba代码，遍历如上表格名并print

以下是一个示例代码，可以遍历指定工作表中的数据并输出：

Sub PrintData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为你要遍历的工作表名
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '获取最后一行的行号
    
    Dim i As Long
    For i = 2 To lastRow '从第2行开始遍历，第1行为表头
        Debug.Print ws.Cells(i, 1) '输出PB估值序列
        Debug.Print ws.Cells(i, 2) '输出PE估值序列
        Debug.Print ws.Cells(i, 3) '输出ROE_PB
        Debug.Print ws.Cells(i, 4) '输出"近1年滚动20日 换手率均值"
        Debug.Print ws.Cells(i, 5) '输出近5年指数趋势
        Debug.Print ws.Cells(i, 6) '输出ROE
        Debug.Print ws.Cells(i, 7) '输出毛利率
        Debug.Print ws.Cells(i, 8) '输出景气度边际变化
    Next i
End Sub

请将代码中的"Sheet1"替换为你要遍历的工作表名，并在VBA编辑器中直接运行该代码即可。输出结果将显示在"立即窗口"中。如果需要将结果输出到Excel中，请将"Debug.Print"替换为"ws.Cells(行号, 列号).Value = 值"即可。