没问题！完全可以实现遍历指定工作表里的所有表格，批量生成独立图表的需求。我帮你把原来的单个图表生成逻辑改造成批量版本，一起来看看：

核心思路 #

我们要做的就是遍历指定工作表中的所有Excel表格（即ListObject对象），然后把你原来处理单个选中区域的逻辑，套用到每个表格的数据区域上即可。

完整批量生成宏代码 #

' 批量生成图表宏
' 可以设置新的快捷键，比如Ctrl+Shift+A
Sub BatchGenerateCharts()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim rng As Range
    Dim cht As ChartObject
    Dim chartTop As Double
    
    ' 1. 指定目标工作表，请替换成你的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 初始化图表起始位置，避免重叠
    chartTop = 10
    
    ' 2. 遍历工作表中的所有表格
    For Each tbl In ws.ListObjects
        ' 检查表格是否有数据行
        If Not tbl.DataBodyRange Is Nothing Then
            Set rng = tbl.DataBodyRange
            
            ' 保留你原来的清除第一个单元格的逻辑
            rng(1, 1).Clear
            
            ' 3. 生成独立图表（沿用你原来的图表生成逻辑，这里补充了基础示例）
            Set cht = ws.ChartObjects.Add( _
                Left:=rng.Offset(0, rng.Columns.Count + 2).Left, _
                Top:=chartTop, _
                Width:=300, _
                Height:=200)
            
            ' 设置图表数据源和类型（可根据你的需求修改）
            cht.Chart.SetSourceData Source:=rng
            cht.Chart.ChartType = xlColumnClustered
            
            ' 设置图表标题为表格名称
            cht.Chart.ChartTitle.Text = tbl.Name
            
            ' 更新下一个图表的起始位置
            chartTop = chartTop + cht.Height + 20
        End If
    Next tbl
    
    MsgBox "批量图表生成完成！"
End Sub

关键细节说明 #

• 指定目标工作表：把代码里的Sheet1替换成你需要处理的工作表名称，如果要遍历多个工作表，可以再套一层For Each ws In ThisWorkbook.Worksheets循环。
• 避免空表格报错：加入了If Not tbl.DataBodyRange Is Nothing判断，跳过没有数据的空表格。
• 图表位置控制：用chartTop变量控制图表的垂直位置，避免生成的图表重叠，你也可以根据需要调整水平位置（Left参数）。
• 复用原有逻辑：你原来代码里的Set cht = ...部分可以直接替换到示例中的图表生成块里，保持你原来的图表样式设置。

使用建议 #

1. 把这段代码粘贴到你的VBA模块中（和原来的graph宏同模块即可）。
2. 给新宏设置快捷键：打开【开发工具】→【宏】→选中BatchGenerateCharts→点击【选项】设置快捷键（比如Ctrl+Shift+A）。
3. 测试运行：确保目标工作表里有Excel表格（不是普通单元格区域），然后运行宏即可批量生成图表。

内容的提问来源于stack exchange，提问作者Sparta