VBA選擇性粘貼

1、Excel VBA 教程：PasteSpecial 方法應(yīng)用于Range對(duì)象的PasteSpecial方法。將剪貼板中的Range對(duì)象粘貼到指定區(qū)域中。expressi on .PasteSpecial(Paste, Operatio n, SkipBla nks, Tran spose)expression必需。該表達(dá)式返回一個(gè) Ra nge對(duì)象。Paste XlPasteType類型，可選。指定要粘貼的區(qū)域部分。XlPasteType 可為以下 XlPasteType 常量之一。xlPasteAll 默認(rèn)值xlPasteAllExceptBordersxlPasteColu mn Widt

2、hsxlPasteComme ntsxlPasteFormatsxlPasteFormulasxlPasteFormulasA ndNumberFormatsxlPasteValidati onxlPasteValuesxlPasteValuesA ndNumberFormatsOperation XlPasteSpecialOperati on類型，可選。指定粘貼操作。XlPasteSpecialOperation可為以下 XlPasteSpecialOperation常量之一。xlPasteSpecialOperati on AddxlPasteSpecialOperation Divid

3、exlPasteSpecialOperati onM ultiplyxlPasteSpecialOperati。nNo ne默認(rèn)值xlPasteSpecialOperati on SubtractSkipBlanksVariant類型，可選。若為True，則不將剪貼板上區(qū)域中的空白單元格粘貼到目標(biāo)區(qū)域中。默認(rèn)值為False。TransposeVariant類型，可選。若為True，則粘貼區(qū)域時(shí)轉(zhuǎn)置行和列。默認(rèn)值為False。應(yīng)用于 Worksheet對(duì)象的PasteSpecial方法。以指定格式將剪貼板中的容粘貼到工作表上?？捎帽痉椒◤钠渌麘?yīng)用程序中粘貼 數(shù)據(jù)，或以特定格式粘貼數(shù)據(jù)。expre

4、ssion.PasteSpecial(Format, Link, DisplayAsIcon, IconFileName, Iconln dex, Ico nLabel, NoHTMLFormatti ng)expression必需。該表達(dá)式返回一個(gè) Worksheet對(duì)象。Format Varia nt類型，可選。指定數(shù)據(jù)的剪貼板格式的字符串。Link Variant類型，可選。若為True，則建立與被粘貼數(shù)據(jù)的源之間的。 如果源數(shù)據(jù)不適于，或源應(yīng)用程序不支持，將忽略本參數(shù)。默認(rèn)值為False。DisplayAsIconVariant 類型，可選。若為True，則將粘貼容顯示為圖標(biāo)默認(rèn)值為F

5、alse。IconFileNameVariant 類型，可選。如果 DisplayAsIcon為 True，則指定包含所用圖標(biāo)的文件名。Iconln dexVaria nt類型，可選。圖標(biāo)文件的圖標(biāo)索引號(hào)。Icon LabelVaria nt類型，可選。圖標(biāo)的文本標(biāo)簽。NoHTMLFormatti ngVaria nt類型，可選。若為True，則從HTML中刪除所有的格式設(shè)置、超和圖像。若為 False ，則完整粘貼HTML。默認(rèn)值為False說(shuō)明注意 當(dāng)Format = “HTML時(shí)，NoHTMLFormatting才起作用。在所有其他 情況下，NoHTMLFormatti ng將被忽略。必

6、須在使用本方法之前選定目標(biāo)區(qū)域。本方法可能會(huì)更改工作表的選定區(qū)域，這取決于剪貼板中的容。Excel VBA 教程：PasteSpecial 方法示例應(yīng)用于Range對(duì)象。本示例用Sheetl上單元格區(qū)域C1:C5和單元格區(qū)域D1:D5原有容的和來(lái)取 代單元格區(qū)域D1:D5中的數(shù)據(jù)。With Worksheets("Sheet1").Ra nge("C1:C5").Copy.Ra nge("D1:D5").PasteSpecial _Operatio n: =xlPasteSpecialOperatio nAddEnd With應(yīng)用于

7、Worksheet對(duì)象。本示例將剪貼板中的Microsoft Word文檔對(duì)象粘貼到Sheet1上的單元格D1中。Worksheets("Sheet1").Ra nge("D1").SelectActiveSheet.PasteSpecial format:= _"Microsoft Word 8.0 Docume nt Object"本示例粘貼相同的Microsoft Word文檔對(duì)象，并將其顯示為圖標(biāo)。Worksheets("Sheet1").Ra nge("F5").SelectActiv

8、eSheet.PasteSpecial _Format:="Microsoft Word 8.0 Docume nt Object", _DisplayAsIc on :=TrueExcel VBA 教程：Paste 方法應(yīng)用于Chart對(duì)象的Paste方法。將剪貼板中的圖表數(shù)據(jù)粘貼到指定的圖表中。expressio n.Paste(Type)expression必需。該表達(dá)式返回一個(gè)Chart對(duì)象。TypeVaria nt類型，可選。如果剪貼板中有圖表，本參數(shù)指定要粘貼的圖表信息?？蔀橐韵?XlPasteType 常量之一：xlFormats、xlFormulas 或 x

