一、使用`SUBSTITUTE`函数（适用于单个名字或固定长度名字）

公式结构

`=SUBSTITUTE（A2, RIGHT（A2,1）, "*"）`

该公式将姓名的最后一个字替换为星号。若需替换第一个字，可将`RIGHT`函数改为`LEFT`函数（如`=SUBSTITUTE（A2, LEFT（A2,1）, "*"）`）。

处理不同长度名字

- 单字名：

直接替换最后一个字（如"张三"→"张*三"）；

- 双字名：替换第二个字（如"张三"→"张 三"）；

- 多字名：需调整公式中的字符位置（如"张三丰"→"张 丰"）。

二、使用`TEXT`函数（适用于固定长度编码）

公式结构

`=TEXT（MID（A2,2,LEN（A2）-1）,"*"）`

该公式从姓名的第二个字符开始，将剩余字符用星号替代。例如"张三丰"→"张 丰"。

注意事项

- 需确保姓名长度一致，若存在单字名可能导致格式错误。

三、使用`CONCATENATE`函数（适用于复杂脱敏需求）

公式结构

`=LEFT（A2,1） & "*" & RIGHT（A2,LEN（A2）-1）`

该公式将姓氏与星号、剩余名字拼接。例如"张三丰"→"张*丰"。

扩展应用

可通过拖拽填充柄批量处理多行数据。

四、使用VBA宏（适用于大规模数据脱敏）

若需处理大量数据且公式效率较低，可使用VBA宏实现自动化。例如：

```vba

Sub MaskNames()

Dim rng As Range

Dim cell As Range

Set rng = Selection ' 或指定单元格区域

For Each cell In rng

If Len(cell.Value) > 1 Then

cell.Value = Left(cell.Value, 1) & "*" & Mid(cell.Value, 2, Len(cell.Value) - 1)

End If

Next cell

End Sub

```

运行该宏可快速将选定区域的名字部分替换为星号。

五、注意事项

数据验证：

操作前建议备份数据，避免误操作导致格式错误；

特殊字符处理：

若姓名中包含空格或特殊符号，需调整公式或使用`TRIM`函数去除多余空格；

扩展功能：

可通过`IF`函数判断名字长度，实现差异化处理（如单字名保留原样）。

以上方法可根据具体需求选择，简单场景推荐使用`SUBSTITUTE`或`TEXT`函数，复杂场景建议结合`CONCATENATE`或VBA实现。