VBA选择性粘贴

Excel VBA教程：PasteSpecial方法应用于 Range对象的 PasteSpecial方法。将剪贴板中的 Range对象粘贴到指定区域中。expression.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)expression 必需。该表达式返回一个 Range对象。PasteXlPasteType 类型，可选。指定要粘贴的区域部分。XlPasteType 可为以下 XlPasteType 常量之一。xlPasteAll 默认值xlPasteAllExceptBordersxlPasteColumnWidthsxlPasteCommentsxlPasteFormatsxlPasteFormulasxlPasteFormulasAndNumberFormatsxlPasteValidationxlPasteValuesxlPasteValuesAndNumberFormatsOperationXlPasteSpecialOperation 类型，可选。指定粘贴操作。XlPasteSpecialOperation 可为以下 XlPasteSpecialOperation 常量之一。xlPasteSpecialOperationAddxlPasteSpecialOperationDividexlPasteSpecialOperationMultiplyxlPasteSpecialOperationNone 默认值xlPasteSpecialOperationSubtractSkipBlanks Variant 类型，可选。若为 True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为 False。Transpose Variant 类型，可选。若为 True，则粘贴区域时转置行和列。默认值为 False。应用于 Worksheet对象的 PasteSpecial方法。以指定格式将剪贴板中的内容粘贴到工作表上。可用本方法从其他应用程序中粘贴数据，或以特定格式粘贴数据。expression.PasteSpecial(Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, NoHTMLFormatting)expression 必需。该表达式返回一个 Worksheet对象。Format Variant 类型，可选。指定数据的剪贴板格式的字符串。Link Variant 类型，可选。若为 True，则建立与被粘贴数据的源之间的链接。如果源数据不适于链接，或源应用程序不支持链接，将忽略本参数。默认值为 False。DisplayAsIcon Variant 类型，可选。若为 True，则将粘贴内容显示为图标。默认值为 False。IconFileName Variant 类型，可选。如果 DisplayAsIcon 为 True，则指定包含所用图标的文件名。IconIndex Variant 类型，可选。图标文件内的图标索引号。IconLabel Variant 类型，可选。图标的文本标签。NoHTMLFormatting Variant 类型，可选。若为 True，则从 HTML 中删除所有的格式设置、超链接和图像。若为 False ，则完整粘贴 HTML。默认值为 False。说明注意 当 Format = “HTML”时，NoHTMLFormatting 才起作用。在所有其他情况下，NoHTMLFormatting 将被忽略。必须在使用本方法之前选定目标区域。本方法可能会更改工作表的选定区域，这取决于剪贴板中的内容。Excel VBA教程：PasteSpecial方法示例应用于 Range对象。本示例用 Sheet1 上单元格区域 C1:C5 和单元格区域 D1:D5 原有内容的和来取代单元格区域 D1:D5 中的数据。With Worksheets(Sheet1) .Range(C1:C5).Copy .Range(D1:D5).PasteSpecial _ Operation:=xlPasteSpecialOperationAddEnd With应用于 Worksheet对象。本示例将剪贴板中的 Microsoft Word 文档对象粘贴到 Sheet1 上的单元格 D1 中。Worksheets(Sheet1).Range(D1).SelectActiveSheet.PasteSpecial format:= _ Microsoft Word 8.0 Document Object本示例粘贴相同的 Microsoft Word 文档对象，并将其显示为图标。Worksheets(Sheet1).Range(F5).SelectActiveSheet.PasteSpecial _ Format:=Microsoft Word 8.0 Document Object, _ DisplayAsIcon:=TrueExcel VBA教程：Paste方法应用于 Chart对象的 Paste方法。将剪贴板中的图表数据粘贴到指定的图表中。expression.Paste(Type)expression 必需。该表达式返回一个Chart对象。Type Variant 类型，可选。如果剪贴板中有图表，本参数指定要粘贴的图表信息。可为以下 XlPasteType 常量之一：xlFormats、xlFormulas 或 xlAll。默认值为 xlAll。如果剪贴板中是数据不是图表，则不能使用本参数。说明本方法将更改当前的选定区域。应用于 Floor、Point、Series 和 Walls对象的 Paste方法。对于 Floor 和 Walls对象，将剪贴板中的图片粘贴到选定图表的基底或背景墙上。对于 Point 和 Series对象，将剪贴板中的图片作为标志粘贴到选定的数据点或系列上。本方法可用于柱形图、条形图、折线图或雷达图，并且将 MarkerStyle属性设置为 xlMarkerStylePicture。expression.Pasteexpression 必需。该表达式返回上面的对象之一。应用于 SeriesCollection对象的 Paste方法。将剪贴板中的数据粘贴到指定的系列集合中。expression.Paste(Rowcol, SeriesLabels, CategoryLabels, Replace, NewSeries)expression 必需。该表达式返回一个SeriesCollection对象。RowcolXlRowCol 类型，可选。指定对应于特定数据系列的数值是处于行中还是列中。XlRowCol 可为以下 XlRowCol 常量之一。xlColumns 默认值xlRowsSeriesLabels Variant 类型，可选。若为 True，则用每一行的第一列（或每一列的第一行）中的单元格内容作为该行（或列）中数据系列的名称。若为 False，则用每一行的第一列（或每一列的第一行）中的单元格内容作为数据系列的第一个数据点。默认值为 False。CategoryLabels Variant 类型，可选。若为 True，则用选定区域的第一行（或第一列）中的内容作为图表的分类。若为 False，则用选定区域的第一行（或第一列）中的内容作为图表的第一个数据系列。默认值为 False。Replace Variant 类型，可选。若为 True，则在用被复制区域的信息取代现有的分类时应用分类。若为 False，则插入新分类而不替换任何原有分类。默认值为 True。NewSeries Variant 类型，可选。若为 True，则将数据作为新系列粘贴。若为 False，则将数据作为原有系列的新数据点粘贴。默认值为 True。应用于 Worksheet对象的 Paste方法。将剪贴板中的内容粘贴到工作表上。expression.Paste(Destination, Link)expression 必需。该表达式返回一个Worksheet对象。Destination Variant 类型，可选。Range对象，指定用于粘贴剪贴板中内容的目标区域。如果省略本参数，就使用当前的选定区域。仅当剪贴板中的内容能被粘贴到某区域时，才能指定本参数。如果指定了本参数，就不能使用 Link参数。Link Variant 类型，可选。若为 True，就建立与被粘贴数据的源之间的链接。如果指定了本参数，就不能使用 Destination参数。默认值为 False。说明如果未指定 Destination参数，那么必须在使用本方法之前选定目标区域。本方法可能会修改工作表的选定区域，这取决于剪贴板中的内容。 Excel VBA教程：Paste方法示例应用于 Chart对象。本示例将 Sheet1 上单元格区域 B1:B5 中的数据粘贴到 Chart1 中。Worksheets(Sheet1).Range(B1:B5).CopyCharts(Chart1).Paste应用于 Point 或 Series对象。本示例将剪贴板中的图片粘贴到 Chart1 上的第一个系列中。Charts(Chart1).SeriesCollection(1).Paste应用于 SeriesCollection对象。本示例将剪贴板中的图片粘贴到 Chart1 上的第一个系列中。Worksheets(Sheet1).Range(C1:C5).CopyCharts(Chart1).SeriesCollection.Paste应用于 Worksheet对象。本示例将 Sheet1 上单元格区域 C1:C5 中的数据复制到单元格区域 D1:D5 中。Worksheets(Sheet1).Range(C1:C5).CopyActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(D1:D5)自己测试：一、选择性粘贴全部：Range(D8).Select Selection.Copy Range(D11).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=FalseEnd Sub二、选择性粘贴数值Selection.Copy Range(D14).Select Selection.PasteSpecial Past