sub bijiao()
dim i as long
i=cells(65536,x).end(xlup).row
for i= 1 to 1
if cells(i,x).value=cells(i,y).value then
cells(i,y).Interior.ColorIndex=3 '设置单元格填充色为红色
end if
next i
end sub
x为前一列列数
y为后一列列数
若要换成其它颜色,则改变cells(i,y).Interior.ColorIndex=3等号后的值就可以了
条件格式：
A列——原始列（用于与B列比较）
B列——比较列（用于填充颜色）
选中B1单元格，格式/条件格式/公式：
=EXACT(a1,b1)
填充红色
用格式刷往下刷~~完工
其实条件格式就能解决
我不会VBA，对于这种简单问题我一般是用简单的条件格式去做。
一定得用VBA吗？
做个条件格式应该能解决吧，啊，有点急事先闪了，望后者能给你条件格式的公式.....如果感兴趣可以留言给我。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024