关于用代码自动插入图表 Private Sub CommandButton1_Click() Dim myrange As Range Dim myChart As ChartObject Dim R As Integer With Sheet1 .ChartObjects.Delete 'R = .Range("A65536").End(xlUp).Row R = ActiveSheet.UsedRange.Rows.Count '不知道为什么这里的测试和我以前的不一样,不用-1 '这里解决了可选问题。 'Set myRange = Union(.Range("E" & 1 & ":E" & R), .Range("G" & 1 & ":G" & R)) Set myrange = myRange_C Set myChart = .ChartObjects.Add(100, 50, 700, 450) With myChart.Chart .ChartType = xlColumnClustered .SetSourceData Source:=myrange, PlotBy:=xlColumns .ApplyDataLabels ShowValue:=True .HasTitle = True .ChartTitle.Text = "housing日日盘点" With .ChartTitle.Font