Excel vba直方图框

Sub CreateHistogram()
    Dim rngData As Range
    Dim rngBins As Range
    Dim rngOutput As Range
    Dim cht As ChartObject
    
    ' 定义数据范围
    Set rngData = Range("A1:A100")
    
    ' 定义区间范围
    Set rngBins = Range("C1:C10")
    
    ' 定义输出范围
    Set rngOutput = Range("E1")
    
    ' 创建直方图
    Set cht = ActiveSheet.ChartObjects.Add(Left:=rngOutput.Left, Top:=rngOutput.Top, Width:=300, Height:=200)
    With cht.Chart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=rngData
        .SeriesCollection(1).Bins.BinRange = rngBins
    End With
End Sub