如何删除电子表格中重复的connect与disconnect配对关联行

方法一：无需宏的手动操作（新手首选） #

用Excel自带的辅助列+筛选功能就能快速实现，全程不用写代码：

• 第一步：给原始数据加表头，四列分别命名为序号、设备ID、状态、时间，保留数据现有的排列顺序不要改动。
• 第二步：新增第一列作为分组辅助列，A2单元格输入1，A3单元格输入公式=IF(C3=C2,A2,A2+1)（此处假设状态列是C列，可根据实际列号调整），下拉填充所有行，该公式会给连续相同状态的行标记同一个组号。
• 第三步：新增第二列作为筛选辅助列，B2单元格输入公式：=IF(C2="connect",COUNTIF(A$2:A2,A2),COUNTIF(A2:A$100,A2))，把公式里的A$100改成你实际数据的最后一行行号。该公式作用是：connect组的行标记组内正序序号，disconnect组的行标记组内倒序序号。
• 第四步：筛选辅助列B中所有数值大于1的行，直接删除这些行即可，剩余行就是符合要求的connect、disconnect交替的正确数据。

方法二：VBA宏实现（适合批量高频处理） #

如果经常需要处理这类数据，可以用宏一键完成操作：

• 按Alt+F11打开VBA编辑器，右键点击左侧你的工作簿名称→选择「插入」→「模块」
• 把下面的代码粘贴到模块编辑区：

Sub 清理重复连接记录()
    Dim lastRow As Long, i As Long, groupStart As Long, groupVal As String
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row ' 状态列默认是C列，可自行修改
    Application.ScreenUpdating = False ' 关闭屏幕刷新加快运行速度
    
    i = 2
    Do While i <= lastRow
        groupVal = Cells(i, "C").Value
        groupStart = i
        ' 定位当前状态组的最后一行
        Do While i <= lastRow And Cells(i, "C").Value = groupVal
            i = i + 1
        Loop
        ' 按组规则处理
        If groupVal = "connect" Then
            ' connect组保留第一行，删除后续行
            If i - groupStart > 1 Then
                Rows(groupStart + 1 & ":" & i - 1).Delete
                lastRow = lastRow - (i - groupStart - 1)
                i = groupStart + 1
            End If
        Else ' disconnect组
            ' disconnect组保留最后一行，删除前面的行
            If i - groupStart > 1 Then
                Rows(groupStart & ":" & i - 2).Delete
                lastRow = lastRow - (i - groupStart - 1)
                i = groupStart
            End If
        End If
    Loop
    Application.ScreenUpdating = True
    MsgBox "清理完成！"
End Sub

• 按F5运行宏，等待弹窗提示完成即可。

注意事项 #

• 操作前务必备份原始数据，避免误删后无法恢复
• 如果数据中包含多个不同设备的记录，可以先按设备ID列排序，把相同设备的记录排在一起后再执行上述操作
• 代码默认状态列为C列，如果你的状态列位置不同，把代码里所有的"C"改成对应列号即可。

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