【VBA研究】关于工作表单元格复制粘贴的语句

作者：iamlaosong

做一个工作表拆分和合并的工具，必然会用到复制粘贴语句。最简单的就是普通的直接复制粘贴，但有时也需要用到选择性粘贴，特别是原数据格式比较复杂，希望新生成的数据简单一点，比如直接复制数值。有时候格式复杂的文档完全复制粘贴后，新生成的文件还会无法打开。

1、直接复制

（1）Range("F1:H5").Copy Range("F15")

（2）Rows("1:5").Copy Range("A15")

（3）ActiveSheet.Rows("1:5").Copy Range("A15")

（4）Sheets(stNum).Rows(pos_row1 & ":" & MaxRow).Copy Range("A" & row1)

上面（2）和（3）是一样的，写法不同，参见（4）。

2、先复制后粘贴，特别适合粘贴多份

ActiveSheet.Range("F1:H5").Copy
Range("F15").Paste

3、复制后，选择目标，然后粘贴。

ActiveSheet.Range("F1:H5").Copy
Range("F15").Select
ActiveSheet.Paste

4、选择性粘贴，需要先复制，然后根据参数进行粘贴

（1）ActiveSheet.Range("F1:H5").Copy
        Range("F15").Select
        Selection.PasteSpecial Paste:=xlPasteValues</