可通过数据验证设置唯一性规则自动拦截重复值，辅以条件格式高亮、动态名称管理器扩展范围或vba代码强制控制。
如果您在Excel中录入数据时希望避免同一列或同一区域出现重复值，可以通过数据验证功能实现自动拦截。以下是具体操作步骤：
一、使用数据验证设置唯一性规则
该方法通过Excel内置的数据验证功能，在用户输入重复值时弹出警告提示，阻止非法录入。适用于单列或连续单元格区域，无需编写公式即可快速启用。
1、选中需要防止重复录入的目标单元格区域（例如A2:A100）。
2、点击【数据】选项卡，选择【数据验证】→【数据验证】。
3、在【允许】下拉菜单中选择【自定义】。
4、在【公式】框中输入：=COUNTIF($A$2:$A$100,A2)=1（注意将$A$2:$A$100替换为实际选中区域的绝对引用，A2为当前区域左上角单元格地址）。
5、切换到【出错警告】选项卡，勾选【显示错误警告】，设置标题和错误信息（如“重复值禁止录入”、“该值已存在，请输入其他内容”）。
6、点击【确定】完成设置。
二、结合条件格式高亮重复项辅助识别
此方法不阻止输入，但能实时标出已存在的重复值，便于人工核查与修正，常作为数据验证的补充手段。
1、选中目标数据区域（如A2:A100）。
2、点击【开始】选项卡，选择【条件格式】→【突出显示单元格规则】→【重复值】。
3、在弹出对话框中，【重复值】下拉选择【重复】，【设置为】选择一种醒目颜色（如浅红色填充）。
4、点击【确定】，所有重复出现的值将被自动标记。
三、使用公式配合名称管理器构建动态防重逻辑
该方法适用于需要跨多列判断唯一性，或要求验证范围随数据增长自动扩展的场景，利用名称定义动态区域并嵌入验证公式。
1、按Ctrl+F3打开【名称管理器】，点击【新建】。
2、名称填写“DataRange”，引用位置输入：=OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$A:$A)-1,1)（假设数据从A2开始，Sheet1为当前工作表名）。
3、选中A2单元格，打开【数据验证】→【自定义】，公式栏输入：=COUNTIF(DataRange,A2)=1。
4、设置错误警告后点击【确定】。
5、将A2的数据验证格式通过【格式刷】或【复制粘贴】应用至A3:A1000等后续单元格。
四、通过VBA代码实现强制唯一性控制
该方法可完全禁止重复值写入，且支持更复杂的判断逻辑（如忽略空格、大小写等），适合有编程基础的用户部署于受控环境。
1、按Alt+F11打开VBA编辑器，双击左侧对应工作表（如Sheet1）。
2、粘贴以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Me.Range("A2:A100")) Is Nothing Then
Set rng = Me.Range("A2:A100")
If Application.WorksheetFunction.CountIf(rng, Target.Value) > 1 Then
Application.EnableEvents = False
Target.ClearContents
MsgBox "该值已存在，已自动清除！"
Application.EnableEvents = True
End If
End If
End Sub
3、关闭编辑器，返回Excel界面。
4、确保Excel启用宏（文件→选项→信任中心→宏设置→启用所有宏）。
