VBA提数据统计,速度太慢求改进代码!!

3190496160 · 发表于 2022-11-27 09:14

TEST.rar (227.66 KB, 下载次数: 35)

cmo9020 · 发表于 2022-11-27 15:18

3190496160 发表于 2022-11-27 09:14

谢谢春风导师大力帮忙~己试用可行,谢谢您

cmo9020 · 发表于 2022-12-1 17:53

本帖最后由 cmo9020 于 2022-12-1 22:18 编辑

3190496160 发表于 2022-11-27 09:14

自己眼瞎没看到empty....己解决

cmo9020 · 发表于 2022-12-14 18:29

3190496160 发表于 2022-11-27 09:14

kkery.rar (56.88 KB, 下载次数: 5)

导师请问在吗？
有请你帮我做数据统计
目前遇到一个状况
sheet1数据删除剩6笔以下数据时
会显示出错...
我修改了很多地方,,都无法修改
请问要如何修改?麻烦你一下,谢谢

3190496160 · 发表于 2022-12-14 21:14

这段代码似乎就是我写的，但是
sheet1数据删除剩6笔以下数据
这句话如何理解呢？？？？

cmo9020 · 发表于 2022-12-15 07:38

3190496160 发表于 2022-12-14 21:14
这段代码似乎就是我写的，但是
sheet1数据删除剩6笔以下数据
这句话如何理解呢？？？？

导师您好
sheet1数据留5列做运行，会产生错误

cmo9020 · 发表于 2022-12-17 14:02

3190496160 发表于 2022-12-14 21:14
这段代码似乎就是我写的，但是
sheet1数据删除剩6笔以下数据
这句话如何理解呢？？？？

kkery.rar (50.66 KB, 下载次数: 7)

导师请问在吗？像这样子,数据剩3笔执行宏就出错
能麻烦请您在帮忙修改一下吗?谢谢您

3190496160 · 发表于 2022-12-19 10:57

cmo9020 发表于 2022-12-17 14:02
导师请问在吗？像这样子,数据剩3笔执行宏就出错
能麻烦请您在帮忙修改一下吗?谢谢您

把这个变量的值扩大一点吧
u = UBound(ar) + 4

cmo9020 · 发表于 2022-12-19 19:03

3190496160 发表于 2022-12-19 10:57
把这个变量的值扩大一点吧
u = UBound(ar) + 4

好的,收到~谢谢导师,感谢您

tanglf188 · 发表于 2022-12-19 19:29

直接调用Excel内置函数计算、统计或用字典的方法，普通循环的效率相对较低

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

[已解决] VBA提数据统计,速度太慢求改进代码!!