作者：乔山办公网日期：
返回目录：excel表格制作
在COPY之后，做了任何修改单元格内容zd的操作，COPY就失效了，就无法粘贴了。手工使用EXCEL操作的时候就会发现这个问题。专
另外，一般不建议使用这样的两行语句：
Range("...").Copy
Range("...").Paste除非是粘贴属列宽、格式等特殊需求，一般建议使用下面的一句方式：
Range("...").Copy Range("...")Sub uu()
Sheets("Sheet1").Select
Range("b3:b8").Select
Selection.Copy
Sheets("Sheet2").Select
Range("a1").Select
ActiveSheet.Paste
End Sub
1 rang 改为 range
2 uu = rang("b3:b8").Value : Sub过程不能来有返回值源
3 Cells.Select ：这不知什么意思，我改知成了Range("a1").Select 选择粘贴起道点。
假设打开的文件是D盘123文件夹中的百1.xls文件，并将sheet1中的内容，复制到当前Excel文件的sheet1工作表中，以下是代码度及其解释：
Sub main()
Workbooks.Open Filename:="D:\123\1.xls" '通过Open的方问法打开Excel文件，Filename即打开的文件名，必须包含完整的路径和完整的工作名
ActiveWorkbook.Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).Cells '这里包含了答复制和粘贴，Copy前面的是要复制的对象，而后面是要粘贴的回目的区域，Cells是表示对整个工作表的内容进答行复制
End Sub
假设要把sheet1的A1复制粘贴到F1，代码就是
Sheet1.Range("A1").Copy Destination:=Sheet1.Range("F1")