[已解决]关于身份证号码隐藏的问题

hubinhb · 发表于 2013-7-4 15:58

请教一下我有一个人员信息的表提取到身份证以后需要把中间的号码隐藏起来
我目前是这么做的
c = Left(arr(i, 7), 6) & "********" & Right(arr(i, 7), 4)
纯粹的公式方法，请问有没有什么简单的办法可以达到同样的效果

最佳答案

ligh1298

2013-7-4 16:16

你的方法已经很好了。用mid()&********&mid()也能完成，但还没你的方法好。总之，都是要调用函数。

我心飞翔410 · 发表于 2013-7-4 16:13

=REPLACE(E8,2,16,"****************")

我心飞翔410 · 发表于 2013-7-4 16:13

你是用v

ligh1298 · 发表于 2013-7-4 16:16

你的方法已经很好了。用mid()&********&mid()也能完成，但还没你的方法好。总之，都是要调用函数。

1032446692 · 发表于 2013-7-4 16:20

c = WorksheetFunction.Replace(arr(i, 7), 7, 8, "********")
c = WorksheetFunction.Replace(arr(i, 7), 7, 8, WorksheetFunction.Rept("*", 8))

hubinhb · 发表于 2013-7-4 16:22

本帖最后由 hubinhb 于 2013-7-4 16:24 编辑

ligh1298 发表于 2013-7-4 16:16
你的方法已经很好了。用mid()&********&mid()也能完成，但还没你的方法好。总之，都是要调用函数。

至少也让我知道了没有别的办法可以实现看来都是要用到函数
最佳

我心飞翔410 · 发表于 2013-7-4 16:24

Mid(arr(i,7), 7, 8) = String(16, "*") vba 替换字符你看看可以不可以画给个好评啊

ligh1298 · 发表于 2013-7-4 16:26

还可以这样。
c = Application.Replace(arr(1, 7), 8, 14, "********") & Right(arr(1, 7), 4)

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