VBA查找一列随机数的最大值

您可以使用以下VBA代码来查找一列随机数的最大值：

Function FindMax(rng As Range) As Double
    Dim arr() As Variant
    Dim i As Long
    
    arr = rng.Value
    
    FindMax = arr(1, 1)
    
    For i = 2 To UBound(arr, 1)
        If arr(i, 1) > FindMax Then
            FindMax = arr(i, 1)
        End If
    Next i
End Function

您可以在Excel中创建一个新模块，并将此代码复制到模块中。然后，您可以在Excel中使用以下公式来调用此VBA函数：

=FindMax(A1:A10)

其中，A1:A10是您要查找最大值的单元格范围。您可以根据需要更改此范围。

相关问题

VBA 查找a列随机数的最大值

以下是使用 VBA 在 A 列中查找随机数的最大值的示例代码：

Sub FindMaxRandomNumber()
    Dim lastRow As Long
    Dim maxRandomNumber As Double
    Dim currentRandomNumber As Double
    
    '获取 A 列的最后一行
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    '初始化最大随机数为 A 列的第一个数字
    maxRandomNumber = Cells(1, "A").Value
    
    '循环遍历 A 列中的每个单元格，找到最大的随机数
    For i = 2 To lastRow
        currentRandomNumber = Cells(i, "A").Value
        If currentRandomNumber > maxRandomNumber Then
            maxRandomNumber = currentRandomNumber
        End If
    Next i
    
    '将最大随机数输出到 B1 单元格
    Cells(1, "B").Value = maxRandomNumber
End Sub

这段代码首先获取 A 列的最后一行，然后遍历 A 列中的每个单元格，找到最大的随机数，并将其输出到 B1 单元格。请注意，此代码假定 A 列中的每个单元格都包含一个随机数。如果 A 列中有空单元格或非数字值，则代码可能会出现错误。

VBA查找c列随机数的最大值

请问您的数据是存储在Excel表格的哪个工作表中？如果是在Sheet1中，代码可以写成这样：

Sub FindMax()
    Dim lastRow As Long
    Dim maxVal As Double
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row '获取C列最后一个非空单元格的行号
    maxVal = Cells(1, "C").Value '初始化maxVal变量为C1单元格的值
    
    '遍历C列的所有单元格，找到最大的随机数
    For i = 2 To lastRow
        If Cells(i, "C").Value > maxVal Then
            maxVal = Cells(i, "C").Value
        End If
    Next i
    
    '弹出消息框显示最大值
    MsgBox "C列随机数的最大值为：" & maxVal
End Sub

您可以将这段代码复制到VBA编辑器中的模块中，并运行它，即可查找C列随机数的最大值。