请诸位大神帮忙编个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复制，没有设颜色。