如何用VBA語言寫RANK函數

解決了，代碼如下：

Private Sub KILLONE()

Dim i As Integer

Dim Number As Double

Number = Worksheets("sheet1").Cells(1, 1).Value

Set myRange = Worksheets("Sheet1").Range("A1:C10")

i = Application.WorksheetFunction.Rank(Number, myRange, 0)

End Sub

妳的錯誤：RANK的參數1需要為double型的值（如3.5類似的值），參數2需要為range類型，建議參考我的寫法為RANGE類型。

需要註意的是：單元格A1中確實存在Double類型的值，否則出現1004類型錯誤。

運行上述代碼，