摘要：
View Code Sub GetSameValue()Dim arr(0)Dim i As Integer, cellval As Integer, tempval As IntegerDim varstr As Stringarr(0) = Array(9, 1, 4, 6, 1, 1, 1, 1)For i = 0 To UBound(arr(0)) cellval = arr(0)(i) If i = 0 Then tempval = cellval Else If cellval < tempval Then tem... 阅读全文
