主题：大规模粘贴时，如何将身份证号码转换为正确的格式。

1、你现在粘贴的时候遇到什么问题？粘贴以后得到什么结果？

2、如果只是 ' 的问题，你可以用trim或者replace把字符串替换掉。

3、也可以用正则表达式，如

Dim str = "abc440881199103110638'789"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{18}")
If mc.count > 0 Then
    msgbox(mc(0).value)
End If

如

Dim str = "abc44088119910311063X'789"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{17}[0-9xX]{1}")
If mc.count > 0 Then
    msgbox(mc(0).value)
End If