如何把多个表中符合条件的行自动放到另一个工作表上？

sunfaquir

请教高人：如何把多个表中符合条件的行自动放到另一个工作表上？
例如下面三个表：
     
将上面三个表中同时符合“闭卷”和“东考场”条件的行复制到另一个表中，见下表：

详见附件。请尽量不使用宏。
感谢各位的帮助！

titi012

做一个给你参考，...

蓝桥玄霜

请见代码。

sunfaquir

非常感谢两位老师的帮助！正在学习中...

sunfaquir

蓝桥玄霜 发表于 2018-1-25 09:56
请见代码。

请问老师：能否将原表中单元格的格式（公式、字体、颜色、批注等）也一起复制到新表中对应的单元格？
因为代码试过后发现，只是原表单元格的部分内容复制到新表了，类似于Excel中的选择性粘贴中的数值粘贴操作，而且还把新表中对应单元格的公式冲掉了。
希望新表中的单元格保留原表单元格中的公式等，即：要么把原表单元格的内容（含格式等）全部复制到新表；要么把新表准备成原表的空表（单元格已含公式等），仅仅把原表单元格中的数值内容复制到新表而不冲掉新表单元格的格式。
谢谢！

sunfaquir

用VBA已基本解决问题了。但存在如下新的问题：
1、做好的表格是给别人用的，别人有可能用的是WPS表格个人版，默认不含VBA功能，需另寻VBA插件安装。
2.即使WPS表格安装VBA插件后，一些功能好像并不支持，例如激活工作表时并不能自动执行宏——调试时，自动意外退出WPS表格；在Offic Excel调试通过的情况下，在WPS表格实际用时，表现为没有执行宏，没反应。