我只有一个包含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
感谢您的建议