基于特定顺序对字符串进行排序

Function testCmdrDuh(str2test As String, strPattern As String) As String
Dim strFinal As String
Dim I As Integer
Dim strPat As String
Do Until strPattern = ""
    strPat = Left(strPattern, 1)
    I = InStr(1, str2test, strPat)
    Do Until I = 0
        strFinal = strFinal & Mid(str2test, I, 1)
        str2test = Replace(str2test, strPat, "", 1, 1)
        I = InStr(1, str2test, strPat)
    Loop
    strPattern = Replace(strPattern, strPat, "", 1, 1)
Loop
testCmdrDuh = strFinal
End Function
Sub test()
Debug.Print testCmdrDuh("PSSXPLPS", "PSLX")
End Sub

'variation that preserves the rough data in str2test an uses 1 loop only per pattern
'thus speed things up for larger amounts of data.
Function testCmdrDuh(ByVal str2test As String, ByVal strPattern As String) As String
Dim strFinal As String
Dim PatternCounter As Long
Dim PatternCharNum As Long
Dim strPat As String
PatternCounter = 1
For PatternCounter = 1 To Len(strPattern)
    strPat = Mid$(strPattern, PatternCounter, 1)
    PatternCharNum = Len(str2test)
    str2test = Replace(str2test, strPat, "")
    strFinal = strFinal & String$(PatternCharNum - Len(str2test), strPat)
Next
testCmdrDuh = strFinal
End Function
Sub test()
Debug.Print testCmdrDuh("PSSXPLPS", "PSLX")
End Sub