Excel VBA一键生成折线图

Sub CreateSalesLineChart()    ' 一键生成销售额折线图    ' 作者: Excel 每日一学    ' 日期: 2026年1月    Dim ws As Worksheet    Dim chartObj As chartObject    Dim dataRange As Range    Dim lastRow As Long    ' 设置要操作的工作表（默认为活动工作表）    Set ws = ActiveSheet    ' 查找数据区域的最后一行    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row    ' 确保有足够的数据    If lastRow < 2 Then        MsgBox "未找到有效数据！请确保A列为时间/月份，B列为销售额。", vbExclamation        Exit Sub    End If    ' 定义数据范围（假设数据从A1开始）    Set dataRange = ws.Range("A1:B" & lastRow)    ' 创建图表对象    Set chartObj = ws.ChartObjects.Add(Left:=200, Width:=550, Top:=50, Height:=350)    ' 设置图表类型为折线图    chartObj.Chart.ChartType = xlLineMarkers    ' 设置图表数据源    chartObj.Chart.SetSourceData Source:=dataRange    ' 设置图表标题    chartObj.Chart.HasTitle = True    chartObj.Chart.chartTitle.Text = "销售额随时间变化趋势"    ' 设置X轴标题    chartObj.Chart.Axes(xlCategory).HasTitle = True    chartObj.Chart.Axes(xlCategory).AxisTitle.Text = "时间/月份"    ' 设置Y轴标题    chartObj.Chart.Axes(xlValue).HasTitle = True    chartObj.Chart.Axes(xlValue).AxisTitle.Text = "销售额（万元）"    ' 设置数据标记样式    chartObj.Chart.SeriesCollection(1).MarkerStyle = xlMarkerStyleCircle    chartObj.Chart.SeriesCollection(1).MarkerSize = 8    chartObj.Chart.SeriesCollection(1).Format.Line.Weight = 2.5    ' 添加数据标签（可选）    ' chartObj.Chart.SeriesCollection(1).HasDataLabels = True    ' 设置图表样式    chartObj.Chart.ChartStyle = 201    ' 调整图例位置    chartObj.Chart.HasLegend = True    chartObj.Chart.Legend.Position = xlLegendPositionBottom    ' 显示成功消息    MsgBox "销售额折线图已成功生成！" & vbCrLf & _           "数据范围: A1:B" & lastRow, vbInformation    ' 清理对象    Set dataRange = Nothing    Set chartObj = Nothing    Set ws = NothingEnd Sub

' ================================================' 使用说明：' 1. 在Excel中按Alt+F11打开VBA编辑器' 2. 插入新模块，将本代码粘贴到模块中' 3. 确保数据格式：A列为时间/月份，B列为销售额' 4. 返回Excel，按Alt+F8，选择CreateSalesLineChart运行' ================================================

#VBA常用代码