在excel上实现一个VBA程序，一次过滤出有很多值的图形(不需要用经典的过滤工具勾选每一个框)

Sub FilterChartWithData()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim rng As Range
    Dim i As Integer
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你的工作表名称
    
    ' 设置图表对象
    Set cht = ws.ChartObjects("Chart 1") ' 将"Chart 1"替换为你的图表名称
    
    ' 设置数据范围
    Set rng = ws.Range("A1:B10") ' 将"A1:B10"替换为你的数据范围
    
    ' 清除所有过滤器
    ws.AutoFilterMode = False
    
    ' 过滤出有很多值的图形
    rng.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlFilterValues
    
    ' 将过滤后的数据复制到新的工作表
    ws.AutoFilter.Range.Copy Destination:=ThisWorkbook.Worksheets.Add.Range("A1")
    
    ' 将过滤后的数据绘制成图表
    With cht
        .Chart.SetSourceData Source:=ThisWorkbook.Worksheets(2).Range("A1:B10") ' 将2替换为新建工作表的索引
        .Chart.ChartType = xlColumnClustered ' 设置图表类型为柱状图
    End With
    
    ' 删除新建的工作表
    Application.DisplayAlerts = False
    ThisWorkbook.Worksheets(2).Delete
    Application.DisplayAlerts = True
    
    ' 清除过滤器
    ws.AutoFilterMode = False
End Sub