不用VBA，条件格式就可以解决，数据有效性也可以解决。选中你A列这五十个单元格。点格式，条件格式，左边的条件1下的选框内选公式，右边的格内输入公式：=COUNTIF(A:A,A1)>1，中右边有一个格式的按钮，你点一下，设置一种格式，比如，你可以设置字变成红色，也可以设置底色变成红色，然后确定出来就可以了，这样，当你输入的数据与前面的有重复的时候这两个单元格会自动变成红色。
