作者: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