选择性粘贴的VBA实现方法(ZT）  

2010-06-24 15:15:22|  分类： EXCEL VBA专区 |  标签： |字号大中小 订阅

选择性粘贴是工作表操作经常使用的功能，那么用VBA代码如何实现选择性粘贴的功能呢？

根据VBA代码帮助文件和实际需要，自己总结了选择性粘贴VBA代码的语法和实例。

 

---

 

一、语法

PasteSpecial 方法

解释：将剪贴板中的 Range 对象粘贴到指定区域中。

语法：expression.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

expression      必需。该表达式返回一个 Range 对象。

Paste      XlPasteType 类型，可选。指定要粘贴的区域部分。

XlPasteType 可为以下 XlPasteType 常量之一。

xlPasteAll 默认值                         '全部

xlPasteAllExceptBorders               ’ 边框除外

xlPasteColumnWidths                   ’ 列宽

xlPasteComments                       ’ 批注

xlPasteFormats                        ‘格式

xlPasteFormulas                       ’公式

xlPasteFormulasAndNumberFormats       ‘公式和数字格式

xlPasteValidation                     ’有效性验证

xlPasteValues                         ‘数值

xlPasteValuesAndNumberFormats         ’ 值和数字格式

Operation      XlPasteSpecialOperation 类型，可选。指定粘贴操作。

XlPasteSpecialOperation 可为以下 XlPasteSpecialOperation 常量之一。

xlPasteSpecialOperationAdd              ‘加

xlPasteSpecialOperationDivide           ’除

xlPasteSpecialOperationMultiply         ‘乘

xlPasteSpecialOperationNone 默认值       ‘无

xlPasteSpecialOperationSubtract         ‘减

SkipBlanks      Variant 类型，可选。若为 True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为 False。

Transpose      Variant 类型，可选。若为 True，则粘贴区域时转置行和列。默认值为 False。

 

二、语法图示说明

 

 

三、示例

 

Sub 选择性粘贴1()  '将E4单元格的公式复制，并选择性粘贴到E4单元格

    Range("A4").Copy

    Range("e4").PasteSpecial Paste:=xlPasteValues

End Sub

 

Sub 选择性粘贴2()  '将C4单元格的值与e2:E4单元格的和粘贴到E2:E4

    Range("C4").Copy

    Range("E2:E4").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

End Sub

 

Sub 选择性粘贴3()    '将A2:A6单元格的内容转置粘贴到以D8开始的单元格区域

    Range("A2:B6").Copy

    Range("D8").PasteSpecial Transpose:=True

End Sub