第046篇：VBA之单元格移动与复制、行列插入与删除

老师问小鱼：“你这次考试作弊了吧，老实说你抄谁的？”

小鱼回答：“老师，我抄蚌的……”

老师：“你棒个屁！”

（一）单元格移动与复制

1.Range.Cut 方法       将单元格区域剪切到指定的区域

2.Range.Copy 方法    将单元格区域复制到指定的区域

Sub 移动复制()

Range("a1:d8").Cut Range("f1")      '将a1:d8区域剪切到起始单元格为f1的区域

Range("f1:i8").Copy Range("a1")     '将f1:i8区域复制到起始单元格为a1的区域

End Sub

*************************

Sub 另类复制方法()

Range("a10:d17") = Range("a1:d8") .Value    '将a1:d8区域的值赋给a10:d17区域

End Sub

备注：（1）等号后的区域一定要加Value，否则会失败；（2）被赋值时，原单元格区域的格式不会被复制过来

实例：有两张表头相同的表格，一张是出差登记表，另一张是出差汇总表，通过代码将出差登记表的内容添加到出差汇总表中。

	A	B	C	D
1	出差人	出差时间	出差地点	交通工具
2
3