Dim iRow作為整數
iRow =【a 65536】。結束（xlup）。排
range（“a 1:C“& amp；iRow）。挑選
選擇。排序關鍵字1:= Range（“B2“），Order1:=xlDescending，Header:=xlGuess，_
OrderCustom:=1，MatchCase:=False，Orientation:=xlTopToBottom，SortMethod _
:=xlPinYin，data option 1:= xlSortNormal
【C2】= 1
對於i=3到iRow
單元格（I，3）= IIf（單元格（I，2）=單元格（i-1，2）、單元格（i-1，3）、單元格（i-1，3）+1）
然後
末端接頭