Public Function MoveSame(strSame) As String Dim s As String, i As Long s = strSame i = 1 Do While i < Len(s) s = Left(s, i) & Replace(s, Mid(s, i, 1), "", i + 1) i = i + 1 Loop MoveSame = s End Function
附 件:
点击下载此附件
演 示: