如何从2个不同表中提取身份证

武松打鼓

cjc209 发表于 2020-10-23 16:46
Sub 提取身份证号()
    arr = Sheets("工资").UsedRange
    brr = Sheets("其他收入").UsedRange

套用你的代码，工资表的第一个身份证没有提取过来呢

武松打鼓

jisijie630 发表于 2020-10-24 13:03
=INDEX(工资!B:B,SMALL(IF(ISNA(MATCH(工资!B:B,其他收入!C:C,)),4^8,ROW(A:A)),ROW(A1)))&""

用你的公式只提取到了第10个人的身份证。麻烦直接上附件看看

博爱风雨同舟

365版本，分二步走，麻烦些但正确率高。

武松打鼓

BEIJIDADAYU 发表于 2020-10-23 17:18
H5=IF(IFERROR(INDEX(工资!$B$4:$B$1000,MATCH(0,COUNTIF(收入汇总!$H$4:H4,工资!$B$4:$B$1000),)),"")"",I ...

能解释一下公式的含义吗

武松打鼓

cjc209 发表于 2020-10-23 16:46
Sub 提取身份证号()
    arr = Sheets("工资").UsedRange
    brr = Sheets("其他收入").UsedRange

另外提取的时候会出现一个空行

cjc209

武松打鼓 发表于 2020-10-24 14:05
另外提取的时候会出现一个空行

加一个跳过原始数据为空就跳过就可以了

cjc209

武松打鼓 发表于 2020-10-24 14:05
另外提取的时候会出现一个空行

Sub 提取身份证号()
    arr = Sheets("工资").UsedRange
    brr = Sheets("其他收入").UsedRange
    Set d = CreateObject("Scripting.Dictionary")
    For r = 5 To UBound(arr)
    If arr(r, 2) <> "" Then d(arr(r, 2)) = ""
    Next r
    For r = 6 To UBound(brr)
       If brr(r, 3) <> "" Then d(brr(r, 3)) = ""
    Next r
    Erase arr
    Erase brr
    crr = d.keys
    arr = WorksheetFunction.Transpose(crr)
    Sheets("收入汇总").Range("b5:b56536") = Empty
    Sheets("收入汇总").Range("b5:b56536").NumberFormatLocal = "@"
    Sheets("收入汇总").Range("b5").Resize(UBound(arr), 1) = arr
End Sub

我走我流

武松打鼓 发表于 2020-10-24 13:15
套用你的代码，工资表的第一个身份证没有提取过来呢

我把4楼老师的代  -码抄了一遍，

BEIJIDADAYU

武松打鼓 发表于 2020-10-24 13:32
能解释一下公式的含义吗

主要是index（区域，match（，countif（），））思路去重，其他嵌套就可以了

武松打鼓

我走我流 发表于 2020-10-24 15:04
我把4楼老师的代  -码抄了一遍，

抄的有意思，不算雷同卷。。。