用 vba Excel 过滤

Question

Hello everybody i would really appreciate your help with the following problem:

I have an Excel file that contains an hardware acquisition, with different sampling rate depending on the value (eg. some value acquiried at 100ms and others at 10ms in that case). So i have the first column with Time value (every cell is 10ms) and the following columns with the other acquiried values. Every column that corresponds to the 100ms acquisition frequency shows 10 blank cell after filled cell (while the 10ms ones are full). Now my question is: What's the best whay to filter all the values and create a new table with only value took every 1s?
Thanks. Here's a screenshot (simplified)

Image of the file

Answer 1

I would just use a couple of loops like this

Option Explicit

Sub CopySeconds()
    Dim FirstRow, LastRow, inRow, inCol, outRow, outCol, colShift As Variant
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    FirstRow = 4
    outRow = FirstRow
    colShift = 10
    For inRow = FirstRow To LastRow
    If Not IsEmpty(Cells(inRow, 1)) And Int(Cells(inRow, 1)) = Cells(inRow, 1) Then
        For inCol = 1 To 4
        outCol = inCol + colShift
        Cells(outRow, outCol) = Cells(inRow, inCol)
        Next inCol
        outRow = outRow + 1
    End If
    Next inRow

End Sub