Excel VBA按条件抓取异常数据并计算连续区域的时间及湿度

liyulan · 发表于 2020-1-18 21:54

各位老师

1. 从原始数据中，根据抓取条件，从原始数据中抓取；

2. 放到想要的抓取结果工作表中；

3. A列每隔一分钟视为连续区域，把开始时间和结束时间放入相应的行，并计算持续时间和最小的异常湿度。

Manrce · 发表于 2020-1-19 10:22

试试吧！应该可以使用了

liyulan · 发表于 2020-1-19 11:18

Manrce 发表于 2020-1-19 10:22
试试吧！应该可以使用了

是可以用了，谢谢额，你好厉害

liyulan · 发表于 2020-1-28 12:13

Manrce 发表于 2020-1-19 10:22
试试吧！应该可以使用了

运行后最上面会一行显示-1，最下面一行-97

Manrce · 发表于 2020-1-30 18:09

liyulan 发表于 2020-1-28 12:13
运行后最上面会一行显示-1，最下面一行-97

你把出问题的表格上传我看看，最后一行是多余的计算不用管它，上次懒得删掉

liyulan · 发表于 2020-1-31 12:33

Manrce 发表于 2020-1-30 18:09
你把出问题的表格上传我看看，最后一行是多余的计算不用管它，上次懒得删掉

那我再加一个代码删除它，总之，谢谢，已经帮助很大啦。

liyulan · 发表于 2020-2-15 21:52

Manrce 发表于 2020-1-30 18:09
你把出问题的表格上传我看看，最后一行是多余的计算不用管它，上次懒得删掉

你好！
如果想改为：只抓取连续区域超过5个行（即持续时间超过5分钟）的，怎么改代码呀？

YZC51 · 发表于 2020-2-15 23:30

请参考

If crr(i + 1) Then Cells(crr(i) + 1, 7) = crr(i + 1) - crr(i) - 1

Manrce · 发表于 2020-2-18 09:33

liyulan 发表于 2020-2-15 21:52
你好！
如果想改为：只抓取连续区域超过5个行（即持续时间超过5分钟）的，怎么改代码呀？

工作簿1-最新修改版.zip (125.87 KB, 下载次数: 6)

重新修改了下，持续时间变为变量可以手动修改控制，你试试吧

liyulan · 发表于 2020-2-22 12:14

Manrce 发表于 2020-2-18 09:33
重新修改了下，持续时间变为变量可以手动修改控制，你试试吧

好厉害，谢谢。

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

[求助] Excel VBA按条件抓取异常数据并计算连续区域的时间及湿度