除去零以外的最小值VBA代码该怎么写最高效呢？

水和米

这个是我的答案，不知道还有没有更高效的呢？

1. Sub test()
   
2.     Dim arr, i&, m&
   
3.     arr = Array(2, 0, 22, 13, 14, 520)
   
4.     m = Application.Max(arr)
   
5.     For i = 0 To UBound(arr)
   
6.         If arr(i) = 0 Then arr(i) = m
   
7.     Next
   
8.     MsgBox "数组内除零外的最小值为:" & Application.Min(arr)
   
9. End Sub

复制代码

水和米

1. Sub test2()
   
2.     Dim arr, i&, m&
   
3.     arr = Array(2, 0, 22, 13, 14, 520)
   
4.     m = Application.Max(arr)
   
5.     For i = 0 To UBound(arr)
   
6.         If arr(i) <> 0 And arr(i) < m Then m = arr(i)
   
7.     Next
   
8.     MsgBox "数组内除零外的最小值为:" & m
   
9. End Sub

复制代码

丸子不是小孩子

1. Sub test()
   
2.     Dim arr, i&, m&
   
3.     arr = Array(2, 0, 22, 13, 14, 520)
   
4.     Do
   
5.         i = i + 1
   
6.         m = Application.Small(arr, i)
   
7.     Loop Until m <> 0
   
8.     MsgBox "数组内除零外的最小值为:" & m
   
9. End Sub

复制代码

丸子不是小孩子

，，，，，，，，，，，，，，，，

candyluo09250

不调用工作表函数

水和米

candyluo09250 发表于 2022-3-18 20:53
不调用工作表函数

iMin = 1000000
这里你不好预判数组里的值的大小的，
如果arr=array(1000001,1000002,1000003)呢？

excelstatic

Sub asdas()
Dim arr, min
    arr = Array(2, 0, 22, 13, 14, 520, 1)
    min = arr(0)
    For i = 1 To UBound(arr)
        If arr(i) <> 0 And arr(i) < min Then
            min = arr(i)
        End If
    Next
    MsgBox min
End Sub

水和米

excelstatic 发表于 2022-3-18 21:25
Sub asdas()
Dim arr, min
    arr = Array(2, 0, 22, 13, 14, 520, 1)

万一 arr(0) = 0 呢？

candyluo09250

水和米 发表于 2022-3-18 21:11
iMin = 1000000
这里你不好预判数组里的值的大小的，
如果arr=array(1000001,1000002,1000003)呢？

那就
dim iMin as double
iMin=9e307

这个数足够大了吧
主要是也不知道你要判断的数据量有多少，要是很多，频繁调用工作表函数效率不一定高，不如老老实实循环呢
如果数据量不大就随意啦

水和米

candyluo09250 发表于 2022-3-18 21:30
那就
dim iMin as double
iMin=9e307

9e307，这个真牛，感觉兄弟你也没少看 Excel之家、Excel星球 的公众号文章啊