用VBA将A1:c100单元格数据做成直方图

以下是用VBA制作直方图的代码示例：

Sub CreateHistogram()

    Dim rngData As Range
    Dim rngBins As Range
    Dim chtChart As Chart
    
    Set rngData = Range("A1:C100") '数据范围
    Set rngBins = Range("E1:E10") '分组区间范围
    
    '创建直方图
    Set chtChart = Charts.Add
    chtChart.ChartType = xlColumnClustered
    chtChart.SetSourceData Source:=rngData
    
    '设置分组区间
    With chtChart.Axes(xlCategory)
        .CategoryType = xlCategoryScale
        .TickLabelSpacing = 1
        .TickMarkSpacing = 1
        .HasMajorGridlines = True
        .MinimumScaleIsAuto = False
        .MaximumScaleIsAuto = False
        .MinimumScale = rngBins.Cells(1, 1)
        .MaximumScale = rngBins.Cells(rngBins.Rows.Count, 1)
        .BinWidth = (rngBins.Cells(rngBins.Rows.Count, 1) - rngBins.Cells(1, 1)) / (rngBins.Rows.Count - 1)
    End With
    
End Sub

在上述代码中，我们首先定义了数据范围 `rngData` 和分组区间范围 `rngBins`，然后创建了一个直方图，并设置了分组区间的相关属性。你可以根据需要修改代码中的数据范围和分组区间范围，以及直方图的其他属性来满足你的需求。