国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

以下是原語句，統(tǒng)計幾百千來組問題不大，但統(tǒng)計上萬上十萬組時間就很長，請大佬幫忙優(yōu)化一下，萬分感謝！

Sub 統(tǒng)計()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 
Dim i&, l&, n%, m%, j%, k%
For i = 0 To 100000006
[B8] = 0 + i
[A9] = 50 + n
[B9] = 50 + l
 Cells([A9], 8) = m - 1
If Cells([A9], 1) = "" Then Application.ScreenUpdating = True: Exit Sub
k = 0
For j = 1 To 9
If WorksheetFunction.CountIf(Cells([A9], 1).Resize(1, 9), Cells([B9], j)) > 0 Then
k = k + 1
End If
Next j
If k > 5 Then
 m = m + 1
 End If
 l = l + 1
 If Cells([B9], 1) = "" Then
 n = n + 1
 m = 0
 l = 0
End If
 Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub