1、首先,打开或者新建一个含有数据的Excel表格,如下图所示。

3、编写代码如下图所示:Sub 鱼木混猪()Range("A1"挢旗扦渌;).Copy Range("B1")For i = 2 To 10Range("A" & i).Copy Range("B" & i)NextEnd Sub代码的作用是复制A1:A10单元格到B1:B10中。

5、关闭VBA界面,返回Excel,看到A1:A10单元格复制到B1:B10中了,如下图所示。

时间:2024-10-12 21:57:34
1、首先,打开或者新建一个含有数据的Excel表格,如下图所示。
3、编写代码如下图所示:Sub 鱼木混猪()Range("A1"挢旗扦渌;).Copy Range("B1")For i = 2 To 10Range("A" & i).Copy Range("B" & i)NextEnd Sub代码的作用是复制A1:A10单元格到B1:B10中。
5、关闭VBA界面,返回Excel,看到A1:A10单元格复制到B1:B10中了,如下图所示。