Excel – 从2个不同标题的电子表格创build1个数据透视表

我花了相当长的时间试图find工作，但没有到达任何地方。

场景：2个不同的电子表格，都有不同的标题，但是数据的顺序是正确的，只能从一个电子表格复制到另一个电子表格，并且该数据透视将起作用。

以下是两个不同电子表格的示例：

正如你所看到的，标题是不同的，但实际上可以复制和粘贴的数据，它会整理出来，但不幸的是我不能做任何改变，这就是为什么我需要你的帮助。

我努力了 ：

1. 整合function，但只能工作一次。
2. 设置电子表格并添加到数据模型，但是我需要指定一个主键，并join一个独特的领域，我没有。
3. 我也试过使用多个合并表wizzard，但它只提供“列，行，值”，但我需要实际的标题来select。

最终我需要相同的结果，如果我将从一个电子表格的数据复制和粘贴到另一个，所以我可以填充透视。

请帮忙！

谢谢！

Answer 1

我再一次自己find了解决办法。

我写了一些vba，抓取电子表格数据，并复制并粘贴到一个新的工作表。 然后我把一个关键点连接到这张新表。 这个VBA链接到一个形状（用作button）。 代码如下：

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 

我希望不要这样做，因为现在button需要先点击以合并数据和枢轴刷新VS链接到现有的工作表和枢轴只需要刷新。 好吧…