vba取最大值函数 vba取数组中的最大值

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

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

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

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函数是计算出一个数组里面的最大值.1. max函数的用法:max(参数),参数可以是数字或者是包含数字的名称、数组或引用;2. 例如:计算b2到b7单元格里面最大的数值,可以在b8单元格里面输入公式=max($b$2:$b$7),之后就会显示出最大值了.

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 Shu(5) as long,i as integer shu(1)=a shu(2)=b shu(3)=c shu(4)=d shu(5)=e shu(0)=1 for i=2 to 5 if shu(i)>shu(shu(0)) then shu(0)=i endif next print ＂最大数是＂;shu(shu(0))

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

ro = Cells.Find(what:=m).Row ro不是对象,不能用set赋值,还有what下少了:

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