VBA - 多个系列到一个图表

使用VBA编程语言可以轻松地将多个数据系列合并到一个图表中。这种功能在数据可视化和报告生成中非常有用。本文将介绍如何使用VBA编写代码来实现这一功能，并提供一个案例代码来帮助读者更好地理解。

vba
Sub MergeSeriesToChart()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim rng1 As Range, rng2 As Range
    Dim srs1 As Series, srs2 As Series
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 创建一个新的图表对象
    Set cht = ws.ChartObjects.Add(Left:=100, Width:=300, Top:=100, Height:=200)
    
    ' 设置数据范围
    Set rng1 = ws.Range("A1:A10")
    Set rng2 = ws.Range("B1:B10")
    
    ' 添加第一个数据系列
    Set srs1 = cht.Chart.SeriesCollection.NewSeries
    srs1.Values = rng1
    
    ' 添加第二个数据系列
    Set srs2 = cht.Chart.SeriesCollection.NewSeries
    srs2.Values = rng2
    
    ' 设置图表类型为柱状图
    cht.Chart.ChartType = xlColumnClustered
End Sub