跪求大佬，帮我看看

A司忍也

用vba数组实现

dragonthree

这最基本的VBA呀

A司忍也

dragonthree 发表于 2023-12-30 09:09
这最基本的VBA呀

我自己写的代码数据少可以用，批量处理就太慢了。提高效率要用数组，但我又不会在数组里使用count，max，min

dragonthree

在数组里肯定不用count，max，min了

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2023.12.30
   
2.     Dim arr, b
   
3.     Application.ScreenUpdating = False
   
4.     r = Cells(Rows.Count, 2).End(3).Row
   
5.     arr = Range("a2:x" & r)
   
6.     b = [{13,14,20,21,22,23}]
   
7.     On Error Resume Next
   
8.     For i = 1 To UBound(arr)
   
9.         n = 0: p1 = 0
   
10.         For j = 1 To UBound(b)
    
11.             If arr(i, b(j)) <> Empty Then
    
12.                 n = n + 1
    
13.                 If n = 1 Then
    
14.                     Min = arr(i, b(j))
    
15.                     Max = arr(i, b(j))
    
16.                 End If
    
17.                 p1 = p1 + arr(i, b(j))
    
18.                 Max = IIf(Max < arr(i, b(j)), arr(i, b(j)), Max)
    
19.                 Min = IIf(Min > arr(i, b(j)), arr(i, b(j)), Min)
    
20.             End If
    
21.         Next
    
22.         If Max - Min > 0.03 Then
    
23.             arr(i, 24) = "超差"
    
24.         Else
    
25.             arr(i, 24) = Round(p1 / n, 2)
    
26.         End If
    
27.         If n = 0 Then arr(i, 24) = ""
    
28.     Next
    
29.     Range("a2:x" & r) = arr
    
30.     Application.ScreenUpdating = True
    
31.     MsgBox "OK！"
    
32. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

A司忍也

ykcbf1100 发表于 2023-12-30 10:16
附件供参考。。。

跪谢大佬，完美实现