用于找出某个范围内的最大值并将另一个单元格中的值加1的VBA代码

Sub FindMaxAndIncrement()
    Dim rng As Range
    Dim maxVal As Double
    Dim cell As Range
    
    ' 设置范围
    Set rng = Range("A1:A10")
    
    ' 初始化最大值为范围中的第一个值
    maxVal = rng.Cells(1).Value
    
    ' 找出最大值
    For Each cell In rng
        If cell.Value > maxVal Then
            maxVal = cell.Value
        End If
    Next cell
    
    ' 将另一个单元格的值加1
    Range("B1").Value = Range("B1").Value + 1
    
    ' 输出最大值
    MsgBox "最大值为: " & maxVal
End Sub