[求助] 懂EXCEL的进来帮一下忙吧.谢谢.

用if做一个也行。不过七楼方法比较简单了。

还是用宏程序啊，那个快
sub test()

for i = 1 to 60000
if cell(i,1).value<>cell(i,2).value then cell(i,3).value = "N"
next i

end sub

高手挺多的，学习一下

长知识呀，可惜我真的看不懂呀！

我知道一种简单的方法：
用一个IF公式：IF(A1=B1,"相等","不相等")
拖动复制公式就出来了!
不过这样操作以后还要用7楼提供的方法才能剃出相同的行!



[ 本帖最后由 liudeng 于 2007-3-23 21:45 编辑 ]

Public Sub list_a()
For Each xo1 In Selection
If xo1.Value <> Application.ActiveSheet.Cells(xo1.Row, xo1.Column + 1).Value Then
Application.ActiveSheet.Cells(xo1.Row, xo1.Column + 2).Value = 1
End If
Next xo1
'选中第一列，能够识别第一列和第二列的不同单元，不同的行在第三列用1标记。
End Sub



[ 本帖最后由 skyking 于 2007-3-23 21:58 编辑 ]

正在学习中，进来吸取点经验