请求修改Excel宏：实现选中单列时自动生成独立折线图

需求说明 #

针对包含30列数据的电子表格，为满足QA单独绘图的需求，将原批量生成多列图表的宏改造为选中任意一列即可自动生成对应独立折线图的版本，提升单列绘图效率。

原宏问题分析 #

原宏固定循环第5至10列生成图表，未利用选中列的交互信息，且变量i未赋值（需自动获取数据区域的最后一行），无法适配任意列的动态绘图需求。

修改后的VBA代码 #

Sub AddSingleColumnChart()
    Dim lastRow As Integer ' 数据区域最后一行
    Dim targetCol As Integer ' 选中列的列号
    
    ' 获取选中单元格所在的列号
    targetCol = Selection.Column
    ' 获取第2列（X轴数据列）的最后一行数据行号
    lastRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    
    ' 创建新折线图并配置参数
    With ActiveSheet.Shapes.AddChart.Chart
        .ChartType = xlLine
        .SeriesCollection.NewSeries
        With .SeriesCollection(1)
            ' 设置X轴数据（引用第2列第12行至最后一行）
            .XValues = "=" & ActiveSheet.Name & "!" & _
                Range(Cells(12, 2), Cells(lastRow, 2)).Address
            ' 设置系列名称（引用第10行目标列的单元格内容）
            .Name = "=" & ActiveSheet.Name & "!" & _
                Cells(10, targetCol).Address
            ' 设置系列数值（引用目标列第12行至最后一行）
            .Values = "=" & ActiveSheet.Name & "!" & _
                Range(Cells(12, targetCol), Cells(lastRow, targetCol)).Address
        End With
        ' 可根据需求开启/关闭图例
        ' .HasLegend = False
    End With
End Sub

代码关键改进点 #

• 动态获取选中列的列号：通过Selection.Column捕捉用户选中的目标列，实现交互绘图
• 自动计算数据最后一行：通过Cells(Rows.Count, 2).End(xlUp).Row获取X轴数据列的有效数据行数，避免硬编码行号
• 移除固定列循环：放弃原宏的列范围循环，改为针对单列生成图表

使用方法 #

1. 打开目标电子表格，按下Alt + F11打开VBA编辑器
2. 将原宏代码替换为上述修改后的代码
3. 返回表格，选中需要绘图的列的任意单元格
4. 按下Alt + F8，选择AddSingleColumnChart并执行，即可生成对应列的独立折线图

内容的提问来源于stack exchange，提问作者sandy carr