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

附   件:

点击下载此附件

演   示: