作者：乔山办公网日期：
返回目录：excel表格制作
录制下vba宏你就知道怎么做了
打开工作表，找到原数据，。插入表度单按钮。
ALT+F11打开VBA代码编辑器，输入宏代码如下。
将表单按钮指定到宏，运行代码。查看运行后的效果，目标区问域出现了和原数据答一样的数据，但位置发生了变化。
输入的代码内容并解释。
Sub 运行代码()For i = 1 To 12Range("c" & i + 2) = Range("b" & i)Next iEnd Sub
1.原数据单元格版区域 b1 b2 b3 b4 到 b12；
2.目标单元格区域出现 c3 c4 c5 c6 c7 到 c14；
3.原数据区域在后，目标区域在前；
4.目标区域和原数据之间的相同数据之间的位置变化：原数据与目标区域之间行号之差；
5.使用FOR NEXT循环，权步长为1，步长为目标单元格行号之差。
假设打开的文件zhidao是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
自己抄录制袭个宏，百就度可以知了。道
Sub Macro2()
Range("A1:B2").Select
Selection.Copy
Range("C3:D4").Select
ActiveSheet.Paste
End Sub