这个VBA还有优化的空间吗？为什么要运行一天一夜！！！

gcloveu

Sub test()
Dim arr(1 To 16 ^ 4, 1 To 2), crr(1 To 10, 1 To 4), x1&, x2&, x3&
Dim s&, y, i&, j&, k&, brr, x, m
With Sheets("sheet1")
For x1 = 1 To 20
     For x2 = 1 To 30
         For x3 = 1 To 20
                .Range("L2") = x1
                .Range("M2") = x2
                .Range("N2") = x3
                s = s + 1
                y = .Range("P6")
                arr(s, 1) = x1 & "," & x2 & "," & x3
                arr(s, 2) = y
Next x3, x2, x1
brr = Application.WorksheetFunction.Transpose(Application.Index(arr, 0, 2))
For i = 1 To 10
     x = Application.WorksheetFunction.Large(brr, i)
     For j = 1 To s
         If x = arr(j, 2) Then
             m = Split(arr(j, 1), ",")
             For k = 0 To UBound(m)
                 crr(i, k + 1) = m(k)
             Next
         End If
         crr(i, 4) = x
     Next j
Next i
End With
Sheets("Sheet2").Select
With Sheets("sheet2")
.Range("G1") = "L2"
.Range("H1") = "M2"
.Range("I1") = "N2"
.Range("J1") = "P6"
Range("G2").Resize(UBound(crr), UBound(crr, 2)) = crr
End With
End Sub

真郁闷我的附件怎么缩都超过1MB，没办法上传附件了，这个VBA的作用是赋值给L2，M2，N2经过复杂计算，得到P6的值，
然后得到最大的P6的值的十个结果，同时看到这十个结果对应的L2，M2，N2的值。如果是半年的数据，在整整计算一天，
这个VBA还有优化的空间吗？

suwenkai

没有文件，其它人怎么帮你调试啊。

lhdcxz

从代码来看，不应该要这么长的时间，也许在某个时候被现在还不知道的一个恶意代码植入了。我用下面的方法解决过。供你参考：
1、建立一个文本文件
2、打开你的EXCEL 文件，但是不启用宏
3、逐页复制代码；粘贴到文本文件里面（注意分清楚是哪个工作表的代码）（对于模块、控件等也不要用“导出”的方式）
4、新建一个EXCEL文件
5、把文本文件里面的代码粘贴过来。

gcloveu

lhdcxz 发表于 2013-1-4 18:13
从代码来看，不应该要这么长的时间，也许在某个时候被现在还不知道的一个恶意代码植入了。我用下面的方法解 ...

我可以用什么方法把附件发给您吗？我想不大可能是有恶意代码，有可能是赋值给L2，M2，N2后运算过程太复杂，时间太长了，因为用得都是函数，半年的数据要四万多行，您看有什么办法把这些函数转化为VBA，或者有其他办法让它们运行得更快，我可以只发一个月的数据，但都要1M多，您看行吗？

lhdcxz

哦哦。那就算了。我对函数不算很通的。请其他人看看吧。不好意思了。

gcloveu

lhdcxz 发表于 2013-1-4 20:02
哦哦。那就算了。我对函数不算很通的。请其他人看看吧。不好意思了。

还是要谢谢您！