申請。啟用事件？=?假的？屏蔽事件響應
如果？目標。地址？=?“$A$1”？然後
答？=?範圍（“$A$1“）？將字符串帶到
b？=?len（a）？計算字符串中的字符數。
暗淡？arrive）
雷迪姆？arr（1？去哪？b)
為了什麽？我？=?1?去哪？b
arr？=?mid（a，我，？1)?將字符串拆分為數組arr
下壹個？我
整理
為了什麽？我？=?1?去哪？b？-?1?外部循環次數
為了什麽？j？=?1?去哪？b？-?我？內部循環次數
如果？ASC（arr（j）？& gt？ASC（arr（j？+?1))?然後呢？如果它比下壹個大，交換位置。
tmp？=?安排（j）
arr（j）？=?arr（j？+?1)
arr（j？+?1)?=?終端監督程式（Terminal Monitor Program的縮寫）
結束？如果
下壹個？j
下壹個？我
答？=?""?中的空字符串。
為了什麽？我？=?1?去哪？b
答？=?答？& amp？arr？數組到字符串
下壹個？我
範圍（“$A$1“）？=?答？排序後的字符串返回到原始單元格。
結束？如果
申請。啟用事件？=?真的嗎？打開事件響應
結束？右鍵單擊工作表選項卡查看代碼並粘貼上面的代碼。然後在單元格A1中輸入壹個字符串以查看效果。