常用的方法:
方法1:通过“多重合并计算数据区域”功能
1. 打开“数据”选项卡。
2. 点击“多重合并计算数据区域”按钮。
3. 在“多重合并计算数据区域”对话框中,选择第一个数据透视表,然后点击“添加”按钮。
4. 选择第二个数据透视表,然后点击“添加”按钮。
5. 如果需要,设置“每个数据透视表中的范围”选项。
6. 点击“确定”按钮。
7. 在“多重合并计算数据区域”对话框中,点击“求解模板”按钮以创建计算结果。
8. 将计算结果另存为新工作表。
方法2:使用数组公式
1. 首先,将第二个数据透视表的字段拖动到第一个数据透视表的区域中。例如,如果您希望将第二个数据透视表的"产品"和"销售额"字段添加到第一个数据透视表,请将它们拖动到"产品"和"销售额"字段所在的单元格。
2. 选中第一个数据透视表的所有值区域。
3. 使用数组公式来计算两个数据透视表的总和。按Ctrl+Shift+Enter以启用数组公式。例如:
```
=SUM('数据透视表1'!产品, '数据透视表1'!销售额)
```
4. 刷新第二个数据透视表,以确保数据同步。
方法3:通过VBA代码
1. 打开Excel的VBA编辑器。
2. 在VBA编辑器中,点击"插入"菜单,选择"模块"。
3. 在模块代码窗口中,编写以下VBA代码:
```vba
Sub 联合数据透视表()
Dim SourceRange1 As Range, SourceRange2 As Range, ResultRange As Range
Dim s As Worksheet
Set s = ThisWorkbook.Worksheets("Sheet1")
Set SourceRange1 = s.Range("A1:A10")
Set SourceRange2 = s.Range("C1:C10")
' 使用VBA数组公式将两个数据透视表的结果合并在一起
ResultRange = Array(SourceRange1(i), SourceRange2(i)) ' 将结果合并到区域中,i表示行
' 将合并后的结果复制到新工作表
For Each i In ResultRange
s.Range("A" & i).Value = Application.WorksheetFunction.Transpose(ResultRange(i))
Next i
End Sub
```
4. 运行VBA代码以创建新工作表并将结果复制