主题：[求助]不知道去哪里问，只有请教大家了……

兄弟，既然有规律，很好办，增加一个整数型临时列，用下面的代码一次筛选出来：

For i As Integer = 0 To Tables("表A").Rows.count -1
    If (i+1) Mod 4 = 0 Then
            Tables("表A").rows(i)("临时列") = 1
    Else
        Tables("表A").rows(i)("临时列") =  0
    End If
Next
Tables("表A").Filter = "临时列 = 1"