Excel 将两张图纸动态组合为一张

我有一个类似的问题：

如果我有以下两张工作表：

我想要第三张，看起来像：

---

如何从原始的两个工作表创建第三个工作表？如果我将一行添加到前两张工作表之一，第三张工作表是否会自动更新？

对两张工作表执行以下步骤

在其中一列中选择一个值。 转到“数据”选项卡并从“获取和转换”组中的表中选择。单击“确定”。 在查询编辑器中，从“主页”选项卡上的下拉菜单“关闭并加载”中选择“关闭并加载到”。在“加载到”对话框中，选择“仅创建连接”，然后单击“加载”。 对两个工作表执行此操作后，您现在应该可以在“工作簿查询”窗格中看到以下两个查询

右键单击Table1查询并选择Append。在底部下拉框中选择Table2。单击“确定”。 在查询编辑器中，单击关闭并加载图标，而不是下拉菜单。 你现在有了你想要的桌子。将行添加到表1和/或表2中后，当您单击“数据”选项卡上的“刷新”按钮时，新表Append1将更新

---

对两张图纸执行以下步骤

在其中一列中选择一个值。 转到“数据”选项卡并从“获取和转换”组中的表中选择。单击“确定”。 在查询编辑器中，从“主页”选项卡上的下拉菜单“关闭并加载”中选择“关闭并加载到”。在“加载到”对话框中，选择“仅创建连接”，然后单击“加载”。 对两个工作表执行此操作后，您现在应该可以在“工作簿查询”窗格中看到以下两个查询

右键单击Table1查询并选择Append。在底部下拉框中选择Table2。单击“确定”。 在查询编辑器中，单击关闭并加载图标，而不是下拉菜单。 你现在有了你想要的桌子。将行添加到表1和/或表2中后，当您单击“数据”选项卡上的“刷新”按钮时，新表Append1将更新

---

这太棒了，如果你曾经运行过一次宏，那么你可以第一次尝试

在顶行单击>>开发者 在顶部最左侧单击>>visual basic 右键单击左上栏的文件名>>插入模块 粘贴以下代码，保存并运行play green triangle。 用于将多个excel文件合并到一个excel文件中的不同选项卡

来源

用于将不同选项卡合并到同一excel文件的一个选项卡中

---

Source

这太棒了，如果你曾经运行过一次宏，那么你可以第一次尝试

在顶行单击>>开发者 在顶部最左侧单击>>visual basic 右键单击左上栏的文件名>>插入模块 粘贴以下代码，保存并运行play green triangle。 用于将多个excel文件合并到一个excel文件中的不同选项卡

来源

用于将不同选项卡合并到同一excel文件的一个选项卡中

---

Source

行顺序重要吗？理想情况下，我希望能够对第三张工作表进行排序，即从最低到最高对“值”进行排序。更重要的是，每一行中的信息保持在一起。使用Power Query Get&Transform很容易做到这一点。此方法将原始两个工作表中的列转换为表。这对你来说是个问题吗？谢谢@ScottHoltzman提供建设性的反馈。我已经把我的问题说得更具体了，并将详细介绍你提供的资源。作为参考，我最初的帖子以一个问题结尾：是否有一种方法可以将它们结合起来并动态更新？@MarcoVos只要满足两个标准，我很乐意使用表。1我需要能够将行添加到原始的两个工作表中，并将这些更改传播到表中。2我需要合并的第三个表来填充工作表。只要我能满足这些要求，我很高兴所有的表都放在第四个工作表中。行顺序重要吗？理想情况下，我希望能够对第三个工作表进行排序，即从最低到最高排序“值”。更重要的是，每一行中的信息保持在一起。使用Power Query Get&Transform很容易做到这一点。此方法将原始两个工作表中的列转换为表。这对你来说是个问题吗？谢谢@ScottHoltzman提供建设性的反馈。我已经把我的问题说得更具体了，并将详细介绍你提供的资源。作为参考，我最初的帖子以一个问题结尾：是否有一种方法可以将它们结合起来并动态更新？@MarcoVos只要满足两个标准，我很乐意使用表。1我需要能够将行添加到原始的两个工作表中，并将这些更改传播到表中。2我需要合并的第三个表来填充工作表。只要我能满足这些要求，我很高兴所有的表格都放在第四张工作表中。

Sub mergeExcelFiles()
    'Merges all files in a folder to a main file.
    
    'Define variables:
    Dim numberOfFilesChosen, i As Integer
    Dim tempFileDialog As fileDialog
    Dim mainWorkbook, sourceWorkbook As Workbook
    Dim tempWorkSheet As Worksheet
    
    Set mainWorkbook = Application.ActiveWorkbook
    Set tempFileDialog = Application.fileDialog(msoFileDialogFilePicker)
    
    'Allow the user to select multiple workbooks
    tempFileDialog.AllowMultiSelect = True
    
    numberOfFilesChosen = tempFileDialog.Show
    
    'Loop through all selected workbooks
    For i = 1 To tempFileDialog.SelectedItems.Count
        
        'Open each workbook
        Workbooks.Open tempFileDialog.SelectedItems(i)
        
        Set sourceWorkbook = ActiveWorkbook
        
        'Copy each worksheet to the end of the main workbook
        For Each tempWorkSheet In sourceWorkbook.Worksheets
            tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count)
        Next tempWorkSheet
        
        'Close the source workbook
        sourceWorkbook.Close
    Next i
    
End Sub

Sub mergeExcelTabs()
'UpdatebyExtendoffice20180205
    Dim I As Long
    Dim xRg As Range
    On Error Resume Next
    Worksheets.Add Sheets(1)
    ActiveSheet.Name = "Combined"
   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange
        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If
        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next
End Sub