Excel图表-如何在没有范围引用的VBA中绘制不连续的序列

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim chartRange As Range
    Dim chartObject As ChartObject
    
    ' 检查选择的范围是否为空
    If Not Intersect(Target, Me.UsedRange) Is Nothing Then
        ' 创建一个新的图表范围，包含选择的单元格
        Set chartRange = Target
        
        ' 添加其他不连续的范围到图表范围
        Set chartRange = Union(chartRange, Me.Range("A1:A5"))
        Set chartRange = Union(chartRange, Me.Range("C1:C3"))
        
        ' 创建一个新的图表对象并将其添加到工作表
        Set chartObject = Me.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
        
        ' 设置图表的数据源范围
        chartObject.Chart.SetSourceData Source:=chartRange
        
        ' 设置图表的类型
        chartObject.Chart.ChartType = xlColumnClustered
    End If
End Sub