http://zhidao.baidu.com/question/484374074.html
————————————————————————————————————————————————
Sub test()
Dim arr
Dim rs As Range
For Each rs In Selection
arr = Split(rs, ",")
Set js = CreateObject("msscriptcontrol.scriptcontrol")
js.Language = "javascript"
temp = Join(arr, ",")
js.addcode "function aa(bb){js=bb.split(',');js.sort();return js;}"
sortarr = js.eval("aa('" & temp & "')")
Debug.Print sortarr
rs.Value = sortarr
Next
End Sub
经测试符合要求,选中单元格以后执行宏,选中多少单元格执行多少,1楼理解错了,楼主的意思应该是给一个单元格的内容排序
注意,你第5行引号里的逗号为半角,如果你用的是全角把里面改成全角就可以了
——————————————————————————————————
傲轩游戏网
傲轩游戏网
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步