欢迎来到天天文库
浏览记录
ID:29925190
大小:54.50 KB
页数:7页
时间:2018-12-25
《合并月度报表代码》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
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
此文档下载收益归作者所有