字符串问题

Question

有5个数字的字符串"9 10 13 4 10"
要去掉里面相同的一个 可能有2个 或者是3个 例子为10 去掉后换成" "  不是 ""
例子去掉10后应该是"9  13 4 10"   
9和13之间应该有2个空格 就是用空格代替了10
字符串也可能是"9 9 10 10 4"
应该换成"9    10 4" 
9和10中间应该有4个空格 有好的办法吗？
谢了

Answer 1

LZ的问题有差错，去掉10后应该是"9 10 13 4  "，否则与"9    10 4"不一致。
Sub main()
    Dim i As Long
    Dim strSource As String, strResult As String, strArray() As String
    strSource = "9 10 13 4 10"
    strArray = Split(strSource, Space(1))
    For i = 0 To UBound(strArray)
        strResult = strResult & Space(1) & IIf(InStr(strResult, strArray(i)), Space(1), strArray(i))
    Next
    strResult = LTrim(strResult)
    Debug.Print strResult
End Sub