求助~excel工作表内容自动合并

cheeryfan

我希望把我工作薄里面的几个工作表里的内容自动合并更新到后面的汇总表里面，不用计算，单纯合并过去就好，主要每次在前面的工作薄里录入了信息之后还需要再复制粘贴到汇总表里面，感觉没有效率，有没有哪位大神能帮我实现在前面的分表里录入信息后可以自动汇总到最后的汇总表里面？

lsc900707

Sub lsc()
    Dim brr(1 To 2000, 1 To 16)
    bt = Sheets(1).Rows(1)
    For Each sht In Worksheets(Array("四期", "尚", "建发"))
       arr = sht.[a1].CurrentRegion
       For i = 2 To UBound(arr)
           If arr(i, 1) <> "" Then
                n = n + 1
                For j = 1 To UBound(arr, 2)
                    brr(n, j) = arr(i, j)
                Next
            End If
        Next
    Next
    If n = 0 Then
        MsgBox "没有找到有关数据！"
    Else
        With Sheets("汇总")
            .Rows(1) = bt
            .Columns("F:F").NumberFormatLocal = "@"
            .[a2].Resize(n, UBound(arr, 2)) = brr
        End With
    End If
End Sub

jiminyanyan

最近好多人问合并的问题………………。

lsc900707

jiminyanyan 发表于 2017-3-28 20:54
最近好多人问合并的问题………………。

看到很多新人贴时，我就想到了培训班办的很红火>>>>>>>

lsc900707

你搞那么多空行，本来简单的两句代码就可以的。

cheeryfan

非常感谢前辈的代码~
本人作为一个连vba是神马都不知道的菜鸟，居然通过百度+摸索，成功复制并运行了代码，手动检测汇总数据，完全吻合，哈哈，简直太有成就感了！

LMY123

同薄指定表合并