使用VBA将Excel项目阶段原始数据扁平化为可查询表格的技术问询

嘿，我明白你想要把那种横向的项目阶段汇总表转成每行对应单个阶段的扁平化格式，还要加上「阶段」标记对吧？刚好我之前做过类似的需求，给你一套靠谱的VBA方案，还能处理部分项目缺失阶段的情况。

先明确数据结构（方便你对应自己的表） #

假设你的原始数据在Sheet1，结构大概是这样：

目标扁平化表格会输出到Sheet2，结构是：

完整VBA代码 #

打开Excel按Alt+F11打开VBA编辑器，插入一个模块，粘贴下面的代码：

Sub FlattenEngagementStages()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, targetRow As Long
    Dim i As Integer, j As Integer
    Dim stageNames As Variant
    
    ' 设置源表和目标表，根据你的实际表名修改
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 定义阶段名称，对应源表的阶段列顺序
    stageNames = Array("A", "B", "C")
    
    ' 清空目标表已有数据（保留表头）
    wsTarget.Range("A2:C" & wsTarget.Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    
    ' 写入目标表表头
    wsTarget.Range("A1:C1") = Array("项目名称", "阶段", "状态")
    
    ' 获取源表最后一行数据
    lastRow = wsSource.Cells(Rows.Count, 1).End(xlUp).Row
    targetRow = 2 ' 目标表从第2行开始写入数据
    
    ' 遍历源表每一行项目数据
    For i = 2 To lastRow
        ' 遍历A/B/C三个阶段列（源表B、C、D列，对应索引1、2、3）
        For j = 0 To 2
            ' 判断当前阶段状态是否非空，跳过空值
            If wsSource.Cells(i, j + 2).Value <> "" Then
                ' 写入项目名称
                wsTarget.Cells(targetRow, 1).Value = wsSource.Cells(i, 1).Value
                ' 写入阶段标记
                wsTarget.Cells(targetRow, 2).Value = stageNames(j)
                ' 写入阶段状态
                wsTarget.Cells(targetRow, 3).Value = wsSource.Cells(i, j + 2).Value
                targetRow = targetRow + 1 ' 目标行下移
            End If
        Next j
    Next i
    
    ' 自动调整目标表列宽
    wsTarget.Columns("A:C").AutoFit
    
    MsgBox "数据扁平化完成！共处理" & targetRow - 2 & "条有效阶段记录。"
End Sub

代码关键点说明 #

• 灵活适配表名：你可以修改wsSource和wsTarget的表名，对应自己的原始表和目标表
• 跳过空阶段：通过If wsSource.Cells(i, j + 2).Value <> ""判断，自动忽略项目缺失的阶段，不会生成空行
• 自动表头与列宽：代码会自动写入目标表的表头，完成后还会调整列宽，不用手动整理
• 可扩展阶段：如果以后要加D/E阶段，只需要修改stageNames = Array("A", "B", "C", "D")，同时调整循环范围即可

如果你原来的代码有问题，可以对照排查 #

常见的坑比如：

• 没有处理空阶段，导致生成空的状态行
• 循环逻辑错误，比如阶段标记和状态列对应不上
• 没有正确计算源表的最后一行，导致漏处理数据

如果运行代码时有报错，或者你的数据结构和假设的不一样，可以告诉我具体情况，我再帮你调整！

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