如何在Excel中高效将Level列单元格拆分为含low/medium/high的三行

下面给你三种高效方案，不用手动逐行操作：

方案一：Power Query（无代码可视化操作） #

适合不熟悉编程的用户，操作全程靠界面点击：

• 选中原始数据区域，点击「数据」选项卡 → 「从表格/区域」，勾选「我的表格有标题」导入Power Query编辑器
• 点击「添加列」选项卡 → 「自定义列」，输入公式 {"low", "medium", "high"}，点击确定，此时每行会生成一个包含三个等级的列表
• 选中刚生成的「自定义列」，点击「转换」选项卡 → 「展开到新行」，这一步会把列表拆成三行，其他列自动复制原行内容
• 删除原来的Level列，把「自定义列」重命名为「Level」
• 点击「关闭并上载」，就能得到目标表格。如果需要单元格合并效果，选中对应列的每三行，批量点击「合并后居中」即可。

方案二：VBA宏（一键自动化） #

适合需要重复操作的场景，一次设置终身可用：

• 按下 Alt+F11 打开VBA编辑器，右键当前工作簿 → 插入 → 模块，粘贴以下代码：

Sub GenerateLevelRows()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Set ws = ActiveSheet
    ' 获取原始数据最后一行（假设第一列为数据列，可根据实际修改列标）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从下往上遍历，避免插入行打乱行号
    For i = lastRow To 2 Step -1
        ' 插入两行
        ws.Rows(i + 1 & ":" & i + 2).Insert Shift:=xlDown
        ' 复制当前行除Level列外的内容到新行
        ws.Rows(i).Copy ws.Rows(i + 1 & ":" & i + 2)
        ' 填写Level列的三个等级（把"E"替换成你的Level列实际列标）
        ws.Cells(i, "E").Value = "low"
        ws.Cells(i + 1, "E").Value = "medium"
        ws.Cells(i + 2, "E").Value = "high"
    Next i
    
    ' 批量合并其他列的对应行（把"A:D"替换成需要合并的列范围，排除Level列）
    Dim mergeCols As Range
    Set mergeCols = ws.Range("A:D")
    For i = 2 To lastRow * 3 Step 3
        mergeCols.Rows(i & ":" & i + 2).Merge
    Next i
End Sub

• 修改代码中的列标（比如Level列是F列就改成"F"，需要合并的列是B到D就改成"B:D"），按F5运行宏，一键完成所有操作。

方案三：公式辅助+批量操作（临时应急用） #

适合偶尔操作一次，不想碰宏或Power Query的情况：

1. 添加辅助列：在原始数据右侧插入一列（比如列F），在F2输入公式 =INT((ROW()-2)/3)+2，下拉填充到底，这列会生成对应原始行号的重复序列
2. 构建新数据区域：复制原始表头，在下方粘贴3倍原始行数的表头（比如原始有5行数据，就粘贴15行表头）
3. 提取重复数据：在新数据区域的第一列（比如A10）输入 =INDEX(A:A,F10)，下拉填充，其他列同理，这样原始每行内容会被复制三次
4. 填充Level等级：在新数据的Level列输入 =CHOOSE(MOD(ROW()-10,3)+1,"low","medium","high")（ROW()-10 对应新数据起始行，根据实际调整），下拉填充
5. 批量合并：选中第一组三行的目标列，点击「开始」→「合并后居中」，然后用格式刷刷完所有组即可。

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