不知道本站有没有高人会逐行一一对比两列数据

xxxl

A                B
1陈百迪        陈百迪
2陈自殷        陈自殷
3陈持灼        陈持灼
4陈金满        陈金满
5方载女        方载女
6方齐伟        方齐伟
7方齐件        陈持灼
8方家业        方齐件
9方家运        方家运
如上两列已经排好序的姓名，要求逐行一一进行对比，即A1对比B1，A2对比B2……A9对比B9,找出其中不一致的行，怎么做
在网上搜了好久，没有太合适的方法，有一个用条件格式的，但是是A1对比B1--B9，然后A2对比B1--B9的循环对比，不和我的要求
在搜方法的过程中，找到了本站，不知道本站有没有高人，请指教。（我用的2003）

zgwei050

选取A列，格式-条件格式-单元格数值-不等于-B1-格式（设置必要的图案-字体颜色）

zhc19620430

可以的呀，使用函数。

liuxiao

发个附件！可以用IF函数解决啊！

zhc19620430

看看很简单，截图。

lhw78535

太简单了，用个for 循环，加入if 就行了

lhw78535

'如果不相等，就在C列当前行标注为1
sub macro()
dim r as integer,i as integer
r=[a65536].end(xlup).row
for i=1 to r
if range("a" & i)<>range("b" & i) then range("c" & i)=1
next
end sub

shenyl0211

第三列单元格格式的数字属性设为自定义，并选"真";"真";"假"，然后输入公式=exact(A1,B1),为true即相同

liuxiao

[quote]原帖由 lhw78535 于 2010-3-24 22:30 发表
'如果不相等，就在C列当前行标注为1
sub macro()
dim r as integer,i as integer
r=[a65536].end(xlup).row
for i=1 to r
if range("a" & i)<>range("b" & i) then range("c" & i)=1
next
end sub
此代码经测试第一次判断不相等（不相同)标注为1成功，当手动把不相等（不相同）的数值调整为相等（相同），第二次就不能重新标注，把已经标注的1清除，即刷新成新数据标注。请解决？

[ 本帖最后由 liuxiao 于 2010-4-22 08:01 编辑 ]