又是身份证号码显示问题

于箱长 · 发表于 2019-12-13 10:26

本帖最后由于箱长于 2019-12-13 13:22 编辑

因为身份证号码来源不同，格式千差万别，给计算全年个人全部收入以及已扣个税与个税申报结果进行比对，造成很大困难
目前用以下代码倒是能解决在每个身份证号码前加上单引号，但是接下来就是漫长的等待，哪位大神有更快的办法，求指教，谢谢
sub sss()
dim s as range
for each s in selection
s="'" & s
next
end sub

lovemh1987 · 发表于 2019-12-13 10:48

兄弟上个附件看看

东南西北中发财 · 发表于 2019-12-13 10:50

数组数组数组！提取到数组中转换成文本格式再输出出来

Yalishanda30 · 发表于 2019-12-13 10:50

建议把数据写入数组，数组内循环加入' 然后再把数组输出到工作表

haofeng4645 · 发表于 2019-12-13 10:52

不说别的，代码设计是否合理的问题，你起码在这代码前面加一句 Application.ScreenUpdating = False 吧？

于箱长 · 发表于 2019-12-13 11:03

haofeng4645 发表于 2019-12-13 10:52
不说别的，代码设计是否合理的问题，你起码在这代码前面加一句 Application.ScreenUpdating = False 吧？

接受批评，呵呵，为了简单明了的表达意思，没加这两条，谢谢

于箱长 · 发表于 2019-12-13 11:04

Yalishanda30 发表于 2019-12-13 10:50
建议把数据写入数组，数组内循环加入' 然后再把数组输出到工作表

能帮忙写一下不，谢谢

于箱长 · 发表于 2019-12-13 11:05

lovemh1987 发表于 2019-12-13 10:48
兄弟上个附件看看

因涉及信息太多，不太方便把原文件传上来，请谅解，谢谢

lovemh1987 · 发表于 2019-12-13 11:08

身份证号码来源不同，格式千差万别。
我倒不是要看你什么资料，我只是对这句话好奇。

zc123zc · 发表于 2019-12-13 11:26

全部号码前面加个字母不就得了，比较的时候去掉前面的字母再比较

		自动登录	找回密码
密码			免费注册

[已解决] 又是身份证号码显示问题

最新热点 /1