主题：筛选问题 挺复杂的···

没注意到他还有两个条件，这个不是问题，增加两组条件就ok了

..........添加临时列
for i as integer = 0 to tables("帐簿").count -1
    dim dr as datarow
    dr = DataTables("帐簿").Find("[日期] = #" & tables("帐簿").rows(i)("日期") & "# and [凭证号] = '" & tables("帐簿").rows(i)("凭证号") & "'and [借方金额] = " & tables("帐簿").rows(i)("借方金额") & "and [贷方金额] = " & tables("帐簿").rows(i)("贷方金额"))
    if tables("帐簿")(i,"_Identify") = dr("_Identify")
        dr("Note") = "a"
    end if
next
Tables("帐簿").Filter = "[Note] = 'a'"
.........删除临时列

借用楼主的方式，这样少写几个字符：

for i as integer = 0 to tables("帐簿").count -1
    dim dr as datarow
    dr = DataTables("帐簿").Find("[日期] = #" & currenttable(i,"日期") & "# and [凭证号] = '" & currenttable(i,"凭证号") & "'and [借方金额] = " & currenttable(i,"借方金额") & "and [贷方金额] = " & currenttable(i,"贷方金额"))
    if tables("帐簿")(i,"_Identify") = dr("_Identify")
        dr("Note") = "a"
    end if
next
Tables("帐簿").Filter = "[Note] = 'a'"

不理解凭证号为“收-122”为什么要全隐藏掉？

辅助列为逻辑型。效率应该不错。

24楼的疑问没排除。

Dim L As List(Of String()) = DataTables("帐簿").GetUniqueValues("","日期","凭证号")
For i As Integer = 0 To L.Count -1
    If L(i)(0) = "" Then
        Continue for
    End If
    Dim drs As List(Of DataRow) = DataTables("帐簿").Select("[日期] = #" & L(i)(0) & "# And [凭证号] = '" & L(i)(1) & "'", "_Identify")
    For n As integer = 0 To drs.Count - 1
        If n > 0
            drs(n)("辅助列") = (drs(n)("借方金额") = drs(n-1)("借方金额") AndAlso drs(n)("贷方金额") = drs(n-1)("借方金额")) = False
        End If
    Next
Next

两位版主的代码都不理想，在6楼附件中少量数据测试都还好（只是C版主的没有排除收-122号的凭证），但在7万多行数据中测试，几乎都要死机了。 估计是Find的问题（即使排除“现金”也是如此）
可能条件说的不完整，重新说明条件：
1、科目名称 有几十个不同科目，要筛选出含“银行” 和 “现金” 的行；
2、相同 [日期] 和相同 [凭证号]  这是必要条件之一（一般会等于或超过两行 ）；
3、满足1、2后，把 [借方金额] = [贷方金额] 【一定是有两行同日期和同凭证号行里，借、贷金额都相等】筛选出去，    也就是给这两行加注标记到 [辅助列]
4、最后筛选出  [辅助列] is null 的行来···

要想速度快，辅助列不要用临时列，随着数据的录入，通过前面几个列的变化，用事件代码自动标记，最后只是筛选，就快很多倍了！

如果用Select速度都不行的话，Find估计就更不行了。
换个思路看看，先加载包含银行和现金的数据是不是会少很多呢？

大胆的问一句，借方金额会不会存在和贷方金额不相等的情况？

设找代码1002007   和借方金额>0  条件不就是了