不是什么都需要vba的，直接公式+条件格式即可。
步骤：
1、在D1输入：
=IF(A1="","",IF(COUNTIF($A1:A1,A1)=1,A1,""))
向右拉2列，然后下拉3列就设置好数据公式了。
2、条件格式先选择 D1，然后依次从上往下红圈内容操作，条件格式公式为：
=COUNTIF($A1:$C1,D1)=2
效果设置为绿色，然后再使用同样方法，公式改为
=COUNTIF($A1:$C1,D1)=3，效果设置为字体红色
3、使用格式刷将D1格式刷到D1到F3区域，完成操作。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024