在excel里如何用vba自定义函数 或者其他函数,把一个单元格A1里的数字14425331593

2024-11-28 01:47:37
推荐回答(1个)
回答(1):

'自定义函数
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