如何使用*代替有关数据

APPLE123

目标：
1、将C列的证号前5位使用“*”代替，如D列。
2、将E列的身份证号中间6位使用“*”代替，如F列。
3、将G列的电话后3位使用“*”代替，如H列。
要求：
1、使用vba或函数公式解决均可。Vba优先，想学习一下。
2、如果有的身份证号是15位，也就是15位和18位混杂，均有，如何解决？
谢谢大侠的帮助！

sunya_0529

用宏也是作简单的文本处理，具体代码如下——

1. Option Explicit
   
2. 
   
3. Sub 替换星号()
   
4. On Error Resume Next '遇到错误执行下一行代码
   
5. Application.ScreenUpdating = False '关闭屏幕刷新
   
6. Dim str$, rng As Range
   
7. If Selection Is Nothing Then Exit Sub '如果没有选定单元格则退出程序
   
8. '用输入框来获取操作指令代码
   
9. str = InputBox("请选择替换类型：" & vbCrLf & "1：前5位用*代替；" & vbCrLf & "2：中间6位或8位用*代替；", "选择操作指令")
   
10. If Len(str) > 0 And IsNumeric(str) Then '检测输入框中的指令，填写了数字的话则执行下面的代码
    
11.   For Each rng In Selection '在选定区域中循环
    
12.     If str = "1" Then '执行指令1，将选定区域中的内容前5位用*代替
    
13.       rng = "*****" & Right(rng.Value, Len(rng.Value) - 5)
    
14.     ElseIf str = "2" Then '执行指令2，将选定区域中的中间6位或8位用*代替
    
15.       If Len(rng.Value) = 15 Then '针对15位的身份证号码，只替换其中的6位生日数字
    
16.         rng = Left(rng.Value, 6) & "******" & Right(rng.Value, 3)
    
17.       Else '针对18位身份证号码，替换其中的8位生日数字
    
18.         rng = Left(rng.Value, 6) & "******" & Right(rng.Value, 4)
    
19.       End If
    
20.     End If
    
21.   Next
    
22. End If
    
23. Application.ScreenUpdating = True '打开屏幕刷新
    
24. End Sub

复制代码

APPLE123

谢谢sunya_0529