粘贴类型VBA

nnsea

XlPasteType(粘贴类型)	数学代码	注释
xlPasteAll	-4104	粘贴全部内容。
xlPasteAllExceptBorders	7	粘贴除边框外的全部内容。
xlPasteAllMergingConditionalFormats	14	将粘贴所有内容，并且将合并条件格式。
xlPasteAllUsingSourceTheme	13	使用源主题粘贴全部内容。
xlPasteColumnWidths	8	粘贴复制的列宽。
xlPasteComments	-4144	粘贴批注。
xlPasteFormats	-4122	粘贴复制的源格式。
xlPasteFormulas	-4123	粘贴公式。
xlPasteFormulasAndNumberFormats	11	粘贴公式和数字格式。
xlPasteValidation	6	粘贴有效性。
xlPasteValues	-4163	粘贴值。
xlPasteValuesAndNumberFormats	12	粘贴值和数字格式。

nnsea

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 Sub



Sub 粘贴2()
Range("c1:c6").Copy    '复制单元格有公式
Sheet3.Paste  '如果不指定 Destination 参数，则在使用该方法之前必须选择目标区域。
End Sub


Sub 粘贴1()
Range("c1:C6").Copy    '复制c1单元格
Sheet3.Paste , True '
Application.CutCopyMode = True
End Sub

nnsea

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




Sub 选择怪粘贴()
Range("c2:c10").Copy
Range("d2").PasteSpecial 12
End Sub


Sub 选择怪粘贴运算()
Range("b2:b9").Copy
Range("d2").PasteSpecial , 2
Range("c2:c9").Copy
Range("d2").PasteSpecial , 2
End Sub
Sub 选择怪粘贴跳过空单元()
Range("b2:b9").Copy
Range("e2").PasteSpecial , , True
End Sub
Sub 选择性粘贴转置()
Range("a2:b9").Copy
Range("a11").PasteSpecial 12, , , True
End Sub