首页 > 解决方案 > Excel xlsm 将数据表单表添加到主表

问题描述

我有一个包含各种数据(列和行)的主表(Master)和一些具有相同列的单独的表(SheetA、SheetB 等)。我想在 SheetA、SheetB 等中添加行,并且应该自动将新行添加到主表(Master)中。

我尝试使用宏或 Excel 函数,但无法做到。我希望有一个人可以帮助我。可能这个问题很常见,但我无法为我的问题找到正确的答案。

我能找到的最有希望的解决方案如下

Sub Combine()
    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

可悲的是,我的知识非常有限,因此我不知道如何更改代码以便仅将一张表(SheetA)合并到 Matsersheet(Master)而不创建新的

提前感谢谁能帮助我。

标签: excelvbamergexlsm

解决方案


推荐阅读