以下数组公式，数据量较大，运算太慢，请教如何转换宏或者vba

wxlccc · 发表于 2019-10-5 17:04

本帖最后由 wxlccc 于 2019-10-6 13:41 编辑

以下数组公式，数据量较大，运算太慢，请教如何转换宏或者vba
详细一点多谢！！！

=IFERROR(INDEX(罚款汇总明细!$B$1:$B$4616,SMALL(IF(罚款汇总明细!$F$3:$F$4616=$F$2,ROW(罚款汇总明细!$A$3:$F$4616),5001),ROW(B1))),)
之前用的类似这种数组公式可以自动实现，运算太慢，需要转换VBA

需求：指定从工作表【罚款汇总】的A列获取符合条件（单条件就行）的所有行，复制到对应的工作表中，详细说明已经卸载文件中
帮忙写个VBA代码，最好能自动执行（罚款汇总工作表里没多一项或者少一项，都能从对应的工作表里增加或者删除）

liulang0808 · 发表于 2019-10-5 22:18

欢迎新朋友
建议楼主上传附件，结合附件描述具体需求
不是谁都了解公式的

朱荣兴 · 发表于 2019-10-5 23:39

提示: 作者被禁止或删除内容自动屏蔽

wxlccc · 发表于 2019-10-6 13:38

liulang0808 发表于 2019-10-5 22:18
欢迎新朋友
建议楼主上传附件，结合附件描述具体需求
不是谁都了解公式的

附件已上传，老大帮忙做个自动VBA

wxlccc · 发表于 2019-10-6 13:39

朱荣兴发表于 2019-10-5 23:39
上传Excel附件，具体说明需求，并模拟结果，

附件已上传，请帮忙

liulang0808 · 发表于 2019-10-6 13:44

wxlccc 发表于 2019-10-6 13:38
附件已上传，老大帮忙做个自动VBA

http://club.excelhome.net/thread-1385473-1-1.html
这个字典的帖子楼主可以参考下的

liulang0808 · 发表于 2019-10-6 13:58

代码见截图，

wxlccc · 发表于 2019-10-6 14:00

五、根据A列姓名，将数据拆分到各张表内，如果表不存在，就创建新表

这个类似，但是我看了一下，多次运行会多次叠加，且原始数据里如果有新增项或者减少项不知道能否自动

不想用按钮式的，需要改进一下，多次运行不会重复网上加，对VBA代码不是很懂，老大能不能针对我的附件给弄一个

wxlccc · 发表于 2019-10-6 14:11

liulang0808 发表于 2019-10-6 13:58
代码见截图，

复制之前能否检查子类工作表内是否有重复，有的话覆盖或者情况再复制呢，怎么改

多次运行会多次叠加复制

wxlccc · 发表于 2019-10-6 14:12

liulang0808 发表于 2019-10-6 13:58
代码见截图，

如果没有工作表，不需要新建，需删掉哪一行

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

[求助] 以下数组公式，数据量较大，运算太慢，请教如何转换宏或者vba

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-10-5 23:39 来自手机 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报