vba提取条件数据到新表 Excel里怎么批量提取某列符合一定条件的整行数据？

Excel里怎么批量提取某列符合一定条件的整行数据？让我给你看一个VBA的例子，sub test（）dim XLS Folder As String此工作簿。路径& “textxls”Dim x

Excel里怎么批量提取某列符合一定条件的整行数据？

让我给你看一个VBA的例子，

sub test（）

dim XLS Folder As String此工作簿。路径

& “textxls”

Dim xlsFiles（）作为字符串

Dim fso，f，fc，s

设置fso=CreateObject（）脚本.FileSystemObject“）

集f=fso.GetFolder文件夹（xlsuufolder）

f.files

]s=“”

对于FC中的每个F1

如果不是strcomp（右）（F1。名称，4），”。Xls“，1）那么

如果s=“”那么

F1。名字

]其他

]F1。Name

end if

end if

next

xlsfiles=split（s，“|”）

dim I as long

dim n as long

请问有没有办法从excel中用VBA编程提取数据按条件生成另一张表？

当然，这个想法可以用VBA实现，见附表：对应代码如下

子按钮1点击（）页（“月报”）。选择“以显示汇总表n=范围（”A4“）内饰颜色索引每张表（“每日报告”）。如果一个内饰颜色索引=N then s=s a.valuenextrange（“B4”）=s“显示摘要结果End Sub

提示：使用VBA时，应“启用宏”