[原创]跨文件夹查询合并，汇总统计：新版升级 2006-09-21

sbihc

非常不错

llgo

版主，可以吗？将查询的结果复制到第三张表去？

比如说符合条件1的（N条），复制到表3的第1至N行，再找符合条件2的（M行），复制到表3的第N行至N＋M行。

lforl

以下是引用Samsea在2004-11-5 15:35:00的发言： 正在完善新的方案已经做出，可以使用 and, or 连接的查询，而且速度又几何级别的提高。大家看看还有什么建议，尽快提出。以便统一考虑。因为在excel 上很难做出真正的通用过程，如果面面俱到就要很多提问，就不能做到一个按钮解决问题。所以只能尽量满足大家的要求。

Samsea新的方案做得怎么样了？期待中哦~

yxp

那个按纽是怎么做的?

ada1

谢谢

网事如峰

For C = 1 To D CA(C) = Cells(2, C) If CA(C) = "" Then FT(C) = True FTT = FTT * FT(F) 请问这两句是什么意思？ Next

For C = 1 To D MR(C) = Cells(65536, C).End(xlUp).Row Next MROW = Application.WorksheetFunction.Max([MR]) If MROW > 4 Then Range(Rows(5), Rows(MROW)).Delete 这三句又是什么功能的 K = 5 TT = 1

Samsea

For C = 1 To D CA(C) = Cells(2, C) If CA(C) = "" Then FT(C) = True '如果某列查询项为空时，记下这列忽略查询。 FTT = FTT * FT(F) 'FTT 如果为真时，即测到没有查询项。 Next

For C = 1 To D MR(C) = Cells(65536, C).End(xlUp).Row ' 查某列最大行数 Next MROW = Application.WorksheetFunction.Max([MR]) '取所有查询列中最大行数 If MROW > 4 Then Range(Rows(5), Rows(MROW)).Delete '删除旧数据，但第1-4行不删。

llgo

高，实在高，可我却不知怎么样去运用，因我的目的不只是查询，我是要将找到的结果汇到一个表中保存。楼主怎么不帮帮我呢？

小奔

期待楼主的改进。。。顶！！

Samsea

以下是引用llgo在2004-11-10 14:52:00的发言：

高，实在高，可我却不知怎么样去运用，因我的目的不只是查询，我是要将找到的结果汇到一个表中保存。楼主怎么不帮帮我呢？

最简单办法把结果拷贝下来贴到一个新工作簿上，保存。新方案可以考虑你的要求。