VBA选择性粘贴

1、Excel VBA 教程：PasteSpecial 方法应用于Range对象的PasteSpecial方法。将剪贴板中的Range对象粘贴到指定区域中。expressi on .PasteSpecial(Paste, Operatio n, SkipBla nks, Tran spose)expression必需。该表达式返回一个 Ra nge对象。Paste XlPasteType类型，可选。指定要粘贴的区域部分。XlPasteType 可为以下 XlPasteType 常量之一。xlPasteAll 默认值xlPasteAllExceptBordersxlPasteColu mn Widt

2、hsxlPasteComme ntsxlPasteFormatsxlPasteFormulasxlPasteFormulasA ndNumberFormatsxlPasteValidati onxlPasteValuesxlPasteValuesA ndNumberFormatsOperation XlPasteSpecialOperati on类型，可选。指定粘贴操作。XlPasteSpecialOperation可为以下 XlPasteSpecialOperation常量之一。xlPasteSpecialOperati on AddxlPasteSpecialOperation Divid

3、exlPasteSpecialOperati onM ultiplyxlPasteSpecialOperati。nNo ne默认值xlPasteSpecialOperati on SubtractSkipBlanksVariant类型，可选。若为True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为False。TransposeVariant类型，可选。若为True，则粘贴区域时转置行和列。默认值为False。应用于 Worksheet对象的PasteSpecial方法。以指定格式将剪贴板中的容粘贴到工作表上。可用本方法从其他应用程序中粘贴 数据，或以特定格式粘贴数据。expre

4、ssion.PasteSpecial(Format, Link, DisplayAsIcon, IconFileName, Iconln dex, Ico nLabel, NoHTMLFormatti ng)expression必需。该表达式返回一个 Worksheet对象。Format Varia nt类型，可选。指定数据的剪贴板格式的字符串。Link Variant类型，可选。若为True，则建立与被粘贴数据的源之间的。 如果源数据不适于，或源应用程序不支持，将忽略本参数。默认值为False。DisplayAsIconVariant 类型，可选。若为True，则将粘贴容显示为图标默认值为F

5、alse。IconFileNameVariant 类型，可选。如果 DisplayAsIcon为 True，则指定包含所用图标的文件名。Iconln dexVaria nt类型，可选。图标文件的图标索引号。Icon LabelVaria nt类型，可选。图标的文本标签。NoHTMLFormatti ngVaria nt类型，可选。若为True，则从HTML中删除所有的格式设置、超和图像。若为 False ，则完整粘贴HTML。默认值为False说明注意 当Format = “HTML时，NoHTMLFormatting才起作用。在所有其他 情况下，NoHTMLFormatti ng将被忽略。必

6、须在使用本方法之前选定目标区域。本方法可能会更改工作表的选定区域，这取决于剪贴板中的容。Excel VBA 教程：PasteSpecial 方法示例应用于Range对象。本示例用Sheetl上单元格区域C1:C5和单元格区域D1:D5原有容的和来取 代单元格区域D1:D5中的数据。With Worksheets("Sheet1").Ra nge("C1:C5").Copy.Ra nge("D1:D5").PasteSpecial _Operatio n: =xlPasteSpecialOperatio nAddEnd With应用于

7、Worksheet对象。本示例将剪贴板中的Microsoft Word文档对象粘贴到Sheet1上的单元格D1中。Worksheets("Sheet1").Ra nge("D1").SelectActiveSheet.PasteSpecial format:= _"Microsoft Word 8.0 Docume nt Object"本示例粘贴相同的Microsoft Word文档对象，并将其显示为图标。Worksheets("Sheet1").Ra nge("F5").SelectActiv

8、eSheet.PasteSpecial _Format:="Microsoft Word 8.0 Docume nt Object", _DisplayAsIc on :=TrueExcel VBA 教程：Paste 方法应用于Chart对象的Paste方法。将剪贴板中的图表数据粘贴到指定的图表中。expressio n.Paste(Type)expression必需。该表达式返回一个Chart对象。TypeVaria nt类型，可选。如果剪贴板中有图表，本参数指定要粘贴的图表信息。可为以下 XlPasteType 常量之一：xlFormats、xlFormulas 或 x

9、lAll 。 默认值为xlAll 。如果剪贴板中是数据不是图表，则不能使用本参数。说明本方法将更改当前的选定区域。应用于 Floor、Point、Series 和 Walls 对象的 Paste 方法。对于Floor和Walls对象，将剪贴板中的图片粘贴到选定图表的基底或背景墙 上。对于Point和Series对象，将剪贴板中的图片作为标志粘贴到选定的数 据点或系列上。本方法可用于柱形图、条形图、折线图或雷达图，并且将 MarkerStyle 属性设置为 xlMarkerStylePicture 。expressi on .Pasteexpression必需。该表达式返回上面的对象之一。应用于

