VBA 查找a列的最大值

以下是用 VBA 查找 A 列的最大值的示例代码：

Sub FindMaxValue()
    Dim lastRow As Long
    Dim maxVal As Double
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    maxVal = Cells(1, "A").Value
    
    For i = 2 To lastRow
        If Cells(i, "A").Value > maxVal Then
            maxVal = Cells(i, "A").Value
        End If
    Next i
    
    MsgBox "A 列的最大值为 " & maxVal
End Sub

请注意，在这个代码中，我们使用了 `Cells` 函数来引用单元格，其中第一个参数是行数，第二个参数是列数。在这里，我们使用了一个循环来遍历 A 列中的所有单元格，并将每个单元格的值与 `maxVal` 进行比较，以找到最大值。最后，我们使用 `MsgBox` 函数来显示找到的最大值。