暗淡？我%，？n%，？壹、？r？m
r？=?範圍（“a”？& amp？成排。數數）。結束（xlUp）。排
n？=?2
為了什麽？我？=?2?去哪？r
答？=?細胞（我，？1).文本
設置？m？=?範圍（“b2:b“？& amp？n)。找到（什麽:=a，？SearchDirection:=xlPrevious）
如果？m？是嗎？什麽都沒有？然後
細胞（n，？2)?=?a
n？=?n？+?1
結束？如果
然後
活動表。Sort . SortFields.Clear
活動表。Sort.SortFields.Add2？key:= Range（“B2“），_
SortOn:=xlSortOnValues，？順序:=xlAscending，？數據選項:=xlSortNormal
用什麽？活動表。分類
。SetRange？範圍（“b2:b“？& amp？1000)
。頭球？=?xlGuess
。火柴盒？=?錯誤的
。取向？=?xlTopToBottom
。排序方法？=?XL拼音
。應用
結束？隨著
結束？潛水艇