合并月度报表代码

《合并月度报表代码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、Sub合并产量报表()''合并产量报表Macro''Sheets("5-31").SelectRows("3:10").SelectSelection.CopySheets("合并工作表").SelectRange("A2").SelectActiveSheet.PasteSheets("5-31").SelectApplication.CutCopyMode=FalseActiveWindow.SelectedSheets.DeleteRows("4:10").SelectSelection.CopySheets("合并工作表").SelectRange("A10").Sele

2、ctActiveSheet.PasteActiveWindow.SmallScrollDown:=9Range("A17").SelectSheets("5-30").SelectApplication.CutCopyMode=FalseActiveWindow.SelectedSheets.DeleteRows("4:10").SelectSelection.CopySheets("合并工作表").SelectRange("A17").SelectActiveSheet.PasteActiveWindow.SmallScrollDown:=9Range("A24").Selec

3、tSheets("5-29").SelectApplication.CutCopyMode=FalseActiveWindow.SelectedSheets.DeleteRows("4:10").SelectSelection.CopySheets("合并工作表").SelectActiveSheet.PasteRange("A31").SelectSheets("5-28").SelectApplication.CutCopyMode=FalseActiveWindow.SelectedSheets.DeleteRows("4:10").SelectSelection.Copy

4、Sheets("合并工作表").SelectActiveSheet.PasteActiveWindow.SmallScrollDown:=9Range("A38").SelectSheets("5-27").SelectApplication.CutCopyMode=FalseActiveWindow.SelectedSheets.DeleteRows("4:10").SelectSelection.CopySheets("合并工作表").SelectActiveSheet.PasteActiveWindow.SmallScrollDown:=9Range("A45").Sele

5、ctSheets("5-26").SelectApplication.CutCopyMode=FalseActiveWindow.SelectedSheets.DeleteRows("4:10").SelectSelection.CopySheets("合并工作表").SelectActiveSheet.PasteActiveWindow.SmallScrollDown:=12Range("A52").SelectSheets("5-25").SelectApplication.CutCopyMode=FalseActiveWindow.SelectedSheets.Delete

6、Rows("4:10").SelectSelection.CopySheets("合并工作表").SelectActiveSheet.PasteRange("A59").SelectSheets("5-24").SelectApplication.CutCopyMode=FalseActiveWindow.SelectedSheets.DeleteRows("4:10").SelectSelection.CopySheets("合并工作表").SelectActiveSheet.PasteActiveWindow.SmallScrollDown:=12Range("A66").S

7、electSheets("5-23").SelectApplication.CutCopyMode=FalseActiveWindow.SelectedSheets.DeleteRows("4:9").SelectSelection.CopySheets("合并工作表").SelectActiveSheet.PasteActiveWindow.SmallScrollDown:=6Range("A72").SelectSheets("5-22").SelectApplication