songshumn
第一步，老规矩，我们先要打开Excel表格中自带的VBA编程界面，具体如何打开，在上一篇文章中有介绍，如果不知道如何打开该界面的话可以参考《手把手教你如何用程序思维快速比对excel数据》。进入VBA代码编辑界面 简单的函数介绍，在复制粘贴表格数据中一般常用的有如下这些函数。Worksheets(Array(“sheet1”，”sheet2”))Select '同时选择工作表1和工作表2Sheets(“sheet1”)Delete或 Sheets(1)Delete '删除工作表1ActiveWSheets(i)Name '获取工作表i的名称ActiveCCurrentRSelect或Range(ActiveCEnd(xlUp)，ActiveCEnd(xlDown))Select'选择当前活动单元格所包含的范围，上下左右无空行CSelect ‘选定当前工作表的所有单元格Range(“A1:D4”)Clear'彻底清除A1至D4单元格区域的内容，包括格式TextColor=Range(“A1”)FColorIndex ‘检查单元格A1的文本颜色并返回颜色索引Range(“A1”)IColorIndex ‘获取单元格A1背景色拷贝整个工作表：ExcelIDActiveSURCopy;拷贝指定区域：ExcelIDActiveSRange[ 'A1:E2' ]Copy;从A1位置开始粘贴：ExcelIDActiveSR[ 'A1' ]PasteSpecial;从文件尾部开始粘贴：ExcelIDActiveSRPasteSpecial; 进入编程界面后将代码写入代码编辑器里面，如下是我本地制作的复制本地的"标准数据xlsx"这个文件中的A1-H500中的数据到当前表格的sheet1（标准数据）中。这里需要注意的是，在打开的EXCEL目录中要存在“标准数据xlsx”文件，否则无法打开数据就无法复制。以下是代码分享：Sub 打开标准数据表()Dim mypath$， myname$， rng As Range， myr$ '定义变量AScreenUpdating = True '显示屏幕计算过程SActivate[A1:H500]Clear '将表格中的原油数据清空mypath = ThisWpath & "/" '设置模板数据的路径，这里以当前的EXCEL表格作为打开路径myname = "标准数据xlsx" '要打开复制的excel表格名称With GetObject(mypath & myname) '获取要复制的表格对象 'myr = Sheets(1)[A1:H500]Row '选取当前表格中的sheet1的A1-H500Set rng = Sheets(1)Range("A1:H500")Copy '复制rng数据Sheets("标准数据")Range("A1:H500")PasteSpecial '把复制的数据粘贴到当前表格中的“标准数据”的A1-HClose True '关闭模板数据表格End WithAScreenUpdating = True '打开屏幕显示End S 代码编译运行后其效果如下，将对应的数据拷贝到了指定的表格中。代码运行前 
通过整体复制工作表的方式最靠谱在工作表名字处点击右键，选择“移动或复制工作表”——“建立副本”这个副本就是复制的工作表，把工作表改名字，然后在里面编辑就行了。
