求助：使用VBA处理Excel中不同采样率的硬件采集数据

我懂你现在的痛点——Excel里存着混合采样率的硬件采集数据，10ms的列数据连续，100ms的列每10行才有一个有效数据，后面跟着9个空白，手动处理太麻烦对吧？下面给你两个实用的VBA方案，你可以根据自己的需求选：

方案1：填充空白单元格，将100ms数据补全到10ms粒度 #

这个方案会把每个100ms采样的数值向下填充9行，让整个列的数据和10ms采样率的列保持一致的密度，方便后续做数据分析或可视化。

VBA代码实现 #

打开你的Excel文件，按Alt+F11打开VBA编辑器，插入一个新模块（右键工程窗口里的工作簿名称 → 插入 → 模块），然后粘贴下面的代码：

Sub Fill100msData()
    Dim ws As Worksheet
    Dim lastCol As Long, lastRow As Long
    Dim col As Long, row As Long
    
    ' 设置要处理的工作表，可根据实际修改为Sheet1之类的名称
    Set ws = ActiveSheet
    
    ' 关闭屏幕更新，提升运行速度
    Application.ScreenUpdating = False
    
    ' 获取最后一列和最后一行的位置
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 遍历所有数据列（从第2列开始，因为第1列是时间）
    For col = 2 To lastCol
        ' 检查当前列是否是100ms采样率（判断是否存在连续9个空白单元格的规律）
        Dim blankCount As Integer
        blankCount = 0
        For row = 2 To 21
            If ws.Cells(row, col).Value = "" Then
                blankCount = blankCount + 1
            Else
                If blankCount = 9 Then
                    ' 符合100ms采样率的规律，开始填充空白
                    ws.Range(ws.Cells(2, col), ws.Cells(lastRow, col)).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
                    ' 把公式转为数值，避免后续修改影响
                    ws.Columns(col).Value = ws.Columns(col).Value
                    Exit For
                End If
                blankCount = 0
            End If
        Next row
    Next col
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "数据填充完成！"
End Sub

代码说明 #

• 自动识别100ms采样率的列：通过检查列中是否存在“1个有效数据+9个空白”的规律来判断
• 用公式向下填充空白单元格，再转为数值，确保数据稳定
• 关闭屏幕更新让大文件处理更快

方案2：筛选有效数据行，统一为100ms采样率 #

如果你不需要补全数据，只想保留每个100ms周期的第一行（也就是有100ms采样数据的行），同时保留对应行的10ms数据，这个方案会帮你删除多余的空白行。

VBA代码实现 #

同样在VBA编辑器的模块里粘贴下面的代码：

Sub FilterTo100msRate()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim keepRows As Range
    
    Set ws = ActiveSheet
    Application.ScreenUpdating = False
    
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Set keepRows = ws.Rows(1) ' 保留表头行
    
    ' 遍历数据行，每10行保留第一行（或者判断任意一个100ms列是否非空）
    ' 这里假设第2列是100ms采样率的列，可根据实际修改
    For i = 2 To lastRow Step 10
        Set keepRows = Union(keepRows, ws.Rows(i))
        ' 如果要判断列是否非空（避免周期不精准的情况），可以替换上面的行：
        ' If ws.Cells(i, 2).Value <> "" Then Set keepRows = Union(keepRows, ws.Rows(i))
    Next i
    
    ' 隐藏所有行，然后只显示需要保留的行
    ws.Rows.Hidden = True
    keepRows.Hidden = False
    
    ' 可选：如果要删除多余行（注意：删除后无法恢复，建议先备份）
    ' ws.UsedRange.SpecialCells(xlCellTypeVisible).Copy
    ' ws.Cells.Clear
    ' ws.Range("A1").PasteSpecial xlPasteAll
    ' Application.CutCopyMode = False
    
    Application.ScreenUpdating = True
    MsgBox "数据筛选完成！"
End Sub

代码说明 #

• 默认每10行保留一行（因为100ms是10个10ms周期），也可以改成通过判断100ms列是否非空来保留行，更精准
• 代码默认是隐藏多余行，如果你确定要删除，可以取消注释最后几行的删除逻辑（一定要先备份原始文件）

注意事项 #

1. 运行代码前务必备份原始文件，避免操作失误导致数据丢失
2. 如果你的100ms采样率列是固定的，可以修改代码里的列范围，不用遍历所有列，提升效率
3. 处理超大文件时，建议先关闭其他Excel文件，避免内存不足

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