VBA学习笔记之粘贴方法

Option Explicit'Worksheet.Paste 方法'将“剪贴板”中的内容粘贴到工作表上。'表达式.Paste(Destination, Link)'表达式 一个代表 Worksheet 对象的变量。Sub 粘贴()Range('B1:B6').Copy Range('c9') '这一句等于下面两句，但下面两句也有用处Range('B1:B6').Copy '复制区域无公式Sheet1.Paste Range('c9') '粘贴到c4单元格End SubSub 粘贴2()Range('c1:c6').Copy '复制单元格有公式Sheet3.Paste '如果不指定 Destination 参数，则在使用该方法之前必须选择目标区域。End SubSub 粘贴1() '这个有意思了，用链接的方式，母体改动，子体也随之改动Range('c1:C6').Copy '复制c1单元格Sheet3.Paste , True '当然在使用该方法之前必须选择目标区域Application.CutCopyMode = True '这里无论写True或者False都可以，目的是去除copy的边框'取消copy之后有边框的动作End Sub

 选择性粘贴：Range.PasteSpecial

大多数情况下我们可能只需要粘贴区域内容而非其格式，或者相反。

'Range.PasteSpecial 方法
'将 Range 从剪贴板粘贴到指定的区域中。
'语法
'表达式.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)
'表达式 一个代表 Range 对象的变量。

---

Sub 选择怪粘贴() '不粘贴公式，仅仅粘贴内容Range('c2:c10').CopyRange('d2').PasteSpecial 12 '12代表粘贴值和数字格式End SubSub 选择怪粘贴运算()'2表示选择性粘贴为“相加”'最终结果为两个区域相加Range('b2:b9').CopyRange('d2').PasteSpecial , 2Range('c2:c9').CopyRange('d2').PasteSpecial , 2End SubSub 选择怪粘贴跳过空单元()Range('b2:b9').CopyRange('e2').PasteSpecial , , True '前面的跳过，在SkipBlank时选择TrueEnd SubSub 选择性粘贴转置()Range('a2:b9').CopyRange('a11').PasteSpecial 12, , , TrueEnd Sub

给出部分效果图：