数组:89 65 46 34 20 16六个数据中求个位的最大值最小值,不知用vba excel如何表示,谢谢

显示全部楼层 · 2011-6-14 12:42:37

Sub CHA()
Dim a As Range, s, res, i, iMin, iMax
s = Split("89 65 46 34 20 16", " ") '获取数据
ReDim res(LBound(s) To UBound(s))
For i = LBound(s) To UBound(s)
res(i) = Val(Right(s(i), 1))
Next
iMin = Application.WorksheetFunction.Min(res)
iMax = Application.WorksheetFunction.Max(res)
...

千问 · 2011-6-14 12:42:37

EXCEL 求最大值 =MAX（）
求最小值=MIN()...

千问 · 2011-6-14 12:42:37

Sub Macro1()Maximum = 0Minimum = 10
Range("I14").Select
Selection.ClearContentsFor i = 1 To 6If Cells(1, i) - Int(Cells(1, i) / 10) * 10 > Maximum ThenMaximum...