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

2024年11月28日 01:47
有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