两个范围内的价值联盟

Question

列表示我试图在两个数据透视表的两个范围内创建值的并集：

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

我现在创建了两个包含所有工作类型的范围（每个数据透视表中有一个），现在我希望最终得到单元格J5中两个范围内所有唯一值的组合列表。

有什么建议吗？

编辑

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

Set rUnion = Application.Union(rLeftPivot, rRightPivot)

但是当我尝试跑步时：

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

我收到1004错误：＆＃34;数据库或表格范围无效＆＃34;，有什么建议吗？

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