1.PlanWS5.Range("D5:E13").Copy 复制PlanWS5.Range("G5:H13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 选择性黏贴Application.CutCopyMode = False清空剪贴板在复制或者剪切了大量内容后关闭文件,如果不写上这句代码,1、会出现提示窗口:是否保存手复制的内容到剪贴板,以便下次使用。这时文件不能自动关闭,必须手动关闭提示框才关闭文件。2.Set PlanWB5 = Excel.Workbooks.Open(FilePN5) //打开一个excelSet PlanWS5 = PlanWB5.Worksheets(SheetName)//选择一个sheet也PlanWS5.Activate//激活 PlanWS5.Range("G3:H17").Interior.ColorIndex = 0// 单元格内部颜色设置
3.
ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh
刷新数据透视表
转载于:https://www.cnblogs.com/c-x-a/p/6077682.html
相关资源:VBA笔记,宏速查(学习)表 超实用