vba处理数据太耗时：求助大神优化一下代码

fenc

zpy2 发表于 2024-6-6 17:04
循环耗时：15.58203

有点没看明白，不知道是不是可以用sql查询

处理逻辑大概就是循环读取sheet的每行数据，然后根据考勤号、考勤日期、考勤机器号作为一个Key，然后取最晚日期和最早日期两条数据。

fenc

zpy2 发表于 2024-6-6 17:10
勤号
                atdNum = sheet.Cells(currentRow, 3).Text
前面单元格赋值给数组

嗯，这个是优化的一个方向，现在主要耗时的地方是下标数据得到之后，循环删除行速度太慢了。找了一圈没看到可以批量删除excel行的代码，只能循环一行一行的删除。

fenc

zpy2 发表于 2024-6-6 17:04
循环耗时：15.58203

有点没看明白，不知道是不是可以用sql查询

请问用Sql查询怎么做呢？我现在是循环取的值，操作excel比较频繁。

zpy2

fenc 发表于 2024-6-6 17:11
这个数据整理之后是要导入一个考勤系统里面，所以还是只能输出成excel文件。

都整成这样子了 还需要考勤系统。。。。
你主要耗时就是输出到Excel的 Io读写，循环就算减少一点，也不明显

zpy2

fenc 发表于 2024-6-6 17:24
请问用Sql查询怎么做呢？我现在是循环取的值，操作excel比较频繁。

   
        '根据下标循环删除指定行
        For Each deleteIndex In deleteArr
            'Debug.Print deleteIndex ' 输出当前元素到立即窗口
            newWb.Worksheets(1).rows(deleteIndex).Delete
        Next deleteIndex

这段用sql应该是会快一点 ，但是，输出到Excel麻烦。

你前面 deleteArr 啥意思，还是没看明白，每天最早打卡时间和最晚打卡时间之间的记录？

zpy2

fenc 发表于 2024-6-6 17:13
处理逻辑大概就是循环读取sheet的每行数据，然后根据考勤号、考勤日期、考勤机器号作为一个Key，然后取最 ...

https://club.excelhome.net/forum.php?mod=viewthread&tid=1642435&fromguid=hot&extra=&mobile&_dsign=61ed34c5

感觉和这个有点像，是不是可以数据量少点，再模拟一下结果。

yynrzwh

这么简单的要求不用搞那么复杂吧？1秒
4月汇总附件.zip (1.91 MB, 下载次数: 32)

2024-6-6 23:59 上传

点击文件名下载附件

fenc

zpy2 发表于 2024-6-6 21:13
'根据下标循环删除指定行
        For Each deleteIndex In deleteArr
            'Debu ...

最后想得到的结果是：只保留每个人每天不同考勤机器号的最早、最晚时间记录
我的整体思路是这样的：
1、先整体循环一次数据，然后根据考勤号、考勤日期（不加时间）、机器号为Key存一个自定义类。这个类里面包含了最早打卡时间和最晚打卡时间以及对应的下标值。然后每次有更早或更晚的时间后就将记录的下标值增加到一个待删除下标集合里面去。
2、找到所有的待删除下标后，将集合转成数组并倒序排序。（转数组是因为开始我对集合进行排序很耗时，但数组就非常快）
3、最后根据这个数组循环删除对应的行。

fenc

yynrzwh 发表于 2024-6-7 00:00
这么简单的要求不用搞那么复杂吧？1秒

十分感谢，我下载下来看看。

fenc

zpy2 发表于 2024-6-6 21:13
'根据下标循环删除指定行
        For Each deleteIndex In deleteArr
            'Debu ...

最早打卡时间和最晚打卡时间之间的记录的行下标，这些数据是没用的。