【EXCEL VBA】来求某一列的绝对值的最大值

你可以使用以下的 VBA 代码来求某一列绝对值的最大值：

Function AbsMax(rng As Range) As Double
    Dim cell As Range
    Dim maxVal As Double
    maxVal = 0'给初值
    For Each cell In rng'判断每个单元格大小，大的用来更新maxVal的值
        If Abs(cell.Value) > maxVal Then
        maxVal = Abs(cell.Value)
        End If
    Next cell
    AbsMax = maxVal'返回所选单元格绝对值最大的值
End Function

        然后在 Excel 中，你可以在VBA中输入类似于 =AbsMax(A1:A10) 的公式来求 A 列绝对值的最大值，其中 A1:A10 是你要计算的数据范围。