将多个EXCEll表符合指定条件的数据复制粘贴到新Excell表格中

龙鹏-Excell

要求：将多个EXCELL数据表中符合指定条件的单元格区域自动复制粘贴到指定新Excell表格中：
       例：如将数据一及数据二表格中符合“贴片功率电感”与“贴片磁芯电感”条件所在行的B列到D列区域的数据复制到新EXCELL表格中，且自动排序

龙鹏-Excell

朱荣兴 发表于 2017-10-10 08:20
新建一个文件，保存到同一个文件夹内，在新建文件中运行代码。

你好，这段代码有几个疑问:
           1   .运行代码只能打开一个工作簿;
           2    运行代码后并不是复制B列到D列指定内容，而是复制所有列的数据，与提问的需求不符。

龙鹏-Excell

朱荣兴 发表于 2017-10-10 08:20
新建一个文件，保存到同一个文件夹内，在新建文件中运行代码。

数据一及数据二是两个单独的工作簿，如何实现提问的需求

龙鹏-Excell

龙鹏-Excell 发表于 2017-10-10 22:56
你好，这段代码有几个疑问:
           1   .运行代码只能打开一个工作簿;
           2    运行代码后 ...

第一点疑问纠错，第=点疑问保留

龙鹏-Excell

r = wb.Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row------------------这句代码意指Excell中B 列有数据的总行数么？？？是这样理解么。

龙鹏-Excell

朱荣兴 发表于 2017-10-11 07:50
调整一下数组的范围
Sub 条件汇总()
Application.ScreenUpdating = False

您好，能否再拓展这个问题：假设EXCELl文件数量过多，且是分别包含在同一个驱动器（根盘路径：\D）位置下不同文件夹的子文件夹中，在这种情况，如果要提高效率，有什么办法能一次性选中这个驱动器位置下所有文件，然后自动筛选后缀后为：.xlsx的EXCELL 文件并打开，然后继续进行之前提到的问题，要用创建文件FSO系统么，这个刚学，不太会！！！！！！！！！！！！求大师指教