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