如果你想避免在Excel中的列中输入重复的值，你可以参考这篇文章。 在这里，我们将与您分享 2 个简单的方法。
有时，当您编辑 Excel 工作表时，您可能希望确保列中的数据是唯一的，即防止列中的重复值。 它要求 Excel 在您每次在列中输入重复值时自动提醒您。 下面就给大家分享2个快速获取的方法。
方法一：通过“数据验证”来预防
- 首先，选择特定列中的所有单元格，例如“Column A”。
- 然后，转到“数据”选项卡并单击“数据工具”组中的“数据验证”按钮。
- 接下来，在弹出的对话框中，在“设置”选项卡上，从“允许”下拉列表中选择“自定义”选项。
- 之后，在“公式”字段中输入以下公式。
= COUNTIF（$ A $ 1：$ A $ 20，A1）= 1
- 稍后，切换到当前对话框中的“错误警报”选项卡。
- 随后，您可以根据需要自定义错误消息，例如将“重复值”指定为错误标题和“该值已在同一列中输入！” 作为错误信息。
- 最后，单击“确定”。
- 现在，您可以尝试一下。
- 首先，在单元格 A1 中输入一个值。
- 然后，在单元格 A2 中输入相同的值。
- 您将立即收到错误消息，如以下屏幕截图所示。
方法二：用Excel VBA防止
- 首先，参考“触发 Excel VBA 编辑器如何在 Excel 中运行 VBA 代码“。
- 然后，将以下代码放入工作表的项目中，如“Sheet 1 (Sheet 1)”
私人子工作表_Change（ByVal Tar获取 As Range) Dim strTargetColumn As String Dim nTargetRow As Integer Dim nLastRow As Integer Dim strMsg As String strTargetColumn =拆分（Target.Address(, False), "$")(0) nTargetRow =拆分（Target.Address(, False), "$")(1) nLastRow = ActiveSheet.Range(strTargetColumn & ActiveSheet.Rows.Count).End(xlUp).Row For nRow = 1 To nLastRow If nRow <> nTargetRow Then If ActiveSheet.Range(strTargetColumn & nRow).Value = Target.Value Then strMsg = "该值已输入同一列！" MsgBox strMsg, vbExclamation + vbOKOnly, "重复值"
Target.Select Exit For End If End If Next End Sub 结束
- 从那时起，每当您在任何单元格中输入一个值时，无论在任何列中，宏都会自动检查同一列中的其他值。 如果它找到相同的值，您将收到警报，如下图所示。
竞品对比
| 性能 | 缺点 | |
| 方法1 | 操作简便 | 只能对特定列的数据进行监控和操作 |
| 方法2 | 可以监控和处理所有列中的数据 | 增加病毒或恶意软件攻击的风险 |
取回宝贵的 Excel 数据
不可否认，Excel 很容易崩溃。 每次崩溃时，当前打开的 Excel 文件都会像微风一样损坏。 因此，为了避免丢失宝贵的 Excel 数据，您不仅应该定期备份它们，而且还必须掌握一个出色的 xls恢复 工具，例如 DataNumen Excel Repair. 如果发生严重的 Excel 数据损坏，它将派上用场。
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的中密度纤维板 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com