例如，有如下圖所示的表格:
第壹步:在D2輸入公式=RANK(C2，加元2:加元7)。然後把公式降到C7，結果如下所示:
步驟2:用下面的代碼創建壹個宏“ranking ”:
子排名()
Dim MYARR(1到100，1到3)
將I，J，K，L表示為整數
Dim BJ，XM為字符串
將CJ標註為Double
I = 2
Do While單元格(I，3)& lt；& gt""
對於J = 1到3
MYARR(I - 1，J) = Cells(I，J)
下壹個J
I = I + 1
環
I = I - 2
對於J = 1至I - 1
對於K = J + 1到I
If MYARR(J，3)& lt；那麽MYARR(K，3)
BJ =緬甸元(J，1)
XM = MYARR(J，2)
CJ = MYARR(J，3)
MYARR(J，1) = MYARR(K，1)
MYARR(J，2) = MYARR(K，2)
MYARR(J，3) = MYARR(K，3)
MYARR(K，1) = BJ
MYARR(K，2) = XM
MYARR(K，3) = CJ
如果…就會結束
下壹個K
下壹個J
單元格(1，6) = "Class "
單元格(1，7) = "名稱"
單元格(1，8) = "成就"
對於J = 1到I
對於K = 1到3
Cells(J + 1，K + 5) = MYARR(J，K)
下壹個K
下壹個J
末端接頭
執行代碼後，結果如下: