arr？=?Range("A1:IV1)？將壹系列單元格分配給數組arr
n？=?256?已知元素的數量
為了什麽？我？=?1?去哪？n？-?1?外部循環次數
為了什麽？j？=?1?去哪？n？-?我？內部循環次數
如果？arr(1，j)？& gt？arr(1，j？+?1)?然後呢？如果它比下壹個大，就交換位置。
t？=?Arr(1，j)'臨時存儲
arr(1，j)？=?arr(1，j？+?1)'將1列移至此列。
arr(1，j？+?1)?=?' t '臨時分配到下部1列
結束？如果結束判斷
下壹個？當內部循環達到預定次數時退出。
下壹個？當外部循環達到預定次數時退出。
Range("A1:IV1)？“=arr”已被排序並賦回原始單元格區域。
當然，也可以給其他單元格區域賦值。
結束？上面的Sub是VBA電碼，其實公式也很簡單:
=SMALL($A1:$IV1，COLUMN(A1))
公式放置在A2單元格中，並填充到IV1單元格的右側。