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