Excel - 从2个不同标题的电子表格创建1个Pivot

Question

我花了很长时间试图让某些东西起作用，但却没有到达任何地方。

场景：2个不同的电子表格，两者都有不同的标题，但数据的顺序正确，可以从一个电子表格复制到另一个电子表格，并且数据透视图可以正常工作。

以下是2种不同电子表格的示例：

正如您所看到的，标题不同但数据可能会被复制和粘贴，并且会对其进行排序，但遗憾的是我无法进行任何更改，这就是我需要您帮助的原因。

我试过了：

1. 合并功能，但只能使用一次。
2. 将电子表格设置为表格并添加到数据模型，但是我需要指定一个主键并将它们与一个我没有的唯一字段连接起来。
3. 我也尝试过使用Multiple Consolidated Sheets wizzard，但它只提供“Column，Row，Value”，但我需要实际的标题来选择。

最终我需要相同的结果，好像我将数据从一个电子表格复制并粘贴到另一个电子表格中，这样我就可以填充数据透视。

请帮忙！

谢谢！

Answer 1

我再一次找到了解决方案。

我写了一些vba，它抓住了两个电子表格数据并复制并粘贴到一个新的表格中。然后我将一个支点链接到这个新工作表。此VBA链接到一个形状（用作按钮）。代码如下：

Public Sub Combine_OpenFEC_ADM_and_FEC_GoldenPeanut()
'----------------------------------------------------------------------------------------------------------
'Consolidating FECs Peanut and FECs ADM for Pivot on FX Exposure Tab
'----------------------------------------------------------------------------------------------------------
Dim Mainworkbook As Workbook
Dim wsFEC_GoldenPeanut As Worksheet, wsFEC_ADM As Worksheet, wsFEC_Combined As Worksheet, wsFX_Exposure As Worksheet

Set Mainworkbook = ActiveWorkbook
Set wsFEC_GoldenPeanut = Mainworkbook.Sheets("Open FECs Golden Peanut USD")
Set wsFEC_ADM = Mainworkbook.Sheets("Open FECs ADM Comm USD")
Set wsFEC_Combined = Mainworkbook.Sheets("Open FECs Golden Peanut & ADM")
Set wsFX_Exposure = Mainworkbook.Sheets("FX EXPOSURE")

'Clear sheet
wsFEC_Combined.Range("A1:Z10000").ClearContents

wsFEC_ADM.Select

'wsFEC_ADM.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
wsFEC_ADM.Range("A1:K" & wsFEC_ADM.UsedRange.Rows.Count).Select
Selection.Copy
wsFEC_Combined.Select
wsFEC_Combined.Cells(1, 1).Select
ActiveSheet.Paste

wsFEC_GoldenPeanut.Select
wsFEC_GoldenPeanut.Range("A2:K" & wsFEC_GoldenPeanut.UsedRange.Rows.Count).Select
Selection.Copy
wsFEC_Combined.Select
wsFEC_Combined.Cells(wsFEC_ADM.UsedRange.Rows.Count + 1, 1).Select
ActiveSheet.Paste

wsFX_Exposure.Select
End Sub

我希望不要这样做，因为现在需要首先点击按钮来组合数据和刷新的透视图与链接到现有工作表和枢轴只需要刷新。哦，好吧......