请各位大神帮忙编个excel07的宏,该如何处理

请各位大神帮忙编个excel07的宏
帮忙编写个excel的宏
需求是把sheet1和sheet2的所有数据做对比，如果不一样就把那一行记录到sheet3中

sheet1和sheet2每行每列都有很多数据的，哪个单元格不一样就把不一样的单元格相对的sheet1中那一行的所有数据记录在sheet3中，最好在sheet3中能把不一样的那一个单元格用红色表示

谢谢大侠

------解决方案--------------------------------------------------------
k = 1
For i = 1 To Sheet1.[A65530].End(xlUp).Row
For j = 1 To Sheet1.Cells(i, 256).End(xlLeft).Column
If Sheet1.Cells(i, j) <> Sheet2.Cells(i, j) Then
Sheet1.Rows(i).Copy Sheet3.Rows(k)
k = k + 1
Exit For
End If
Next j
Next i

每一行只要找到不相等的列就王sheet3复制，没有设颜色。