大神来帮忙！优化数据处理过程，提升执行时间。

mumu2659

在处理原始16进制数据的时候，需要对每个连续数据根据时间点进行数据分组确认，分好后就拷贝到目标单元格，然后用相同的方法处理剩余数据直到完成。目前6万行数据处理的时间大概需要15分钟左右，基本优化操作都已经做了，不知道有没有更好的方法来提升处理过程，部分代码如下：


    ' 处理数据
    For j = 1 To DataQty
        ' 计算时间差
        cycleTimeDelta = Abs(Abs(Cells(2 + j, 1).value) - Abs(Cells(1 + j, 1).value))
        ' 分割数据帧
        If cycleTimeDelta * 1000 > cycleTime1 Or Cells(2 + j, 1).value = 0 Then
            ' 标记数据帧位置
            Cells(2 + j, 1).Offset(-(1 + i), 0).Select
            Selection.Interior.Color = 65535
            ' 复制数据帧
            Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(i, 1)).Copy
            n = n + 1
            Cells(n, StartPaseColumn).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            i = 0
        Else
            ' 统计数据帧长度
            i = i + 1
        End If
    Next j
   
谢谢！

shiruiqiang

1、改数组
2、上附件

3190496160

6万行数据了，还直接操作单元格，速度肯定就是问题了，可以用数组循环，会快很多，6万行数据应该不是问题的

mumu2659

非常感谢，我先自己尝试一下

ykcbf1100

提速最明显的措施就是改用数组。

mumu2659

昨晚上自己试了下，执行不了，还请各位大神帮忙看看，谢谢！

ykcbf1100

mumu2659 发表于 2024-1-30 07:09
昨晚上自己试了下，执行不了，还请各位大神帮忙看看，谢谢！

不知道你数据处理的规则，如果能说清楚，应该能写一下。

mumu2659

ykcbf1100 发表于 2024-1-30 07:45
不知道你数据处理的规则，如果能说清楚，应该能写一下。

非常感谢！
对之前的描述进行补充，原始数据放在A列和B列，同一行的A列和B列是一组的关系，A列是用来计算cycleTime1的，B列数据的用来分组拷贝的目标数据。通过对A列连续单元格进行cycleTimeDelta 的判断后，决定对应的B列数据是否为一组，确定是一组数据后就拷贝B列对应数据组到目标单元格（起始位置Cells(1, StartPaseColumn)），然后用相同的方法处理剩余数据直到完成。以上是之前我用常规方法实现的功能，现在数据大了，执行效率非常差，需要用数组来实现。

ykcbf1100

mumu2659 发表于 2024-1-30 08:07
非常感谢！
对之前的描述进行补充，原始数据放在A列和B列，同一行的A列和B列是一组的关系，A列是用来计 ...

你最好做个效果图，帮助别人理解
看你的代码，不知道cycleTime1值是从哪来的

mumu2659

实在不好意思，突然发现excel附件里面没有代码，实在不好意思，单独保存出来再上传一下，抱歉！