Function wei(a As Range)
Dim d, e, f
Set d = CreateObject("Scripting.Dictionary")
For Each h In a
d(Val(Right(h.Text, 1))) = ""
If Right(h.Text, 1) = "0" Then e = ".0"
Next
For i = 1 To 9
If d.exists(i) Then e = e & "." & i
Next
wei = Mid(e, 2, 99)
End Function