9、lAll 。 默認(rèn)值為xlAll 。如果剪貼板中是數(shù)據(jù)不是圖表，則不能使用本參數(shù)。說(shuō)明本方法將更改當(dāng)前的選定區(qū)域。應(yīng)用于 Floor、Point、Series 和 Walls 對(duì)象的 Paste 方法。對(duì)于Floor和Walls對(duì)象，將剪貼板中的圖片粘貼到選定圖表的基底或背景墻 上。對(duì)于Point和Series對(duì)象，將剪貼板中的圖片作為標(biāo)志粘貼到選定的數(shù) 據(jù)點(diǎn)或系列上。本方法可用于柱形圖、條形圖、折線圖或雷達(dá)圖，并且將 MarkerStyle 屬性設(shè)置為 xlMarkerStylePicture 。expressi on .Pasteexpression必需。該表達(dá)式返回上面的對(duì)象之一。應(yīng)用于

10、SeriesCollection 對(duì)象的Paste方法。將剪貼板中的數(shù)據(jù)粘貼到指定的系列集合中。expressio n.Paste（Rowcol, SeriesLabels, CategoryLabels, Replace, NewSeries）expression必需。該表達(dá)式返回一個(gè) SeriesCollectio n 對(duì)象。Rowcol XlRowCol類型，可選。指定對(duì)應(yīng)于特定數(shù)據(jù)系列的數(shù)值是處于行中 還是列中。XlRowCol可為以下XlRowCol常量之一。xlColum ns 默認(rèn)值xlRowsSeriesLabelsVariant 類型，可選。若為True，則用每一行的第一列（

11、或每一列的第一行）中的單元格容作為該行（或列）中數(shù)據(jù)系列的名稱。若為False， 則用每一行的第一列（或每一列的第一行）中的單元格容作為數(shù)據(jù)系列的第一個(gè) 數(shù)據(jù)點(diǎn)。默認(rèn)值為False。CategoryLabels Variant 類型，可選。若為True，則用選定區(qū)域的第一行 （或第一列）中的容作為圖表的分類。若為 False，貝U用選定區(qū)域的第一行（或 第一列）中的容作為圖表的第一個(gè)數(shù)據(jù)系列。默認(rèn)值為False。ReplaceVariant類型，可選。若為True，則在用被復(fù)制區(qū)域的信息取代現(xiàn)有的分類時(shí)應(yīng)用分類。若為False，則插入新分類而不替換任何原有分類。默認(rèn)值為True。NewSeri

12、esVariant 類型，可選。若為True，則將數(shù)據(jù)作為新系列粘貼。若為False，則將數(shù)據(jù)作為原有系列的新數(shù)據(jù)點(diǎn)粘貼。默認(rèn)值為True。應(yīng)用于 Worksheet對(duì)象的Paste方法。將剪貼板中的容粘貼到工作表上。expression.Paste(Destination, Link)expression必需。該表達(dá)式返回一個(gè) Worksheet對(duì)象。DestinationVariant 類型，可選。Range對(duì)象，指定用于粘貼剪貼板中容的目標(biāo)區(qū)域。如果省略本參數(shù)，就使用當(dāng)前的選定區(qū)域。僅當(dāng)剪貼板中的容能被 粘貼到某區(qū)域時(shí)，才能指定本參數(shù)。如果指定了本參數(shù)，就不能使用Link參數(shù)LinkVa

13、riant類型，可選。若為True，就建立與被粘貼數(shù)據(jù)的源之間的。如果指定了本參數(shù)，就不能使用Destination參數(shù)。默認(rèn)值為False。說(shuō)明如果未指定Destination 參數(shù)，那么必須在使用本方法之前選定目標(biāo)區(qū)域。本方法可能會(huì)修改工作表的選定區(qū)域，這取決于剪貼板中的容。Excel VBA教程：Paste方法示例應(yīng)用于Chart對(duì)象。本示例將Sheetl上單元格區(qū)域B1:B5中的數(shù)據(jù)粘貼到Chartl中。Worksheets("Sheet1").Ra nge("B1:B5").CopyCharts("Chart1").Past

14、e應(yīng)用于Point 或Series對(duì)象。本示例將剪貼板中的圖片粘貼到 Chartl上的第一個(gè)系列中。Charts("Chart1").SeriesCollectio n( 1).Paste應(yīng)用于 SeriesCollectio n對(duì)象。本示例將剪貼板中的圖片粘貼到 Chartl上的第一個(gè)系列中。Worksheets("Sheet1").Ra nge("C1:C5").CopyCharts("Chart1").SeriesCollectio n.Paste應(yīng)用于 Worksheet對(duì)象。本示例將Sheetl上單元格區(qū)

15、域C1:C5中的數(shù)據(jù)復(fù)制到單元格區(qū)域 D1:D5中Worksheets("Sheet1").Ra nge("C1:C5").CopyActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")自己測(cè)試：一、選擇性粘貼一一全部：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） ©列寃檢）公式和數(shù)字格式（R） 值兀數(shù)字裕弍（H）乘加除（I）粘貼" 公式（

17、EC數(shù)值（I）格式（I） 批注© 運(yùn)算無(wú)儀）C加）減跳過(guò)空單元（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錄剤.時(shí)間：2014/12/3frSelection. CopvCOllO. SelectPasteSpecial PasteOpcratiQiiallfencj StipBlarLlis ：=Ealse, Transpose: a 1 s eKnd SMb二、選擇性粘貼數(shù)值Selectio n.CopyRa nge("D14").SelectSelect ion .PasteSpecial