前一段时间写了个代码，你这个应该也可以用Public Function PS(MM As String) As String
'对单元格内容进行排序
Dim Ar1() As String, s As String, M1 As String, Ar As Variant
Dim i%, j%, n%, k%, p%, ss%
With Application.WorksheetFunction
M1 = UCase(.Substitute(.Substitute(.Substitute(MM, "，", ","), "。", ","), ".", ","))
End With
Ar...
|
