比较不同表格上的列

Question

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

我想在sheet3上整理两列但不重复帐号。

基本上是这样的：

Sheet 1中：

A1 
a3334
a4455
a76655

Sheet 2中：

A1
a4455
a76655
a3024
a53525

然后sheet3最终看起来像：

表Sheet 3：

A1
a3334
a4455
a76655
a3024
a53525

提前致谢。

Answer 1

以下内容应该有效。它将sheet1和sheet2中的两列组合成表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