发布网友
共3个回答
热心网友
把上面的改改。。。
前提第一个大于0
Public Function fir(r As Range)
Dim m As Integer
m = 0
x = r.End(xlDown).Row
For i = 1 To x
If Cells(r.Row + i - 1, r.Column).Value > m Then
m = Cells(r.Row + i - 1, r.Column).Value
Else
If Cells(r.Row + i - 1, r.Column).Value < m Then
Exit For
End If
End If
Next i
fir = m
End Function
开发工具,vba,插入模块,复制
=fir(a1)追问这个不会用,插入模板后,该怎么做?
追答哦, 那我就*为力了
热心网友
选中,右键,把值前的勾打上,就有显示了
热心网友
可以用max函数,公式为=max(要找的这组数)
例:要找A1:A10中最大的数,则=max(A1:A10)
MAX:返回一组数值中的最大值,忽略逻辑值及文本
NUMBER(一组数值):是准备从中求取最大值的1到255个数值,空单元格、逻辑值或文本数值