求助！哪位大神帮忙给看一下怎么编写这个VBA代码？万分感谢！！！

xahuchm · 发表于 2023-4-19 22:28

本帖最后由 xahuchm 于 2023-4-20 17:08 编辑

给表格第1列用VBA代码自动填序号，按日期时间当日8：00到次日8：00（不包括8：00）为一组，序号从1开始排列，以此类推。如图，VBA代码如何编写(有上万行数据）？恳求大神的帮助！谢谢！

杨建营 · 发表于 2023-4-20 04:23

上附件才能更好的解决问题。

liulang0808 · 发表于 2023-4-20 08:13

for循环逐个时间判断是否在规定的范围内
论坛检索下雷同案例
不然就上传模拟附件，便于大家解答

心的启点 · 发表于 2023-4-20 08:32

先按日期排序一下，然后再根据日期进行时间排序

xahuchm · 发表于 2023-4-20 14:12

liulang0808 发表于 2023-4-20 08:13
for循环逐个时间判断是否在规定的范围内
论坛检索下雷同案例
不然就上传模拟附件，便于大家解答

已上传附件，期待您的解答。

zpy2 · 发表于 2023-4-20 14:36

create temp table aa as
select *,fillna(iif(regexp('^8',监控时间),rowid,'')) 组 from 自动填写序号;
select row_number() over ( partition by 组) 序号,日期,监控时间 from aa; Screenshot_2023-04-20-14-36-06-875_cn.uujian.browser.jpg

Screenshot_2023-04-20-14-36-06-875_cn.uujian.browser.jpg

xahuchm · 发表于 2023-4-20 15:03

每天8点多的记录就有上百条记录，另外能用VBA的代码给解答一下不？

liulang0808 · 发表于 2023-4-20 16:39

根据8去定位的

cjc209 · 发表于 2023-4-20 17:00

liulang0808 发表于 2023-4-20 16:39
根据8去定位的

如果有8:01 8:10 8:40 这样的不是都是1了吗?

xahuchm · 发表于 2023-4-20 17:05

不好意思，我没表达清楚，我只列了部分数据，光8点多就有很多条数据，我又把附件重新上传一下，再麻烦你。

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

[求助] 求助！哪位大神帮忙给看一下怎么编写这个VBA代码？万分感谢！！！