发布网友 发布时间:2022-04-23 06:31
共5个回答
热心网友 时间:2022-05-26 09:57
一、首先,打开Excel表格程序,在表格内输入名字。
二、然后,在菜单中选择“公式”,点击打开。
三、然后,在公式中选择“replace”,点击打开。
四、然后,在对话框中输入以下内容,数字代表变成星号的第几个字。
五、最后,即可看到姓名变成星号完成,问题解决。
热心网友 时间:2022-05-26 09:58
难点是无法根据姓名长度分辨单、复姓。姓名共两个字的基本上是单姓。三个字及以上的就很难分得清楚姓啥名啥了,比如我有个朋友叫“诸葛华”,“诸葛”是常见的复姓,但他却是姓“诸”,还有”欧阳”、“司马”等等,同时也有姓”司”和”欧”的。再加上00后的父母给孩子现在乱起名,诸如“张杨少华”之类,汉族人也有五个字以上的名字。你即便是整出一张常用姓氏表出来作对照,把名字部分替换成*号也难以做到绝对准确。热心网友 时间:2022-05-26 09:58
Function 隐藏姓名(a As String)
b = Split(a, "/")
If Len(b(0)) = 3 Then
c = Left(b(0), 1) & "**"
If Len(b(1)) = 3 Then d = Left(b(1), 1) & "**"
If Len(b(1)) = 2 Then d = Left(b(1), 1) & "*"
If Len(b(1)) = 4 Then d = Left(b(1), 2) & "**"
End If
If Len(b(0)) = 2 Then
c = Left(b(0), 1) & "*"
If Len(b(1)) = 3 Then d = Left(b(1), 1) & "**"
If Len(b(1)) = 2 Then d = Left(b(1), 1) & "*"
If Len(b(1)) = 4 Then d = Left(b(1), 2) & "**"
End If
If Len(b(0)) = 4 Then
c = Left(b(0), 2) & "**"
If Len(b(1)) = 3 Then d = Left(b(1), 1) & "**"
If Len(b(1)) = 2 Then d = Left(b(1), 1) & "*"
If Len(b(1)) = 4 Then d = Left(b(1), 2) & "**"
End If
隐藏姓名 = c & "/" & d
End Function
热心网友 时间:2022-05-26 09:59
我想您可能是这意思
热心网友 时间:2022-05-26 09:59
=LEFT(A7,1)&REPT("*",FIND("/",A7)-2)&"/"&MID(A7,FIND("/",A7)+1,1)&REPT("*",LEN(A7)-FIND("/",A7)-1)