[已解决]求助帮忙优化这段FOR循环，我这样条数多了直接execl未响应

ccc919

1. 
   
2. '=================================起始===============================
   
3. ar = Sheet3.Range("d5:d" & Sheet3.[a65536].End(3).Row)
   
4. For i = 1 To UBound(ar)
   
5.     If ar(i, 1) Like "*Φ*×*" Then
   
6.         a = Split(ar(i, 1), "Φ")(1)
   
7.         b = Split(a, "×")
   
8.         c1 = Val(b(0))
   
9.         c2 = Val(b(1))
   
10.         c3 = Val(b(2))
    
11.          '============================计算工作量===================
    
12.             ar1 = Sheet1.Range("o5:o" & Sheet1.[a65536].End(3).Row)
    
13.             ar2 = Sheet1.Range("p5:p" & Sheet1.[a65536].End(3).Row)
    
14.             ar3 = Sheet1.Range("q5:q" & Sheet1.[a65536].End(3).Row)
    
15.             ar4 = Sheet1.Range("r5:r" & Sheet1.[a65536].End(3).Row)
    
16.             ar5 = Sheet1.Range("s5:s" & Sheet1.[a65536].End(3).Row)
    
17.             ar6 = Sheet1.Range("t5:t" & Sheet1.[a65536].End(3).Row)
    
18.             ar7 = Sheet1.Range("u5:u" & Sheet1.[a65536].End(3).Row)
    
19.             ar8 = Sheet1.Range("v5:v" & Sheet1.[a65536].End(3).Row)
    
20.             For ii = 1 To UBound(ar1)
    
21.             For iii = 1 To UBound(ar2)
    
22.             For iiii = 1 To UBound(ar3)
    
23.             For iiiii = 1 To UBound(ar4)
    
24.             For iiiiii = 1 To UBound(ar5)
    
25.             For iiiiiii = 1 To UBound(ar6)
    
26.             For iiiiiiii = 1 To UBound(ar7)
    
27.             If c3 >= 0 And c3 < 65535 Then
    
28.             ar(i, 1) = Format(((3.14 * (c1 / 1000)) * ar1(i, 1)) + (2 * ar2(i, 1)) + (3.14 * (c1 / 1000) * (0.5 * ar3(i, 1))) + (2 * ar4(i, 1)) + (3 * ar5(i, 1)) + (1.5 * ar6(i, 1)) + (1.5 * ar7(i, 1)) + (1 * ar8(i, 1)), "0.00")
    
29.             Else
    
30.             ar(i, 1) = ""
    
31.             End If
    
32.             Next
    
33.             Next
    
34.             Next
    
35.             Next
    
36.             Next
    
37.             Next
    
38.             Next
    
39. 
    
40.         '============================================================
    
41.     Else
    
42.         ar(i, 1) = ""
    
43.     End If
    
44. Next
    
45. Sheet3.Range("o5").Resize(UBound(ar), 1) = ar

复制代码

求各位帮忙优化FOR循环，谢谢

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-8-7 16:01

至少简化成这样估计运行也没有问题。

1. '=================================起始===============================
   
2. ar = Sheet3.Range("d5:d" & Sheet3.[a65536].End(3).Row)
   
3. ar1 = Sheet1.Range("o5:v" & Sheet1.[a65536].End(3).Row)
   
4. For i = 1 To UBound(ar)
   
5.     If ar(i, 1) Like "*Φ*×*" Then
   
6.         a = Split(ar(i, 1), "Φ")(1)
   
7.         b = Split(a, "×")
   
8.         c1 = Val(b(0))
   
9.         c2 = Val(b(1))
   
10.         c3 = Val(b(2))
    
11.          '============================计算工作量===================
    
12.             If c3 >= 0 And c3 < 65535 Then
    
13.                 ar(i, 1) = Format(((3.14 * (c1 / 1000)) * ar1(i, 1)) + (2 * ar1(i, 2)) + (3.14 * (c1 / 1000) * (0.5 * ar1(i, 3))) + (2 * ar1(i, 4)) + (3 * ar1(i, 5)) + (1.5 * ar1(i, 6)) + (1.5 * ar1(i, 7)) + (1 * ar1(i, 8)), "0.00")
    
14.             Else
    
15.                 ar(i, 1) = ""
    
16.             End If
    
17. 
    
18.         '============================================================
    
19.     Else
    
20.         ar(i, 1) = ""
    
21.     End If
    
22. Next
    
23. Sheet3.Range("o5").Resize(UBound(ar), 1) = ar

复制代码

跳转到最佳答案楼层

qdwfjmqj

我去 那么多for，我还重来没有用过那么多循环

大灰狼1976

首先，你判断末行用了[a65536].end(3).row，那么意味着ar1~ar8的结构是一模一样的，而且各列相邻，所以ar1~ar8用一个数组就能代替了，其次，代码太复杂，看起来费劲，不如上个附件，说明一下要求，说不定有更简单高效的方法。

大灰狼1976

还有，你的ii、iii、iiii....变量很多，循环很多，实际上这些变量都没有参与计算，那就意味着不需要这些循环。
虽然没有看到你的文件，但我估计你的要求在15~20行代码之间可以完成。

大灰狼1976

至少简化成这样估计运行也没有问题。

1. '=================================起始===============================
   
2. ar = Sheet3.Range("d5:d" & Sheet3.[a65536].End(3).Row)
   
3. ar1 = Sheet1.Range("o5:v" & Sheet1.[a65536].End(3).Row)
   
4. For i = 1 To UBound(ar)
   
5.     If ar(i, 1) Like "*Φ*×*" Then
   
6.         a = Split(ar(i, 1), "Φ")(1)
   
7.         b = Split(a, "×")
   
8.         c1 = Val(b(0))
   
9.         c2 = Val(b(1))
   
10.         c3 = Val(b(2))
    
11.          '============================计算工作量===================
    
12.             If c3 >= 0 And c3 < 65535 Then
    
13.                 ar(i, 1) = Format(((3.14 * (c1 / 1000)) * ar1(i, 1)) + (2 * ar1(i, 2)) + (3.14 * (c1 / 1000) * (0.5 * ar1(i, 3))) + (2 * ar1(i, 4)) + (3 * ar1(i, 5)) + (1.5 * ar1(i, 6)) + (1.5 * ar1(i, 7)) + (1 * ar1(i, 8)), "0.00")
    
14.             Else
    
15.                 ar(i, 1) = ""
    
16.             End If
    
17. 
    
18.         '============================================================
    
19.     Else
    
20.         ar(i, 1) = ""
    
21.     End If
    
22. Next
    
23. Sheet3.Range("o5").Resize(UBound(ar), 1) = ar

复制代码

ccc919

大灰狼1976 发表于 2017-8-7 16:01
至少简化成这样估计运行也没有问题。

谢谢，原来多个列数组可以这样循环表示。这样一个for就可以搞定了

exc姜

学习中