输入重复值时提示

平时在输入大量数据时,在同一列中自上往下输入,一不注意可能会输入重复项。 有没方案能提示输入重复呢? 有2种方案:一个是函数countif在数据有效性中定义,另一个是VBA宏代码。 先来写写函数方法: 比如我们是在B列中输入数据的那范围就是B1~B65536,在数据有效性中使用自定义,在公式中输入:=COUNTIF($B$1:$B$65536,B1)=1,随之向下填充,当输入重复值会提示,并清空当前输入值。 VBA代码:   Private Sub Workbook