一站直销 > vba字曲自定义函数，代替vlookup 需求：用自定义函数求身份证号对应的地址。要求 1

vba字曲自定义函数，代替vlookup 需求：用自定义函数求身份证号对应的地址。要求 1

2025-04-05 18:24:56

推荐回答（1个）

回答1：

function id_addr(byval id)
    dim i,d,k,v
    set d=createobject("scripting.dictionary")
    for i=1 to sheet1.usedrange.rows.count
        k=sheet1.cells(i,1)
        v=sheet1.cells(i,2)
        d(k)=v
    next i
    k=left(id,6)
    if d.exists(k) then id_addr=d(k) else id_addr=""
    set d=nothing
end function

上面就是按你要求写的自定义函数，使用的例子：

msgbox id_addr("110000196801016615")

vba字曲自定义函数，代替vlookup 需求： 用自定义函数求身份证号对应的地址。 要求 1

vba字曲自定义函数，代替vlookup 需求：用自定义函数求身份证号对应的地址。要求 1