求助：编写VBA宏删除秒数大于6的电能计量CSV数据行

我来帮你搞定这个问题——你的电能计量数据每7秒记录一次，现在需要保留每分钟内秒数≤6的记录，删掉多余行来适配你的平均值计算模板，下面是具体的VBA实现步骤和代码：

核心思路 #

• 遍历CSV数据的每一行，提取时间列的秒数部分
• 判断秒数是否大于6，符合条件则删除整行
• 从下往上遍历：避免删除行后后续行号错乱，导致漏处理

VBA代码实现 #

Sub FilterRecordsBySeconds()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim timeVal As Date
    Dim seconds As Integer
    
    ' 绑定当前激活的工作表（可根据实际修改为指定工作表，比如Sheets("Sheet1")）
    Set ws = ActiveSheet
    
    ' 获取数据区域的最后一行行号（假设时间在A列）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行向上遍历，跳过表头（假设第1行是表头）
    For i = lastRow To 2 Step -1
        ' 读取时间值，若单元格格式非标准时间，强制转换为日期格式
        On Error Resume Next
        timeVal = CDate(ws.Cells(i, "A").Value)
        On Error GoTo 0
        
        ' 提取秒数
        seconds = Second(timeVal)
        
        ' 删除秒数大于6的行
        If seconds > 6 Then
            ws.Rows(i).Delete
        End If
    Next i
    
    MsgBox "处理完成！已清理所有秒数大于6的记录。", vbInformation
End Sub

使用步骤 #

1. 打开你的CSV文件（用Excel打开后确保数据列正确识别）
2. 按下Alt + F11打开VBA编辑器
3. 右键点击左侧的工作簿名称 → 选择「插入」→「模块」
4. 将上面的代码粘贴到新建的模块中
5. 关键调整：如果时间不在A列，把代码里的"A"改成对应的列号（比如时间在B列就改成"B"）
6. 回到Excel界面，点击「开发工具」→「宏」→ 选择FilterRecordsBySeconds → 点击「执行」

注意事项 #

• 先备份原始数据：处理前务必复制一份CSV文件，防止操作失误丢失数据
• 若时间列无法识别为标准时间：可以先在Excel中选中时间列，设置单元格格式为「时间」（比如hh:mm:ss），再运行宏
• 若需要每个PAC每分钟仅保留一条记录：可以在代码中增加分组判断，比如记录每个PAC的最新分钟，重复则删除，需要的话可以告诉我，我再帮你扩展代码

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