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

怎样把没有颜色的行筛选出来：

此主题相关图片如下：未命名++.jpg

条件这样： 日期相同 凭证号相同 借方金额＝贷方金额 的行全部筛选掉（注：已有大量的行被筛选掉了，这是之前筛选后的结果，需要再次筛选的）

看三楼，条件与颜色无关。

表是第一次筛选后的结果, 要再次筛选, 条件是: 见1楼图 和 3楼的条件.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:筛选.table

另外,这是选择了部分行,还有很多借贷金额不相等的行没有放进来,那些不需要选掉, 就表中像要保留的行一样.

给点具体的提示吧，俺没想通怎么向临时列标记东西···

条件在3楼：
【

条件这样： 日期相同 凭证号相同 借方金额＝贷方金额 的行全部筛选掉（注：已有大量的行被筛选掉了，这是之前筛选后的结果，需要再次筛选的） 】  也就是1楼标记了颜色的行都不要显示出来。  结果如下：

此主题相关图片如下：未命名.jpg

结果在12楼。

我是这样做的，基本可以了： 帮看看有没有不妥之处
for i as integer = 1 to currenttable.count -1
    if currenttable(i,"日期") = currenttable(i-1,"日期") and _
        currenttable(i,"凭证号") = currenttable(i-1,"凭证号")  and _
        currenttable(i,"借方金额") = currenttable(i-1,"贷方金额") or _
        currenttable(i,"日期") = currenttable(i-1,"日期") and _
        currenttable(i,"凭证号") = currenttable(i-1,"凭证号")  and _
        currenttable(i,"贷方金额") = currenttable(i-1,"借方金额")           
           
            currenttable(i,"临时列") = "将被筛选掉")         
            currenttable(i-1,"临时列") = "将被筛选掉")

    end if
next
Tables("帐簿").Filter = "[临时列] is null "          ‘谢谢程版提示···
还有更好的办法吗？

那要来几次遍历了，可就麻烦了。。。 要用select 归集等···

幸好，会计分录有规则，目前感觉能将其排序成1楼的样式，否则真的难了····（碰到时再请教）

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