vba - 两个范围内的值的并集

Question

列表示我正在尝试从两个数据透视表中创建两个范围内的值的联合：

所以基本上我想要结束的是让我在单元格 J5 中有一个来自两个数据透视表（两个集合的联合）的所有独特工作类型的列表。

我现在已经创建了两个具有所有工作类型的范围（每个数据透视表中的一个），现在我想在单元格 J5 中得到一个来自两个范围的所有唯一值的组合列表。

有什么建议么？

编辑，

我创建了两个范围的联合：

Set rUnion = Application.Union(rLeftPivot, rRightPivot)

但是当我尝试运行时：

rUnion.AdvancedFilter Action:=xlFilterCopy, _
   CopyToRange:=Range("J5"), Unique:=True

我收到 1004 错误：“数据库或表范围无效”，有什么建议吗？

Answer 1

我认为有很多可能性可以做到这一点。可能的答案之一如下：

Dim Rng1 As Range
Dim Rng2 As Range

Set Rng1 = Range("A1:a10")
Set Rng2 = Range("B1:B10")

With Range("J5")
    .Resize(Rng1.Rows.Count, 1) = Rng1.Value
    .Offset(Rng1.Rows.Count, 0).Resize(Rng2.Rows.Count, 1) = Rng2.Value

    'remove duplicates
    Range("J5", .End(xlDown)).RemoveDuplicates 1, xlNo
End With