VBA如何基于数组动态生成多张图表并自定义X轴刻度

以下代码可直接读取你的SelectedTitles数组生成图表，无需将数组输出到工作表，同时实现X轴0.1秒间隔的配置：

Sub AddChartsFromArray()
    Dim sh As Worksheet, ch As Shape, chartNo As Long
    Dim prevWidth As Long, colIdx As Long, dataStartRow As Long, dataRowCount As Long
    Dim xArr As Variant, yArr As Variant, i As Long
    
    ' 配置参数
    Set sh = ActiveSheet ' 图表放置的工作表
    dataStartRow = 3 ' 有效数据从第3行开始（前2行是列名+单位）
    dataRowCount = UBound(SelectedTitles, 1) - dataStartRow + 1 ' 单条序列有效数据行数
    chartNo = UBound(SelectedTitles, 2) ' 总列数即需要生成的图表总数
    
    ' 提前生成X轴时间数组，步长0.1秒，对应每个Y值的时间点
    ReDim xArr(1 To dataRowCount)
    For i = 1 To dataRowCount
        xArr(i) = (i - 1) * 0.1
    Next i
    
    prevWidth = 0
    For colIdx = 1 To chartNo
        ' 提取当前列的有效Y值数组
        ReDim yArr(1 To dataRowCount)
        For i = 1 To dataRowCount
            yArr(i) = SelectedTitles(dataStartRow + i - 1, colIdx)
        Next i
        
        ' 创建图表
        Set ch = sh.Shapes.AddChart
        With ch.Chart
            .ChartType = xlColumnClustered ' 可自行修改为折线图xlLine等类型
            ' 清空默认自动添加的系列
            Do While .SeriesCollection.Count > 0
                .SeriesCollection(1).Delete
            Loop
            ' 直接用数组添加系列，无需绑定单元格
            With .SeriesCollection.NewSeries
                .XValues = xArr
                .Values = yArr
                .Name = SelectedTitles(1, colIdx) ' 系列名用第一行的列名
            End With
            ' 设置图表标题
            .HasTitle = True
            .ChartTitle.Text = SelectedTitles(1, colIdx)
            ' 设置Y轴标题为单位
            .Axes(xlValue, xlPrimary).HasTitle = True
            .Axes(xlValue, xlPrimary).AxisTitle.Text = SelectedTitles(2, colIdx)
            ' 设置X轴刻度间隔为0.1秒
            With .Axes(xlCategory, xlPrimary)
                .HasTitle = True
                .AxisTitle.Text = "时间(秒)"
                .MajorUnit = 0.1 ' 核心配置：主刻度间隔0.1秒
                .MinimumScale = 0 ' X轴起始值为0
            End With
        End With
        ' 设置图表并排排列
        ch.Parent.Left = sh.Range("A1").Left + prevWidth
        prevWidth = prevWidth + ch.Parent.Width
    Next colIdx
    
    ActiveWorkbook.Save
End Sub

注意事项 #

• 如果你的SelectedTitles数组是第一维为列索引、第二维为行索引的存储结构，只需调整代码中数组取值的前后下标即可
• 若有效数据行数每列不一致，可在循环每列时单独计算当前列的有效行数，无需统一用全局dataRowCount
• 可根据需求修改图表类型、尺寸、配色等属性，不影响数组赋值的核心逻辑

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