'自定义函数
function num(cl as range)
if cl.count>1 then
num="请重新选择单个单元格!"
exit function
end if
dim dic as object
set dic=createobject("scripting.dictionary")
for i=1 to len(cl)
if dic.exists(mid(cl,i,1))=false then dic(mid(cl,i,1))=""
next
num= (join(dic.keys,"")) * 1
end function