excel vba 代写

excel vba 代写

我帮你写一个自定义函数吧，使用灵活方便一些，代码如下。使用时与普通函数一样，比如要计算第3行的X值，可在某个单元格输入公式：=xmax(3:3)；再如要计算A2:Z3这个区域的X值，公式为：=xmax(A2:Z3)

Function XMAX(ByVal Ra As Range)
Dim I&, J&, Ar, Tm
I = Application.Count(Ra)
If I = 0 Then Exit Function
ReDim Ar(1 To I)
For Each Ra In Ra
   If Ra > 0 Then J = J + 1: Ar(J) = Ra
Next
For I = 1 To UBound(Ar) - 1
   For J = I + 1 To UBound(Ar)
      If Ar(I) < Ar(J) Then
         Tm = Ar(I): Ar(I) = Ar(J): Ar(J) = Tm
      End If
Next J, I
For I = 1 To UBound(Ar)
   If Ar(I) < I Then XMAX = I - 1: Exit For
Next
If I > UBound(Ar) Then XMAX = I
End Function