比较不同工作表上的列

【问题标题】：comparing Column on different sheets比较不同工作表上的列
【发布时间】：2015-10-08 09:18:11
【问题描述】：

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

我想将 sheet3 上的两列整理在一起，但不重复帐号。

所以基本上：

表 1：

表 2：

然后 sheet3 最终看起来像：

表 3：

提前致谢。

【问题讨论】：

标签： vba excel

【解决方案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

【讨论】：