近5年PB估值序列 近5年PE估值序列 ROE_PB 近1年滚动20日 换手率均值 近5年指数趋势 ROE 毛利率 景气度边际变化 帮我写一个vba代码,按照顺序打印输出如上内容,使用for循环
时间: 2024-02-05 07:11:21 浏览: 30
以下是按照顺序打印输出的VBA代码,使用了For循环:
```
Sub PrintData()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") '修改为实际工作表名称
'打印近5年PB估值序列
For i = 1 To 5
Debug.Print ws.Cells(i, 1).Value
Next i
'打印近5年PE估值序列
For i = 1 To 5
Debug.Print ws.Cells(i, 2).Value
Next i
'打印ROE_PB
Debug.Print ws.Cells(6, 1).Value
'打印近1年滚动20日换手率均值
Debug.Print ws.Cells(7, 1).Value
'打印近5年指数趋势
For i = 1 To 5
Debug.Print ws.Cells(i, 3).Value
Next i
'打印ROE
Debug.Print ws.Cells(6, 2).Value
'打印毛利率
Debug.Print ws.Cells(7, 2).Value
'打印景气度边际变化
Debug.Print ws.Cells(8, 1).Value
End Sub
```
请注意,上述代码中的工作表名称需要修改为实际的工作表名称。此外,代码中使用了Debug.Print语句将数据打印到立即窗口中,如果需要将数据输出到工作表中,可以使用ws.Cells(row, column).Value = value语句。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![xlsx](https://img-home.csdnimg.cn/images/20210720083732.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)