在excel两表中，如何批量对比相同的数据

KANKAN

使用vba吧，以下是对比A、B、C三列数据的代码，对比结果在D列里列出。建立一个命令按钮，粘贴以下代码（假设sheet1是当前活动表格），参考下吧：
Dim hang1, hang2, hang3, hang4, i, j, k As Integer
hang1 = Range("A65536").End(xlUp).Row
hang2 = Range("b65536").End(xlUp).Row
hang3 = Range("c65536").End(xlUp).Row
For i = 2 To hang3
For j = 2 To hang2
If Sheet1.Cells(i, 3).Text = Sheet1.Cells(j, 2).Text Then
For k = 2 To hang1
If Sheet1.Cells(j, 2).Text = Sheet1.Cells(k, 1).Text Then
hang4 = Range("D65536").End(xlUp).Row
Sheet1.Cells(hang4 + 1, 4).Value = Sheet1.Cells(i, 3).Value
End If
Next k
End If
Next j
Next i