怎样将几个工作表合并在一个汇总表，并自动更新

kongkm

各位大神，寻求帮忙，怎么将几个工作表合并在一个汇总表里，并能自动更新内容在最后的。也可以点击更新按钮就能更新内容的。

lzqmsy

Sub 复制()
Dim sht As Worksheet, arr, brr, i&, j&, k&
Application.ScreenUpdating = False
ReDim brr(1 To Cells.Rows.Count, 1 To 7)
For Each sht In Worksheets
    With sht
        If .Name <> "汇总图书" Then
            arr = .Range("A4:G" & .Cells(Rows.Count, 2).End(3).Row)
            For i = 1 To UBound(arr)
                k = k + 1
                For j = 2 To UBound(arr, 2)
                    brr(k, j) = arr(i, j)
                Next
                brr(k, 1) = k
            Next
        End If
    End With
Next
[A5:i8000].ClearContents
[A5].Resize(k, 7) = brr
Application.ScreenUpdating = True
End Sub

lzqmsy

就是你原来的代码稍微修改了几处,然后放在模块里就可以了

kongkm

lzqmsy 发表于 2017-5-13 23:05
就是你原来的代码稍微修改了几处,然后放在模块里就可以了

谢谢了，要是能自动更新就好了，有个快捷键按钮更新也不错啊。

kongkm

还有哪位大神有办法吗？

/aiq红豆/aiq

二楼老师写的代码好用吗？