如何提取Excel每个分组的前3行数据，或删除分组内其余行？

数据样例参考：

方案1：函数法（无需代码，适合临时操作） #

假设你的分组依据在A列，数据从第2行开始（第1行是表头）：

• 新增辅助列（比如D列），D2单元格输入公式：=COUNTIF(A$2:A2,A2)，下拉填充到所有数据行
• 该公式会自动给每个分组内的行按顺序标注序号：1、2、3、4...

提取到新工作表操作： #

• 选中整个数据区域，点击「数据」选项卡→「筛选」
• 点击辅助列的筛选箭头，只勾选1、2、3三个值，点击确定
• 复制筛选出来的所有可见行，直接粘贴到新工作表即可

删除多余行操作： #

• 同上完成筛选后，选中辅助列数值大于3的所有行，右键选择删除行，再取消筛选即可

方案2：VBA宏法（适合频繁处理同场景需求） #

按Alt+F11打开VBA编辑器，插入新模块，按需粘贴以下代码运行即可：

提取每个分组前3行到新表代码 #

Sub 提取分组前3行()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long, groupCol As Long, count As Long
    Dim currentGroup As Variant
    ' 此处修改为你的分组所在列号，A列=1，B列=2，以此类推
    groupCol = 1
    Set wsSource = ActiveSheet
    Set wsTarget = ThisWorkbook.Worksheets.Add(after:=wsSource)
    wsSource.Rows(1).Copy wsTarget.Rows(1) ' 复制表头
    lastRow = wsSource.Cells(wsSource.Rows.count, groupCol).End(xlUp).Row
    currentGroup = wsSource.Cells(2, groupCol).Value
    count = 1
    For i = 2 To lastRow
        If wsSource.Cells(i, groupCol).Value = currentGroup Then
            count = count + 1
        Else
            currentGroup = wsSource.Cells(i, groupCol).Value
            count = 1
        End If
        If count <= 3 Then
            wsSource.Rows(i).Copy wsTarget.Cells(wsTarget.Rows.count, 1).End(xlUp).Offset(1, 0)
        End If
    Next i
    MsgBox "提取完成"
End Sub

直接删除原表分组多余行代码 #

Sub 删除分组多余行()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, groupCol As Long, count As Long
    Dim currentGroup As Variant
    ' 此处修改为你的分组所在列号，A列=1，B列=2，以此类推
    groupCol = 1
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.count, groupCol).End(xlUp).Row
    currentGroup = ws.Cells(lastRow, groupCol).Value
    count = 1
    ' 从下往上删除避免行号错乱
    For i = lastRow - 1 To 2 Step -1
        If ws.Cells(i, groupCol).Value = currentGroup Then
            count = count + 1
        Else
            currentGroup = ws.Cells(i, groupCol).Value
            count = 1
        End If
        If count > 3 Then
            ws.Rows(i).Delete
        End If
    Next i
    MsgBox "清理完成"
End Sub

注意事项 #

• 操作前建议先备份原数据，避免误操作丢失内容
• 如果分组列不是A列，修改对应公式引用列或代码内的groupCol参数即可

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