Function 提取(t As Range) '按照出现先后顺序排序＝提取(a1:a100)
Dim d, s, R, i%
　　Set d = CreateObject("scr ipting.Dictionary")
　　For Each R In t
　　　　s = s & R
　　Next
　　s = StrReverse(s) & "0123456789"
　　For i = 1 To Len(s)
　　　　d(Mid(s, i, 1)) = ""
　　Next
　　提取 = Join(d.keys, "")
End Function(Function
Dim d, s, R, i%
　　Set d = CreateObject("scr ipting.Dictionary")
　　For Each R In t
　　　　s = s & R
　　Next
　　s = StrReverse(s) & "0123456789"
　　For i = 1 To Len(s)
　　　　d(Mid(s, i, 1)) = ""
　　Next
　　= Join(d.keys, "")
End Function)