Excel表格转换需求：将带编号多行数据规整为单行结构化格式

核心思路 #

• 识别带编号的首行：通过判断行中是否存在数字编号（如1、2、3…）标记每组数据的起始行
• 提取首组法条内容：针对每个编号组，抓取其下方首行的法条内容（如ч. 2 ст. 286-1）
• 替换并保留首行：用提取到的法条内容覆盖首行Column6的原内容，删除该编号组下的其他关联行

具体实现步骤 #

方法1：公式辅助+手动批量处理 #

适合偶尔更新数据的场景：

1. 添加首行标记列（如Column7）：
   在数据起始行（假设为第2行）输入公式：=IF(ISNUMBER(A2), "首行", "关联行")，下拉填充至所有行（这里假设编号在ColumnA，可按需调整列位）
2. 提取首组法条：
   添加辅助列（如Column8），输入公式：=IF(G2="首行", INDEX(C:C, MATCH(TRUE, ISNUMBER(A3:A1000)=FALSE, 0)+ROW(A2)), "")，下拉填充。该公式会在首行对应的Column8中提取下方第一个关联行的法条内容（假设法条在ColumnC）
3. 替换Column6内容：
   在首行Column6输入公式：=IF(G2="首行", H2, "")，下拉后复制Column6内容并粘贴为值
4. 删除关联行：筛选标记列中为“关联行”的行，批量删除

方法2：VBA脚本自动处理 #

适合不定期频繁录入新数据的场景，可一键更新：

Sub 规整单行数据()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    i = 2 '假设数据从第2行开始
    Do While i <= lastRow
        '判断当前行是否为带编号的首行
        If IsNumeric(ws.Cells(i, "A").Value) Then
            '查找下方第一个非编号关联行
            j = i + 1
            Do While j <= lastRow And IsNumeric(ws.Cells(j, "A").Value) = False
                '提取首组法条替换Column6
                If ws.Cells(j, "C").Value <> "" Then '假设法条在ColumnC
                    ws.Cells(i, "F").Value = ws.Cells(j, "C").Value
                    Exit Do
                End If
                j = j + 1
            Loop
            '删除当前编号组下的关联行
            ws.Rows(i + 1 & ":" & j - 1).Delete
            lastRow = lastRow - (j - 1 - i)
        End If
        i = i + 1
    Loop
End Sub

• 使用方式：打开Excel按Alt+F11进入VBA编辑器，插入模块粘贴代码后运行即可
• 注意：运行前请备份文件，可根据实际列位置调整代码中的列标识（如"A"、"C"、"F"）

关键注意点 #

• 确保编号列的编号为纯数字格式，避免格式错误导致识别失败
• 若法条所在列不固定，需同步调整公式或代码中的列索引
• 新数据录入后，可重复执行对应方法完成数据规整

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