1, 用CONCATENATE()和并a1,b1,c1到d1 按下ALT+F11,菜单:插入-模块,然后复制下面代码 在G1中输入=ORDER(D1) 这样G1就是你要得到的数字. 或者不先和并,直接输入=ORDER(A1&b1&c1) Public Function order(ByVal m As String) As String Dim a() As String ReDim a(1 To Len(m)) As String For x = 1 To Len(m) If InStr(1, m, Mid(m, x, 1)) < x Then a(x) = "" Else a(x) = M...
|