多个工作簿条件筛选后汇总，请高手帮忙写个VBA，送花花

一柱 · 发表于 2023-3-4 13:00

详见附件，将明细表数据条件筛选后贴到汇总表。
筛选条件：将G列期号为S202300108和S202300109，且J列日期为20220225的行筛选出来（表头不需要），贴到另一个工作簿（不要清除已有数据，是不断往下增加）

bqwd36 · 发表于 2023-3-4 15:12

本帖最后由 bqwd36 于 2023-3-4 17:37 编辑

凑合做了一个，没用数组有点慢，好像有点不对

更新了一下，可以点击按钮选择要导入的文件然后批量导入

gwjkkkkk · 发表于 2023-3-4 15:16

请解压后使用。。。

罗达 · 发表于 2023-3-4 16:01

本帖最后由罗达于 2023-3-4 16:05 编辑

对表格有一点小调整，速度绝对快，请试用

产品汇总.rar (42.41 KB, 下载次数: 26)

需要改条件直接在VBE里面改。最佳是做一个窗体用来输入筛选查询的条件

一柱 · 发表于 2023-3-4 18:05

gwjkkkkk 发表于 2023-3-4 15:16
请解压后使用。。。

这个粘贴了所有数据，没做筛选好像。

一柱 · 发表于 2023-3-4 18:07

罗达发表于 2023-3-4 16:01
对表格有一点小调整，速度绝对快，请试用

这个是用sql语句，需要安装什么对吧，我wps好像用不了，还是非常感谢。
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "/" & arr(k, 1)

一柱 · 发表于 2023-3-4 18:11

bqwd36 发表于 2023-3-4 15:12
凑合做了一个，没用数组有点慢，好像有点不对

更新了一下，可以点击按钮选择要导入的文件然后批量导入

第二次点击导入会把前面的数据清除，请教如果想要一直在已有数据下面增加，在哪改一下

gwjkkkkk · 发表于 2023-3-4 18:25

一柱发表于 2023-3-4 18:05
这个粘贴了所有数据，没做筛选好像。

请参考。。。

bqwd36 · 发表于 2023-3-4 20:50

本帖最后由 bqwd36 于 2023-3-4 21:48 编辑

一柱发表于 2023-3-4 18:11
第二次点击导入会把前面的数据清除，请教如果想要一直在已有数据下面增加，在哪改一下

把第二个过程，daoru1里面的开头那句wb.Sheets(1).Cells.Delete删了就行了

等爱的誓言 · 发表于 2023-3-4 22:05

我来学习一下，我恰好有需求

		自动登录	找回密码
密码			免费注册

[求助] 多个工作簿条件筛选后汇总，请高手帮忙写个VBA，送花花

评分

评分

评分