比较不同页面上的列

我在Sheet1中列A的帐号数量是可变的，我想在Sheet2列A中将它们与可变数目的帐号进行比较。

我想整理sheet3上的两列，但不重复帐户号码。

所以基本上：

工作表Sheet1：

A1 a3334 a4455 a76655 

Sheet2中：

 A1 a4455 a76655 a3024 a53525 

那么sheet3最终会看起来像：

表Sheet 3：

 A1 a3334 a4455 a76655 a3024 a53525 

提前致谢。

Answer 1

以下应该工作。 它将来自sheet1和sheet2的两列合并到sheet 3中，然后删除重复项。

 Sub combineandcompare() Dim range1 As Range, range2 As Range Set range1 = Worksheets("Sheet1").Range("A1", Worksheets("Sheet1").Range("A65536").End(xlUp)) Set range2 = Worksheets("Sheet2").Range("A1", Worksheets("Sheet2").Range("A65536").End(xlUp)) For Each x In range1 For Each y In range2 Worksheets("Sheet3").Range("A65536").End(xlUp).Offset(1, 0).Value = x.Value Worksheets("Sheet3").Range("A65536").End(xlUp).Offset(1, 0).Value = y.Value Next y Next x Worksheets("Sheet3").Columns(1).RemoveDuplicates Columns:=Array(1) End Sub