1、打开工作表,找到原数据,。插入表单按钮。
2、ALT+F11打开VBA代码编辑器,输入宏代码如下。
3、将表单按钮指定到宏,运行代码。查看运行后的效果,目标区域出现了和原数据一样的数据,但位置发生了变化。
4、输入的代码内容并解释。Sub 运行代码()For i = 1 To 12Range("c" & i + 2) = Range("芟鲠阻缒b" & i)Next iEnd Sub----------------------------------1.原数据单元格区域 b1 b2 b3 b4 到 b122.目标单元格区域出现 c3 c4 c5 c6 c7 到 c143.原数据区域在后,目标区域在前4.目标区域和原数据之间的相同数据之间的位置变化:原数据与目标区域之间行号之差5.使用FOR NEXT循环,步长为1,步长为目标单元格行号之差