http://zhidao.baidu.com/question/484374074.html
————————————————————————————————————————————————
Sub test()Dim arrDim rs As RangeFor Each rs In Selectionarr = 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 sortarrrs.Value = sortarrNextEnd Sub经测试符合要求，选中单元格以后执行宏，选中多少单元格执行多少，1楼理解错了，楼主的意思应该是给一个单元格的内容排序注意，你第5行引号里的逗号为半角，如果你用的是全角把里面改成全角就可以了转载于:https://www.cnblogs.com/cuizhf/p/3161835.html
