有人可以帮助您使用vba代码将范围从多个工作表(52周)复制到同一工作簿中的汇总表中。每个工作表中的范围相同。我希望数据被复制并在ssummary工作表中列52粘贴,从week1到第52周从多个工作表复制范围到单个工作表
我发现这个代码在网上:
Sub SummurizeSheets()
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("Summary").Activate
For Each ws In Worksheets
If ws.Name <> "Summary" Then
ws.Range("F46:O47").Copy
Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
Next ws
End Sub
你试过了什么? – 2013-03-26 12:33:15
Sub SummurizeSheets()Dim ws As Worksheet Application.ScreenUpdating = False Sheets(“Summary”)。Activate For Each ws In Worksheets If ws.Name <>“Summary”Then ws.Range(“F46:O47”)。Copy Worksheets (“Summary”)。Cells(Rows.Count,1).End(xlUp).Offset(1,0).PasteSpecial(xlPasteValues)End If Next ws End Sub – user2211547 2013-03-26 12:36:27
运行此代码时会出现什么错误? – 2013-03-26 12:40:21