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)  //打开一个excel
Set PlanWS5 = PlanWB5.Worksheets(SheetName)//选择一个sheet也
PlanWS5.Activate//激活
    
 PlanWS5.Range("G3:H17").Interior.ColorIndex = 0// 单元格内部颜色设置

3.

ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh

刷新数据透视表