vba找出最大值 vba区域求最大值和最小值

假如你的数据是从A1开始的在B列显示最大值Public Sub GetMax()n = Range(＂A1048576＂).End(xlUp).Rown = Application.WorksheetFunction.RoundUp(n / 30, 0)For i = 1 To nCells(i, 2) = Application.WorksheetFunction.Max(Range(Cells((i - 1) * 30 + 1, 1), Cells(i * 30, 1)))Next iEnd Sub

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

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

Cells(i, 201) = Application.WorksheetFunction.Max(Range(Cells(i, 1), Cells(i, 200)))

Sub dd() Dim arr arr = Array(1, 2, 3, 4, 5, 6) [A2] = Application.WorksheetFunction.Max(arr) End Sub 用工作表函数MAX就可以了.

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 这样应该可以吧

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.. max = A If B > max Then max = B End If If C > max Then max = C End If MsgBox(＂最大值.

如果你只要找最大值的话,就不用排序了,只要:Dim a(1 To 20), t As Integer Private Sub Command1_Click() Text1.Text = ＂＂ Text2.Text = ＂＂ For i = 1 To 20 Randomize a(i) = Int(1 + 99 * Rnd) Text1.Text = Text1.Text & a(i) & ＂ ＂ Next End Sub Private Sub Command2_Click() t = a(1) For i = 2 To 20 If t Next i Text2.Text = t End Sub

Sub mymax() Dim arr(1 To 3, 1 To 3) Dim x%, y%, i%, mR%, mC% i = 10 For x = 1 To 3 For y = 1 To 3 arr(x, y) = Int(89 * Rnd()) + 10 If arr(x, y) > i Then i = arr(x, y) mR = x mC = y End If Next y Next x Range(＂A1:C3＂) = arr MsgBox ＂最大数为:＂ & i & Chr(10) & ＂存于第＂ & mR & ＂行,第＂ & mC & ＂列＂End Sub

如图,同一列都为同一字段的数据,可以使用下面的代码.修改what的值为实际值即可,找出的结果以msgbox显示Sub MaxMin() Dim what As String Dim imax As Long, imin As Long what = ＂ABC＂ imax = WorksheetFunction.Max(Columns(Rows(1).Find(what).Column)) imin = WorksheetFunction.Min(Columns(Rows(1).Find(what).Column)) MsgBox ＂最大值:＂ & imax & Chr(10) & ＂最小值:＂ & iminEnd Sub