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

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

Sub FindMaxValue()
    Dim maxValue As Double
    Dim currentValue As Double
    
    ' Set the initial max value
    maxValue = Cells(1, 1).Value
    
    ' Loop through each cell in the column
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        currentValue = Cells(i, 1).Value
        If currentValue > maxValue Then
            maxValue = currentValue
        End If
    Next i
    
    ' Print the max value
    MsgBox "The maximum value is: " & maxValue
End Sub

请注意，此代码假定随机数列在第一列中。如果您的列不同，请相应地更改代码中的单元格引用。