VBA 查找a列的最大值

以下是 VBA 代码，可以查找指定范围内的 a 列最大值：

Sub FindMaxValue()
    Dim rng As Range
    Dim maxValue As Double
    Dim i As Integer
    
    '设置范围
    Set rng = Range("A1:A10")
    
    '初始化最大值
    maxValue = -1E+20
    
    '查找最大值
    For i = 1 To rng.Rows.Count
        If rng.Cells(i, 1).Value > maxValue Then
            maxValue = rng.Cells(i, 1).Value
        End If
    Next i
    
    '输出结果
    MsgBox "A 列最大值为 " & maxValue
End Sub

在上述代码中，我们首先设置了查找的范围，然后初始化了一个变量来存储最大值。接着，我们使用循环遍历指定范围内的所有单元格，查找 a 列的最大值，并将其存储到变量中。最后，我们输出 a 列的最大值。

相关问题

VBA 查找n列最大值

以下是 VBA 代码，可以查找指定范围内的 n 列最大值：

Sub FindMaxValues()
    Dim rng As Range
    Dim n As Integer
    Dim maxValues() As Double
    Dim i As Integer, j As Integer
    
    '设置范围和列数
    Set rng = Range("A1:E10")
    n = 3
    
    '初始化数组
    ReDim maxValues(1 To n)
    For i = 1 To n
        maxValues(i) = -1E+20
    Next i
    
    '查找最大值
    For i = 1 To rng.Rows.Count
        For j = 1 To n
            If rng.Cells(i, j).Value > maxValues(j) Then
                maxValues(j) = rng.Cells(i, j).Value
            End If
        Next j
    Next i
    
    '输出结果
    For i = 1 To n
        MsgBox "第 " & i & " 列最大值为 " & maxValues(i)
    Next i
End Sub

在上述代码中，我们首先设置了范围和列数，然后初始化了一个数组来存储最大值。接着，我们使用嵌套的循环遍历指定范围内的所有单元格，查找每一列的最大值，并将其存储到相应的数组元素中。最后，我们输出每一列的最大值。

VBA 查找A列的最大值

您可以使用以下 VBA 代码来查找 A 列的最大值：

Function GetMaxValue() As Double
    Dim cell As Range
    Dim maxVal As Double
    
    maxVal = Range("A1").Value
    
    For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        If cell.Value > maxVal Then
            maxVal = cell.Value
        End If
    Next cell
    
    GetMaxValue = maxVal
End Function

使用方法：在 VBA 编辑器中，将此代码复制并粘贴到一个新模块中。然后，保存该模块并返回 Excel 工作簿。在 Excel 工作簿中，您可以使用以下公式来调用该函数：

=GetMaxValue()

这将返回 A 列的最大值。