此代码运行数据5000票以上就很慢了 请问有什么办法可以优化这代码

allison198

此代码运行数据5000票以上就很慢了 请问有什么办法可以优化这代码
Sub zzf()
    Dim i As Integer, iCount As Integer
    Dim x As Integer, xCount As Integer
    xCount = [a65536].End(xlUp).Row
    With Sheets("sheet2")
    iCount = .[a65536].End(xlUp).Row
    For x = 2 To xCount
      For i = 2 To iCount
      If Cells(x, 2) = "" Then
       If Cells(x, 1) = .Cells(i, 2) Then
        Cells(x, 2) = .Cells(i, 1)
        Cells(x, 3) = .Cells(i, 17)
        Cells(x, 4) = .Cells(i, 18)
        Cells(x, 5) = .Cells(i, 19)
        Cells(x, 6) = .Cells(i, 20)
        Cells(x, 7) = .Cells(i, 21)
        Cells(x, 8) = .Cells(i, 22)
        Cells(x, 9) = .Cells(i, 23)
        Cells(x, 10) = .Cells(i, 16)
      End If
       End If

    Next
Next
    End With
End Sub

未忘初心

可以改成数组 来处理

allison198

数据需要每天更新 用公式 表格会变得很大内存

lsc900707

allison198 发表于 2017-4-27 19:05
数据需要每天更新 用公式 表格会变得很大内存

发附件上来，用数组改写要快的多。

allison198

lsc900707 发表于 2017-4-27 22:01
发附件上来，用数组改写要快的多。

可以发QQ给我吗 刚刚接到数组方式的表格太没有原来出来的效果那么好

lsc900707

allison198 发表于 2017-4-27 22:06
可以发QQ给我吗 刚刚接到数组方式的表格太没有原来出来的效果那么好

不但没有附件，而且你觉得数组不好，所以没有必要写了。