Sub 回报率绘图 Dim i As Integer j As Integer Dim ws As Worksheet Dim banknm As String Dim rngA1 As Range Dim chartCategory As String Dim chartValue As String Dim cht As ChartObject

这个代码的主要功能是根据“main”工作表中的银行名称，创建一个包含每日回报率趋势图的图表，并将其插入到相应的银行工作表中。以下是代码的详细思路：

1. 首先定义一些变量，包括 i 和 j 用于循环，ws 用于引用银行工作表，banknm 用于存储银行名称，rngA1 用于引用单元格，chartCategory 和 chartValue 用于存储图表的类别和值数据范围，cht 用于引用新创建的图表，chartTitle 用于存储图表标题，dataRange 用于存储银行工作表中的数据范围。

2. 使用 “With” 语句引用“main”工作表，并使用一个“Do While”循环，从第二行开始循环，直到遇到空单元格。

3. 在循环中，首先将当前行的银行名称存储在 banknm 变量中。

4. 然后使用一个“For Each”循环遍历所有工作表，如果找到一个工作表的名称与 banknm 变量相同，则说明找到了对应的银行工作表。

5. 在银行工作表中，使用 dataRange 变量引用数据范围，然后使用 cht 变量创建一个新的图表对象，并设置其大小和位置。

6. 将图表类型设置为线形图，并设置图表标题为当前银行名称的每日回报率趋势数据。

7. 将 chartCategory 和 chartValue 变量设置为相应的银行工作表中的类别和值数据范围。

8. 使用 AddSeries 方法向图表中添加一个新系列，并将其值设置为 chartValue 变量，类别设置为 chartCategory 变量。

9. 将新系列的标记样式设置为圆形，大小设置为 8。

10. 将新系列的数据标签设置为可见，并将其名称设置为“每日回报率”。

11. 设置图表的类别轴和值轴的标题。

12. 将图表的类别轴标签位置设置为底部。

13. 将图表的位置和大小设置为相应的银行工作表中的位置和大小。

14. 最后，将 Application.DisplayAlerts 设置为 True，以便在添加图表时显示警告消息。

15. 循环继续，直到检查完所有的银行名称