可以用vba实现. 右击工作表标签>查看代码>粘贴下面代码 即可实现在输入内容时如果左侧单元格内容为"身份证号:"则将身份证号的后4位替换为**** Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo e With Target If .Offset(, -1).Value = "身份证号:" Then Application.EnableEvents = False .Value = Left(.Value, 14) & "****" Application.EnableEvents = True End If End With e: End Sub