亲，是否要求必须用宏？条件格式就可以解决呀。
选中B列，新建一个条件格式，使用公式设置：=MATCH(B1,$A:$A,0)
然后“格式”设置字体为红色。
选中B列，格式条件格式点“单元格数值”，选“公式”填入=countif(A:A,B1)>0同时设置单元格字体色。
