作者：乔山办公网日期：
返回目录：excel表格制作
1、首先将Excel文档（默认新建扩抄展名为xlsx），另存为启用宏的工作簿，扩展名为xlsm。
2、按下组合键ALt+F11快速切换到VBA窗口。
3、进入VBA窗口后的界面，如图袭所zd示。
4、双击ThisWorkbook后，会弹出一个代码窗口。
5、在代码窗口中复制粘贴以下代码：Private Sub Workbook_Open()，MsgBox ("欢迎您使用Excel2013")，End Sub。
6、保存，关闭，重新打开Excel（扩展名为xlsm）文档，效果如图所示。
打开工作表，找zhidao到原数据，。插入表单按钮。
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，步长为目标单元格行号之差。
代码抄如下，注意代袭码的百位置（详见度截图）
Private Sub Worksheet_Activate()
Application.OnKey "~问", "Copy4To500"
'Application.OnKey "{ENTER}", "Copy4To500" '小键盘回车答键
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "~"
'Application.OnKey "{ENTER}"
End Sub
Sub Copy4To500()
Rows("4:500").Copy Sheet2.Range("A4")
ThisWorkbook.Save
End Sub