如何将一个表格中的多个人名和身份证分开

一个人名的我可以！多个人名和多个身份证号码的我搞不定

呜呜有人吗

救救孩子吧

使用Power Query中数字向非数字转换

Option Explicit
Sub abc()
　Dim a, i, j, p, m
　a = Range("v2:v" & Cells(Rows.Count, "v").End(xlUp).Row).Value
　ReDim b(1 To 10 * UBound(a), 1 To 2) As String
　For i = 1 To UBound(a)
　　p = 1: a(i, 1) = a(i, 1) & "?"
　　For j = 1 To Len(a(i, 1))
　　　If IsNumeric(Mid(a(i, 1), j, 1)) Then
　　　　m = m + 1
　　　　b(m, 1) = Mid(a(i, 1), p, j - p)
　　　　b(m, 2) = Mid(a(i, 1), j, 18)
　　　　j = j + 17: p = j + 1
　　　End If
　　Next
　Next
　If m > 0 Then [x2].Resize(m, 2) = b
End Sub

@9楼，大佬，如果身份证的最后一位是X，现在的公式不能用呢，请问要怎么修改公式啊