从同一工作簿中的选定工作表更新主工作表

时间:2016-03-18 12:50:14

标签: excel vba excel-vba

我只有一个包含16个工作表的工作簿(其中一个是Master)。我想要的只是从前三个工作表中获取数据 并将其复制到工作表Master。每个工作表中都有共享的列,我希望只从列中获取A - I列。 还有一件事是随时更新单个工作表我希望相应地更新工作表Master。 我附上了示例文件,因此您可以了解我需要的内容。

链接到该文件: https://www.dropbox.com/s/amgah04uwqr6b0n/Sample.xlsx?dl=0

这是我的VBA代码示例,它只能部分工作。 我不知道如何更改它所以它只选择前3个首页。 目前它选择了每个工作表。

Sub Summarize()
Dim ws As Worksheet
Dim lastRng As Range
Application.ScreenUpdating = False 'speed up code

ThisWorkbook.Sheets("Master").Rows("2:65536").ClearContents 'clear

For Each ws In ThisWorkbook.Worksheets
    Set lastRng = ThisWorkbook.Sheets("Master").Range("A65536").End(xlUp).Offset(1, 0)

    Select Case ws.Name
    Case "Master" 'exlude
         'do nothing
    Case Else
        ws.Activate

         'copy data from individual sheets
        Range("A2", Range("I65536").End(xlUp)).Copy lastRng

    End Select
Next
Application.CutCopyMode = False 'clear clipboard
Application.ScreenUpdating = True
Sheets("Master").Activate
End Sub

感谢您的建议

0 个答案:

没有答案