Excel技术需求：按指定Assignee提取项目数据并生成独立图表

一、前期数据规范 #

确保主数据表（假设表名项目清单）结构清晰，至少包含以下列：

• Assignee：负责人姓名
• 项目名称：项目标识
• 其他需要展示的字段（如进度、完成率、起止日期等）

建议将主表设置为Excel表格（Ctrl+T），方便动态引用数据范围，避免因新增数据导致宏失效。

二、核心VBA宏实现 #

以下是高效的宏代码，替代手动Index/Match的粗糙方案，逻辑分为「数据提取」和「批量生成图表」两部分：

Sub GenerateAssigneeCharts()
    Dim inputName As String
    Dim wsMain As Worksheet, wsTemp As Worksheet
    Dim lastRow As Long, chartRow As Long
    Dim projectRange As Range, cell As Range
    
    ' 获取输入的负责人姓名（假设输入在Sheet1的A1单元格，可自行修改）
    inputName = Trim(Sheet1.Range("A1").Value)
    If inputName = "" Then
        MsgBox "请输入负责人姓名！", vbExclamation
        Exit Sub
    End If
    
    ' 定义主数据表和临时工作表（用于存放筛选后的数据）
    Set wsMain = ThisWorkbook.Worksheets("项目清单")
    On Error Resume Next
    Set wsTemp = ThisWorkbook.Worksheets("临时数据")
    On Error GoTo 0
    ' 若临时表存在则清空，不存在则新建
    If wsTemp Is Nothing Then
        Set wsTemp = ThisWorkbook.Worksheets.Add
        wsTemp.Name = "临时数据"
    Else
        wsTemp.Cells.Clear
    End If
    
    ' 筛选主表中对应负责人的项目
    wsMain.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=inputName
    wsMain.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy wsTemp.Range("A1")
    wsMain.AutoFilterMode = False ' 取消筛选
    
    ' 检查是否有匹配数据
    lastRow = wsTemp.Cells(wsTemp.Rows.Count, "A").End(xlUp).Row
    If lastRow = 1 Then
        MsgBox "未找到负责人「" & inputName & "」的项目数据！", vbInformation
        wsTemp.Delete ' 删除空临时表
        Exit Sub
    End If
    
    ' 遍历每个项目生成独立图表
    chartRow = 2 ' 从第2行开始（第1行是表头）
    Do While chartRow <= lastRow
        ' 定义当前项目的数据范围（假设进度在C列，可根据实际调整）
        Set projectRange = wsTemp.Range("B" & chartRow & ":C" & chartRow)
        
        ' 创建独立图表（嵌入工作表，可改为xlLocationAsNewSheet生成单独工作表图表）
        Dim chrt As ChartObject
        Set chrt = Sheet1.ChartObjects.Add(Left:=100, Top:=((chartRow - 2) * 200) + 50, Width:=300, Height:=200)
        
        ' 设置图表数据源和类型（这里用柱形图，可自行修改为折线图等）
        chrt.Chart.SetSourceData Source:=projectRange
        chrt.Chart.ChartType = xlColumnClustered
        
        ' 设置图表标题和标签
        chrt.Chart.ChartTitle.Text = wsTemp.Range("B" & chartRow).Value & " - 进度"
        chrt.Chart.Axes(xlCategory).CategoryNames = Array("进度")
        chrt.Chart.Axes(xlValue).MaximumScale = 100 ' 假设进度是百分比，设置最大值100
        
        chartRow = chartRow + 1
    Loop
    
    ' 清理临时表
    wsTemp.Delete
    MsgBox "已生成「" & inputName & "」的所有项目图表！", vbInformation
End Sub

三、关键优化点 #

• 动态数据范围：用CurrentRegion和表格对象，自动适配新增的项目数据，无需手动调整宏中的行号。
• 临时表隔离：用临时工作表存放筛选后的数据，避免修改原主表，处理完成后自动删除，保持工作簿整洁。
• 错误处理：加入空输入、无匹配数据的判断，避免宏运行报错。
• 图表布局自动化：通过代码设置图表位置、大小、标题，确保生成的图表整齐规范，无需手动调整。

四、使用说明 #

1. 按Alt+F11打开VBA编辑器，插入模块，粘贴上述代码。
2. 修改代码中对应的单元格位置（如输入姓名的单元格、主表列字段）以匹配你的实际数据结构。
3. 在指定单元格输入负责人姓名后，运行宏即可自动生成所有项目的独立图表。

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