如何用VBA实现按日期进行统计汇总

Question

如题所述

Answer 1

点击图片查看动画效果，你要的就是下面这样

Sub text()
    Dim i%, j%
    For i = 1 To 3
        Set s = ActiveSheet.ChartObjects.Add((i - 1) * 300, 100, 300, 150)
        s.Chart.ChartType = xlColumnClustered
        s.Chart.SetSourceData Source:=Sheet1.Range(Sheet1.Cells(2, 1), Sheet1.Cells(5, i + 1)), PlotBy:=xlColumns
        s.Chart.Location Where:=xlLocationAsObject, Name:="Sheet1"
        s.Chart.HasDataTable = True
        If i > 1 Then
           For j = 1 To i - 1
               s.Chart.SeriesCollection(1).Select
               Selection.Delete
           Next
        End If
    Next
End Sub