Function Dim d, s, R, i% Set d = CreateObject("Scripting.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

Filename	Size	Update
xianhoupaixu.xls	34304	2017-11-27

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．