10、SeriesCollection 对象的Paste方法。将剪贴板中的数据粘贴到指定的系列集合中。expressio n.Paste（Rowcol, SeriesLabels, CategoryLabels, Replace, NewSeries）expression必需。该表达式返回一个 SeriesCollectio n 对象。Rowcol XlRowCol类型，可选。指定对应于特定数据系列的数值是处于行中 还是列中。XlRowCol可为以下XlRowCol常量之一。xlColum ns 默认值xlRowsSeriesLabelsVariant 类型，可选。若为True，则用每一行的第一列（

11、或每一列的第一行）中的单元格容作为该行（或列）中数据系列的名称。若为False， 则用每一行的第一列（或每一列的第一行）中的单元格容作为数据系列的第一个 数据点。默认值为False。CategoryLabels Variant 类型，可选。若为True，则用选定区域的第一行 （或第一列）中的容作为图表的分类。若为 False，贝U用选定区域的第一行（或 第一列）中的容作为图表的第一个数据系列。默认值为False。ReplaceVariant类型，可选。若为True，则在用被复制区域的信息取代现有的分类时应用分类。若为False，则插入新分类而不替换任何原有分类。默认值为True。NewSeri

12、esVariant 类型，可选。若为True，则将数据作为新系列粘贴。若为False，则将数据作为原有系列的新数据点粘贴。默认值为True。应用于 Worksheet对象的Paste方法。将剪贴板中的容粘贴到工作表上。expression.Paste(Destination, Link)expression必需。该表达式返回一个 Worksheet对象。DestinationVariant 类型，可选。Range对象，指定用于粘贴剪贴板中容的目标区域。如果省略本参数，就使用当前的选定区域。仅当剪贴板中的容能被 粘贴到某区域时，才能指定本参数。如果指定了本参数，就不能使用Link参数LinkVa

13、riant类型，可选。若为True，就建立与被粘贴数据的源之间的。如果指定了本参数，就不能使用Destination参数。默认值为False。说明如果未指定Destination 参数，那么必须在使用本方法之前选定目标区域。本方法可能会修改工作表的选定区域，这取决于剪贴板中的容。Excel VBA教程：Paste方法示例应用于Chart对象。本示例将Sheetl上单元格区域B1:B5中的数据粘贴到Chartl中。Worksheets("Sheet1").Ra nge("B1:B5").CopyCharts("Chart1").Past

14、e应用于Point 或Series对象。本示例将剪贴板中的图片粘贴到 Chartl上的第一个系列中。Charts("Chart1").SeriesCollectio n( 1).Paste应用于 SeriesCollectio n对象。本示例将剪贴板中的图片粘贴到 Chartl上的第一个系列中。Worksheets("Sheet1").Ra nge("C1:C5").CopyCharts("Chart1").SeriesCollectio n.Paste应用于 Worksheet对象。本示例将Sheetl上单元格区

15、域C1:C5中的数据复制到单元格区域 D1:D5中Worksheets("Sheet1").Ra nge("C1:C5").CopyActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")自己测试：一、选择性粘贴一一全部：Ra nge("D8").SelectSelect ion. CopyRan ge("D11").SelectSelect ion .PasteSpecial Paste:=xlPa

16、steAII, Operati on: =xlN one, SkipBla nks:= _False, Tran spose:=FalseEnd Sub三、选择性粘贴公式Selection.CopyRange("D8").SelectSelection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseEnd Sub有效性竣证（N边总除外（X） ©列寃檢）公式和数字格式（R） 值兀数字裕弍（H）乘加除（I）粘贴" 公式（

17、EC数值（I）格式（I） 批注© 运算无仪）C加）减跳过空单元（E）粘贴旌接（L厂厂确£取消©fflO FormulaeOYokiwOFormBpO QmmcnlsOoeraton©00Paste SpecialO VaMtiOQO All except bet (fereQ Colunm widthsO ForfnuMs and number formatsO Voltes ardnjmber formatsOdm"9ip blanksTransposeOKPaeteLnkSub lacrQlOMacrL Nacre1宜由ILc录剤.时间：2014/12/3frSelection. CopvCOllO. SelectPasteSpecial PasteOpcratiQiiallfencj StipBlarLlis ：=Ealse, Transpose: a 1 s eKnd SMb二、选择性粘贴数值Selectio n.CopyRa nge("D14").SelectSelect ion .PasteSpecial