Vba 将表1中的每一行与表2中的每一行进行比较-表3中无对写入-硬

我有一个非常大的Excel文件，它有完全相同的列，但都是dirosa。有许多行。我需要一个VBA脚本来帮助比较sheet1和sheet2中的每个完整Eos，如果它没有找到一对，我希望它在sheet3中写入行。 非常重要的是，脚本从sheet1中的第1行开始，然后在sheet2中循环true整个范围，以检查它是否喜欢一对。如果它找不到匹配项，那么我希望它将该行写入第3页

请需要我能得到的一切帮助

---

使用Excel2010-VBA脚本pls

可以使用循环来完成。如果列中有很多行，这可能需要很多时间。否则就可以了。基本上，代码从sheet1中获取每个值，将其与sheet2的每个值进行比较，如果未找到匹配项，则将其写入sheet3。然后重复相同的操作，但将sheet2值与sheet1值进行比较

Sub Compare()

'Get Lengths of the Columns
Z_1 = ActiveWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Z_2 = ActiveWorkbook.Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
'Variable row index for Sheet3
a = 1

'Find exclusive values in sheet1
For i = 1 To Z_1
    j = 1
    Do Until ActiveWorkbook.Sheets(1).Cells(i, 1) = ActiveWorkbook.Sheets(2).Cells(j, 1) Or j > Z_2
        j = j + 1
    Loop
    If ActiveWorkbook.Sheets(1).Cells(i, 1) <> ActiveWorkbook.Sheets(2).Cells(j, 1) Then
        ActiveWorkbook.Sheets(3).Cells(a, 1) = ActiveWorkbook.Sheets(1).Cells(i, 1)
        a = a + 1
    End If
Next i

'Find exclusive values in sheet2
For i = 1 To Z_2
    j = 1
    Do Until ActiveWorkbook.Sheets(2).Cells(i, 1) = ActiveWorkbook.Sheets(1).Cells(j, 1) Or j > Z_1
        j = j + 1
    Loop
    If ActiveWorkbook.Sheets(2).Cells(i, 1) <> ActiveWorkbook.Sheets(1).Cells(j, 1) Then
         ActiveWorkbook.Sheets(3).Cells(a, 1) = ActiveWorkbook.Sheets(2).Cells(i, 1)
        a = a + 1
    End If
Next i

End Sub

子比较（）
'获取列的长度
Z_1=ActiveWorkbook.Sheets（1）.单元格（Rows.Count，1）.结束（xlUp）.行
Z_2=ActiveWorkbook.Sheets（2）.单元格（Rows.Count，1）.结束（xlUp）.行
'表3的可变行索引
a=1
'在sheet1中查找独占值
对于i=1到Z_1
j=1
直到ActiveWorkbook.Sheets（1.Cells（i，1）=ActiveWorkbook.Sheets（2.Cells（j，1）或j>Z_2为止
j=j+1
环
如果ActiveWorkbook.Sheets（1）.Cells（i，1）ActiveWorkbook.Sheets（2）.Cells（j，1），那么
ActiveWorkbook.Sheets（3）单元格（a，1）=ActiveWorkbook.Sheets（1）单元格（i，1）
a=a+1
如果结束
接下来我
'在sheet2中查找独占值
对于i=1到Z_2
j=1
直到ActiveWorkbook.Sheets（2）单元格（i，1）=ActiveWorkbook.Sheets（1）单元格（j，1）或j>Z_1
j=j+1
环
如果ActiveWorkbook.Sheets（2）.Cells（i，1）ActiveWorkbook.Sheets（1）.Cells（j，1），那么
ActiveWorkbook.Sheets（3）.单元格（a，1）=ActiveWorkbook.Sheets（2）.单元格（i，1）
a=a+1
如果结束
接下来我
端接头

它不起作用-它只比较A列，而不是整行。如何解决这个问题？脚本比较整行很重要。