返回列表下一主題上一主題發帖

[發問] 如何改善迴圈速度

ivyhuang

小學生 Rank: 1

帖子: 4
主題: 5
精華: 0
積分: 6
點名: 0
作業系統: window7
軟體版本: office2016
閱讀權限: 10
性別: 女
註冊時間: 2018-10-27
最後登錄: 2019-5-17

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2019-5-14 21:42 | 只看該作者

[發問] 如何改善迴圈速度

利用迴圈速度很慢，如何可以加快速度?

i = 12    '橫向填入料號
For C = 0 To 200
If i > Worksheets.Count Then
      Exit For
Else
      A = Application.CountIf(Worksheets(i).Range("i5:z10"), "PO")
      b = Application.CountIf(Worksheets(i).Range("i1:z1"), "xxxx")
      EA = A - b
         For G = 0 To EA
         Worksheets("FCST").Range("b1").Offset(, C + G).Value = Worksheets(i).Name
         Worksheets("FCST").Range("b1").Offset(1, C + G).Value = Worksheets(i).Range("d1").Offset(0, G * 6) '料號
         Worksheets("FCST").Range("b1").Offset(2, C + G).Value = Worksheets(i).Range("c1").Offset(0, G * 6) '尺寸
         Worksheets("FCST").Range("b1").Offset(3, C + G).Value = Worksheets(i).Range("c2").Offset(0, G * 6) '廠商
         myRow = Worksheets(i).Range("a:a").Find(myToday).Row '直向填入PO/FCST數量, myRow+myDay
         k = 0
         For j = 0 To myDay
            If k > myDay Then
                  Exit For
            Else
                  If Worksheets(i).Range("e" & myRow).Offset(k + 1, G * 6).Value <> 0 Then
                     Worksheets("FCST").Range("a4").Offset(j + 2, C + 1 + G).Value = "*" & Worksheets(i).Range("e" & myRow).Offset(k + 1, G * 6)
                  Else
                     Worksheets("FCST").Range("a4").Offset(j + 2, C + 1 + G).Value = Worksheets(i).Range("d" & myRow).Offset(k + 1, G * 6)
                  End If
                  k = k + 1
            End If
         Next j
         Next
End If
C = C + EA
i = i + 1
Next C
End If