如何用VBA自动为散点图批量添加250+系列

你的需求是给延伸至278行的Excel表格每行创建一个散点图系列，X轴使用B-K列数据，Y轴使用L-U列数据。以下是修改后的VBA代码，可自动完成批量添加操作：

Sub AddAllScatterSeries()
    Dim ws As Worksheet
    Dim cht As Chart
    Dim i As Integer
    Dim lastRow As Integer
    
    ' 指定目标工作表，可根据实际表名修改，比如"数据Sheet"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 设置表格最后一行，固定为278行，也可改成自动识别
    lastRow = 278
    ' 获取当前激活的散点图
    Set cht = ActiveChart
    
    ' 循环遍历每行，从第3行开始到最后一行
    For i = 3 To lastRow
        ' 添加新的图表系列
        cht.SeriesCollection.NewSeries
        ' 给当前系列设置X轴数据：对应行的B-K列
        cht.FullSeriesCollection(i - 2).XValues = ws.Range("B" & i & ":K" & i)
        ' 给当前系列设置Y轴数据：对应行的L-U列
        cht.FullSeriesCollection(i - 2).Values = ws.Range("L" & i & ":U" & i)
        ' 可选：用A列内容给系列命名，不需要可直接删除这行
        cht.FullSeriesCollection(i - 2).Name = ws.Range("A" & i).Value
    Next i
End Sub

关键说明： #

• 用循环替代手动重复代码，从第3行遍历到278行，自动生成所有系列
• i - 2是因为第一个系列对应第3行，而FullSeriesCollection的索引从1开始，3-2=1刚好匹配第一个系列的索引，以此类推
• 若表格最后一行不固定，可把lastRow = 278改成自动识别代码：lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row，会自动定位到A列最后有数据的行
• 可选的系列命名行（用A列内容），不需要的话直接删除即可，系列会默认显示"系列1、系列2..."

使用步骤： #

1. 先插入一个空白散点图，确保图表处于选中激活状态
2. 按Alt+F11打开VBA编辑器
3. 插入一个新模块，把上面的代码粘贴进去
4. 根据实际情况修改工作表名称
5. 运行这个宏（按F5，或回到Excel从「开发工具-宏」里选择运行）

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