vba\x20最大值 vba最大值函数

Sub test() Dim arr(3) As Integer arr(0) = 1 arr(1) = 3 arr(2) = 4 arr(3) = 2 maxs = arr(0) For i = 0 To UBound(arr()) If arr(i) >= maxs Then maxs = arr(i) Next MsgBox maxs End Sub 这样应该可以吧

你好!就用工作表函数MAX和MIN:A列最大值 =Application.WorksheetFunction.Max(Range(＂A:A＂)) A列最小值 =Application.WorksheetFunction.Min(Range(＂A:A＂)) 希望对你有所帮助,望采纳.

楼上两位:VBA内置函数中没有求最大值的函数,所以你们的命令肯定不能运行,程序会报错.不过我们可以曲线救国,excel中表格可以用max函数,在VBA中也可以用,.

1,函数法.直接用max()和min()函数求得最大值和最小值!2.VBA法.sub aa...range(＂A1＂)=application.max()...next

假如数组为 arr 最大值为:Application.Max(arr)

Set Basewks = Dbbook.Worksheets(1) Basewks.Select Nrow = Basewks.UsedRange.Rows.Count Finalrow = Basewks.UsedRange.Rows(Nrow).Row Ncol = Basewks.UsedRange.Columns.Count Finalcol = Basewks.UsedRange.Columns(Ncol).Column Set Sourcerange = Basewks.Range(Basewks.Cells(1, 1), Basewks.Cells(Finalrow, Finalcol))

dim a(10) a(0)=1 a(1)=2'省略 for i = 0 to 10 if maxnext msgbox max

sub test() dim i as integer for i = 30 to 1 step -1 if cells(i, 1) = ＂＂ then rows(i).delete next i end sub

Sub AA()Dim Arr(1 To 100) As IntegerSUMA = 0For i = 1 To 100 '从EXCEL表A1至A100读取100个数 Arr(i) = Cells(i, 1) SUMA = SUMA + Arr(i) '求和NextFor x = 1 To 100 For y = x To 100 If Arr(x) 评论0 0 0

Sub ww() For i = 1 To [e65536].End(3).Row If [k1] = 5 Then n = Application.Max(Range(＂e:e＂)) If Cells(i, ＂e＂) = n Then Range(＂c＂ & i).Interior.ColorIndex = 6 End If End If Next End Sub