探讨EXCEL的重复输入解决方案

探讨EXCEL的重复输入解决方案我们在共享Glossary的时候，可能会出现某个词条被不同的人输入多次，浪费时间和精力是一个方面，还会导致不一致的问题。我们可以使用EXCEL的数据有效性功能，来减少或避免重复的输入。前提：大家在共享编辑的时候，必须实时保存，以便每个人看到的都是“最新”的文件内容。入门篇先探讨最简单的，在单个Sheet中避免重复的输入。具体的做法如下：1，设计好Glossary表格后，选中要避免重复的列（通常是English列），然后从菜单中“数据”-“有效性”。2，在“设置”选项卡的“允许”字段中选择“自定义”。3，在“公式”字段中输入类似下图的公式。4，在“出错警告”选项卡中选择相应的“样式”，根据禁止级别，由高到低分别为“中止”、“警告”和“信息”。根据需要选择其中一种样式。在标题和出错信息中分别输入相应的信息。单击“确定”，完成设置并关闭对话框。5，尝试输入不同的内容，当某个单元格输入的内容与现有的输入重复时，便出现相应的提示信息。“中止”：强制修改输入的信息，或取消重复的输入。“警告”：显示警告消息，但可以选择“是”以继续重复的输入，或选“否”以修改输入的信息，选择“取消”以取消当前输入。“信息”：显示提示信息，选择“确定”接受当前输入，选择“取消”取消当前输入。进阶篇跨表控制重复的输入大多数设置与前面都一样，只是有效性公式不同。例如，要让Sheet1的A列中的内容与Sheet2的A列中的内容不重复，可输入如下公式：高级篇VBA编程控制重复的输入哇！有点太高深了吧，我写不下去了，给一个最简单最简单的例子，大家自己研究吧。和上面一样，跨表控制重复输入，可编写如下宏：PrivateSubWorksheet_Change(ByValTargetAsRange)DimrngAAsRangeForEachrngAInTargetB=Application.WorksheetFunction.CountIf(Sheets(sheet1).Range(A1:A100),rngA)A=Application.WorksheetFunction.CountIf(Sheets(sheet2).Range(A1:A100),rngA)IfA+B1ThenMsgBox出现重复数据rngA=EndIfNextEndSub