å¯ä»¥å个èªå®ä¹å½æ°ï¼
Function Pola(sr, n, o) 'æå¼å½æ°
If Application.IsNumber(n) Then n = Chr(64 + n)
If Application.IsNumber(o) Then o = Chr(64 + o)
l = Range(n & 65536).End(3).Row
m = Range(n & l)
If sr > m Then Pola = "溢åº": Exit Function
If sr = m Then Pola = Range(o & l) & "": Exit Function
i = Application.Match(sr, Range(n & ":" & n), 1)
Set rn1 = ActiveSheet.Range(o & i & ":" & o & i + 1)
Set rn2 = ActiveSheet.Range(n & i & ":" & n & i + 1)
Pola = Application.Trend(rn1, rn2, sr, 1)
End Function
温馨提示:答案为网友推荐,仅供参考