新人求代码：对比两个工作表数据实现数据更新

wallden

新人求助，对比新旧数据，不断更新新新的数据，希望热心人帮忙，觉得应该不难，觉得不用VBA应该也能实现，但是小弟想慢慢学习VBA，望大家不吝赐教代码。 更新数据.zip (10.87 KB, 下载次数: 51)

2015-11-9 13:37 上传

点击文件名下载附件
详细要求在表中

xiaohuaxiong

Sub CompareThenRemark()
    Dim arr1, arr2, x&, y&, m&
    arr1 = Sheets("Sheet1").Range("A1").CurrentRegion
    arr2 = Sheets("Sheet2").Range("A1").CurrentRegion
    For x = 2 To UBound(arr2)
        If Application.CountIf(Sheets("Sheet1").[D:D], arr2(x, 4)) = 0 Then
            Sheets("Sheet2").Cells(x, 4).Interior.Color = 255
        Else
            For y = 1 To UBound(arr2, 2)
                m = Application.Match(arr2(x, 4), Sheets("Sheet1").[D:D], 0)
                If arr2(x, y) <> arr1(m, y) Then
                    Sheets("Sheet2").Cells(x, y).Interior.Color = 65535
                    Sheets("Sheet1").Cells(m, y).Interior.Color = 65535
                End If
            Next y
        End If
    Next x
End Sub

wallden

谢谢，谢谢没想到这么迅速，我去学习学习

寂静乡村

xiaohuaxiong 发表于 2015-11-9 14:24
Sub CompareThenRemark()
    Dim arr1, arr2, x&, y&, m&
    arr1 = Sheets("Sheet1").Range("A1").C ...

如果出现同名字的，怎么对比？可不可以添加一列身份证号之类的？代码又是怎么写，大神，求指教！