1、首先，打开或者新建一个含有数据的Excel表格，如下图所示。
2、按下Alt+F11组合键，打开VBA编辑界面，点击左侧相应的工作表，出现右侧空白的代码编辑区，如下图所示。
3、编写代码如下图所示：Sub 鱼木混猪()Range("A1"挢旗扦渌;).Copy Range("B1")For i = 2 To 10Range("A" & i).Copy Range("B" & i)NextEnd Sub代码的作用是复制A1:A10单元格到B1:B10中。
4、将光标放在代码中间，点击“运行子程序”，如下图所示。
5、关闭VBA界面，返回Excel，看到A1:A10单元格复制到B1:B10中了，如下图所示。
