学以致用——使用VBA实现最大值查找函数findMax() (Finding maximum with custom function)

自定义查找最大值函数findMax()，功能：查找给定区域内的最大值（按字典排序，数字小于字母，大写字母小于小写字母）

代码：

Function findMax(ByVal rng As Range)
'求最大值
Dim max As Variant
max = rng.Cells(1).Value

For Each ce In rng
    If ce.Value > max Then
    max = ce.Value
    End If
Next
findMax = max
End Function

局限性：

和Excel自带的Max()函数相比，运算速度明显偏慢。但是，Excel自带的max()只能返回一组数字中的最大值，而自定义的findMax函数不限制单元格内的数据类型。