使用excel vbs做反向筛选功能

shineses · 发表于 2020-3-14 12:05

本帖最后由 shineses 于 2020-3-14 14:33 编辑

最近需要分析一份excel文件，但是人工看很难检查，以前写过简单的excel vbs，但是我只有正确的想法却不知道正确的函数，所以求助excel 大神帮忙指点一番，拜谢。
示例如下：我首先手动设置E列的filter为0xBCBCBCBC，然后我需要vbs脚本能自动获取A列的filter之后的所有值（示例中为1195273614，和1195286908），然后清除所有filter之后设置A列的filter为之前获得的值（示例中为1195273614，和1195286908）。备注这些列的行数相同，但是总行数可能很长不固定。再次拜谢，之前截图和附件有点问题已更正，抱歉。
图片.png

预期的执行完VBS之后的excel显示为如下示例的
图片.png

taller · 发表于 2020-3-14 12:29

示例文件呢

shineses · 发表于 2020-3-14 13:26

taller 发表于 2020-3-14 12:29
示例文件呢

已经上传示例文件，第一次在这里发帖，准备不全请谅解，谢谢。

taller · 发表于 2020-3-14 13:54

shineses 发表于 2020-3-14 13:26
已经上传示例文件，第一次在这里发帖，准备不全请谅解，谢谢。

请检查一下你的截图，E19的值不是“0xBCBCBCBC”，怎么被筛选出来的呢

shineses · 发表于 2020-3-14 14:09

taller 发表于 2020-3-14 13:54
请检查一下你的截图，E19的值不是“0xBCBCBCBC”，怎么被筛选出来的呢

确实，这个地方我数据截取错误了，现在截图和附件我都已经更正过了。我的原始数据中这种令人眼花缭乱的标记太多了，实在花眼，所以我只能通过先格式化才好检查数据。

taller · 发表于 2020-3-14 14:11

参考代码

shineses · 发表于 2020-3-14 14:23

taller 发表于 2020-3-14 14:11
参考代码

执行结果如下，多了一列显示的应该是符合的行数，但是如何继续设置一下A列的Filter为这些项的并集呢？
图片.png

taller · 发表于 2020-3-14 14:30

shineses 发表于 2020-3-14 14:23
执行结果如下，多了一列显示的应该是符合的行数，但是如何继续设置一下A列的Filter为这些项的并集呢？

...

不明白你要实现什么效果

taller · 发表于 2020-3-14 14:34

备注这些列的行数相同 - 这是什么意思

shineses · 发表于 2020-3-14 14:34

taller 发表于 2020-3-14 14:30
不明白你要实现什么效果

之前我的表述不清楚，我刚刚新增了预期结果的截图在一楼，这次表述应该比较清楚了。多谢帮忙看看

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

[求助] 使用excel vbs做反向筛选功能