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

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

Sub FindMaxRandomNumber()
    Dim lastRow As Long
    Dim rng As Range
    Dim maxNumber As Double
    
    lastRow = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row
    Set rng = Range("C2:C" & lastRow)
    
    maxNumber = WorksheetFunction.Max(rng)
    
    MsgBox "The maximum random number in column C is: " & maxNumber
End Sub

这段代码首先确定了C列的最后一行，然后选择C2到最后一行的范围。最后，使用`WorksheetFunction.Max`函数来查找范围中的最大值，并将其存储在变量`maxNumber`中。最后，将找到的最大值显示在消息框中。

相关问题

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

以下是一个 VBA 代码示例，可以帮助您查找 n 列随机数的最大值：

Sub FindMaxValue()
    Dim n As Integer
    Dim i As Integer
    Dim j As Integer
    Dim maxVal As Double
    Dim currentVal As Double
    
    n = 3 ' 假设有三列随机数
    
    For i = 1 To n
        For j = 1 To 10 ' 假设有10个随机数
            currentVal = Cells(j, i).Value ' 获取当前单元格的数值
            If currentVal > maxVal Then ' 如果当前数值大于最大值，则更新最大值
                maxVal = currentVal
            End If
        Next j
    Next i
    
    MsgBox "最大值为：" & maxVal ' 显示最大值
End Sub

在此示例中，我们假设有三列随机数，每列有10个随机数。您可以根据您的实际情况进行修改。此代码将遍历每一列并查找最大值。最后，它将弹出一个消息框，显示找到的最大值。

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是您要查找最大值的单元格范围。您可以根据需要更改此范围。