《VBA选择性粘贴》由会员分享，可在线阅读，更多相关《VBA选择性粘贴（8页珍藏版）》请在金锄头文库上搜索。
1、ExcelVBA教程:PasteSpecial方法l应用于Range对象的PasteSpecial方法。将剪贴板中的Range对象粘贴到指定区域中。expression.PasteSpecial(Paste,Operation,SkipBlanks,Transpose)expression必需。该表达式返回一个Range对象。PasteXlPasteType类型，可选。指定要粘贴的区域部分。XlPasteType可为以下XlPasteType常量之一。xlPasteAll默认值xlPasteAllExceptBordersxlPasteColumnWidthsxlPasteCommentsxl
2、PasteFormatsxlPasteFormulasxlPasteFormulasAndNumberFormatsxlPasteValidationxlPasteValuesxlPasteValuesAndNumberFormatsOperationXlPasteSpecialOperation类型，可选。指定粘贴操作。XlPasteSpecialOperation可为以下XlPasteSpecialOperation常量之一。xlPasteSpecialOperationAddxlPasteSpecialOperationDividexlPasteSpecialOperationMulti
3、plyxlPasteSpecialOperationNone默认值xlPasteSpecialOperationSubtractSkipBlanksVariant类型，可选。若为True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为False。TransposeVariant类型，可选。若为True，则粘贴区域时转置行和列。默认值为False。1应用于Worksheet对象的PasteSpecial方法。以指定格式将剪贴板中的内容粘贴到工作表上。可用本方法从其他应用程序中粘贴数据，或以特定格式粘贴数据。expression.PasteSpecial(Format,Link,Dis
4、playAsIcon,IconFileName,Iconindex,IconLabel,NoHTMLFormatting)expression必需。该表达式返回一个Worksheet对象。FormatVariant类型，可选。指定数据的剪贴板格式的字符串。LinkVariant类型，可选。若为True，则建立与被粘贴数据的源之间的链接。如果源数据不适于链接，或源应用程序不支持链接，将忽略本参数。默认值为False。DisplayAsIconVariant类型，可选。若为True，则将粘贴内容显示为图标。默认值为False。IconFileNameVariant类型，可选。如果DisplayAs
5、Icon为True，则指定包含所用图标的文件名。IconIndexVariant类型，可选。图标文件内的图标索引号。IconLabelVariant类型，可选。图标的文本标签。NoHTMLFormattingVariant类型，可选。若为True，则从HTML中删除所有的格式设置、超链接和图像。若为False,则完整粘贴HTML。默认值为False。说明注意当Format=“HTML”时，NoHTMLFormatting才起作用。在所有其他情况下，NoHTMLFormatting将被忽略。必须在使用本方法之前选定目标区域。本方法可能会更改工作表的选定区域，这取决于剪贴板中的内容。ExcelVB
6、A教程：PasteSpecial方法示例1应用于Range对象。本示例用Sheetl上单元格区域C1:C5和单元格区域D1:D5原有内容的和来取代单元格区域D1:D5中的数据。WithWorksheets(Sheetl).Range(C1:C5).Copy.Range(Dl:D5).PasteSpecial_Operation:=xlPasteSpecialOperationAddEndWithl应用于Worksheet对象。本示例将剪贴板中的MicrosoftWord文档对象粘贴到Sheetl上的单元格D1中。Worksheets(Sheet1).Range(D1).SelectActive
7、Sheet.PasteSpecialformat:二_MicrosoftWord8.0DocumentObject本示例粘贴相同的MicrosoftWord文档对象，并将其显示为图标。Worksheets(Sheet1).Range(F5).SelectActiveSheet.PasteSpecial_Format:二MicrosoftWord8.0DocumentObject,_DisplayAsIcon:二TrueExcelVBA教程：Paste方法l应用于Chart对象的Paste方法。将剪贴板中的图表数据粘贴到指定的图表中。expression.Paste(Type)expressio
8、n必需。该表达式返回一个Chart对象。TypeVariant类型，可选。如果剪贴板中有图表，本参数指定要粘贴的图表信息。可为以下XlPasteType常量之一：xlFormats、xlFormulas或xlAll。默认值为xlAll。如果剪贴板中是数据不是图表，则不能使用本参数。说明本方法将更改当前的选定区域。1应用于Floor、Point、Series和Walls对象的Paste方法。对于Floor和Walls对象，将剪贴板中的图片粘贴到选定图表的基底或背景墙上。对于Point和Series对象，将剪贴板中的图片作为标志粘贴到选定的数据点或系列上。本方法可用于柱形图、条形图、折线图或雷达图
9、，并且将MarkerStyle属性设置为xlMarkerStylePicture。expression.Pasteexpression必需。该表达式返回上面的对象之一。1应用于SeriesCollection对象的Paste方法。将剪贴板中的数据粘贴到指定的系列集合中。expression.Paste（Rowcol,SeriesLabels,CategoryLabels,Replace,NewSeries）expression必需。该表达式返回一个SeriesCollection对象。RowcolXlRowCol类型，可选。指定对应于特定数据系列的数值是处于行中还是列中。XlRowCol可为以
10、下XlRowCol常量之一*xlColumns默认值xlRowsSeriesLabelsVariant类型，可选。若为True，则用每一行的第一列（或每一列的第一行）中的单元格内容作为该行（或列）中数据系列的名称。若为False，则用每一行的第一列（或每一列的第一行）中的单元格内容作为数据系列的第一个数据点。默认值为False。CategoryLabelsVariant类型，可选。若为True，则用选定区域的第一行（或第一列）中的内容作为图表的分类。若为False,则用选定区域的第一行（或第一列）中的内容作为图表的第一个数据系列。默认值为False。ReplaceVariant类型，可选。若为
11、True，则在用被复制区域的信息取代现有的分类时应用分类。若为False,则插入新分类而不替换任何原有分类。默认值为True。NewSeriesVariant类型，可选。若为True，则将数据作为新系列粘贴。若为False，则将数据作为原有系列的新数据点粘贴。默认值为True。将剪贴板中的内容粘贴到工作表上。1应用于Worksheet对象的Paste方法。expression.Paste(Destination,Link)expression必需。该表达式返回一个Worksheet对象。DestinationVariant类型，可选。Range对象，指定用于粘贴剪贴板中内容的目标区域。如果省略
12、本参数，就使用当前的选定区域。仅当剪贴板中的内容能被粘贴到某区域时，才能指定本参数。如果指定了本参数，就不能使用Link参数。LinkVariant类型，可选。若为True，就建立与被粘贴数据的源之间的链接。如果指定了本参数，就不能使用Destination参数。默认值为False。说明如果未指定Destination参数，那么必须在使用本方法之前选定目标区域。本方法可能会修改工作表的选定区域，这取决于剪贴板中的内容。ExcelVBA教程：Paste方法示例1应用于Chart对象。本示例将Sheetl上单元格区域B1:B5中的数据粘贴到Chartl中。Worksheets(Sheet1).Ra
13、nge(B1:B5).CopyCharts(Chart1).Pastel应用于Point或Series对象。本示例将剪贴板中的图片粘贴到Chart1上的第一个系列中。Charts(Chart1).SeriesCollection(1).Pastel应用于SeriesCollection对象。本示例将剪贴板中的图片粘贴到Chart1上的第一个系列中。Worksheets(Sheet1).Range(C1:C5).CopyCharts(Chart1).SeriesCollection.Pastel应用于Worksheet对象。本示例将Sheet1上单元格区域C1:C5中的数据复制到单元格区域D1:
14、D5中。Worksheets(Sheetl).Range(Cl:C5).CopyActiveSheet.PasteDestination:二Worksheets(Sheetl).Range(D1:D5)自己测试：一、选择性粘贴全部：Range(D8).SelectSelection.CopyRange(D11).SelectSelection.PasteSpecialPaste:=xlPasteAll,Operation:=xlNone,SkipBlanks:=_False,Transpose:=FalseEndSubSubMacrol()JMacrolMacro:宏宙lie录制，时间：201
15、4/12/3Range(DS).SelectSelection.CopyRange.SelectSelection.PasteSpecialPastexlFasteAllOperationxlNone,SkipElanks:=False,Transpose:=FalseEndSub二、选择性粘贴数值Selection.CopyRange(D14).SelectSelection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_:=False,Transpose:=FalseEndSubSubMacro2()Macro2Macro:宏由lie录制，时间：2014/12/3Selection.CopyRang亡.SelectSelection.PasteSpecialPastexlPasteValues,Operation:=xlNoneJSkipElanksFalse,Transpose:=FalseEndSub三
