提取多个姓名和身份证号

miaojohn45

分列提取单元格中的多个姓名和身份证号，使用正则表达式或者其它方法都行（注：除了身份证号位数一致，其他数据不确定一致）：

苏小亓

如果姓名都是统一在身份证号上一行就简单多了。

苏小亓

如果姓名全都是在身份证的上面

1. =INDEX(TEXTSPLIT($A1,,CHAR(10)),SMALL(IFERROR(IF(LEN(TEXTSPLIT($A1,,CHAR(10)))=18,ROW($1:$99)-{1,0}),999),COLUMN(A1)))

复制代码

苏小亓

=INDEX(TEXTSPLIT($A1,,CHAR(10)),SMALL(IFERROR(IF(LEN(TEXTSPLIT($A1,,CHAR(10)))=18,ROW($1:$99)-{1,0}),999),COLUMN(A1)))

inrever

1. =REGEXP(A1,"\B\n[^户主子女父母妻迁入分户操作]\W+|(\d{18}|\d{15})")

复制代码

boyuanoffice

1. =REGEXP(A1,"\p{Han}+(?=\n[\dX]{18})|[\dX]{18}")

复制代码

part98

=TOROW(REGEXEXTRACT(A1,"[一-龟]+(?=\s\d{17}[\dX])|\d{17}[\dX]",1))

无关岁月

1. =TOROW(REGEXEXTRACT(A1,"\s[一-龟]{2,3}(?=\s\d{17}[\dx])|\d{17}[\dx]",1,1))

复制代码

cnmlgb9998

借楼练一下 PQ 方案。


是这个效果吗？？？？？？？？

佛山小老鼠

1. Option Explicit
   
2. Function ??(Rg As Range, x%)
   
3.     Dim Reg, Mat, Ma, k, arr1()
   
4.     Set Reg = CreateObject("Vbscript.RegExp")
   
5.     With Reg
   
6.         .Global = True
   
7.         .Pattern = "([\u4e00-\u9fa5]+)(\s)(\d{18})"
   
8.     End With
   
9.     Set Mat = Reg.Execute(Rg)
   
10.     For Each Ma In Mat
    
11.         k = k + 1
    
12.         ReDim Preserve arr1(1 To k)
    
13.         arr1(k) = Ma.submatches(0)
    
14.         k = k + 1
    
15.         ReDim Preserve arr1(1 To k)
    
16.         arr1(k) = Ma.submatches(2)
    
17.     Next Ma
    
18.     If x <= UBound(arr1) Then
    
19.         ?? = arr1(x)
    
20.     Else
    
21.         ?? = ""
    
22.     End If
    
23. End Function

复制代码