VBA選擇性粘貼

1、Excel VBA教程：PasteSpecial 方法k應(yīng)用于Range對(duì)象的PasteSpecia方法。將剪貼板中的Ran ge對(duì)象粘貼到指定區(qū)域中(Paste, Operati on, SkipBla nks, Tran spose)expression必需。該表達(dá)式返回一個(gè)Ra nge對(duì)象。Paste XIPasteType類型，可選。指定要粘貼的區(qū)域部分Operation XlPasteSpecialOperati on 類型，可選。指定粘貼操作。貼數(shù)據(jù)，或以特定格式粘貼數(shù)據(jù)。(Format, Link, DisplayAsIco n, Icon FileName, lc onln d

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

3、用圖標(biāo)的文件名。Iconlndex Variant類型，可選。圖標(biāo)文件內(nèi)的圖標(biāo)索引號(hào)。Icon Label Varia nt類型，可選。圖標(biāo)的文本標(biāo)簽。NoHTMLFormatting Variant類型，可選。若為 True，則從 HTML中刪除所有 的格式設(shè)置、超鏈接和圖像。若為 False，則完整粘貼HTML。默認(rèn)值為Falsa說明注意 當(dāng)Format =“HTM時(shí)，NoHTMLFormatting才起作用。在所有其他情況下，NoHTMLFormatting 將被忽略。必須在使用本方法之前選定目標(biāo)區(qū)域。本方法可能會(huì)更改工作表的選定區(qū)域，這取決于剪貼板中的內(nèi)容。Excel VBA教程：Pa

4、steSpecial 方法 示例卩應(yīng)用于Range對(duì)象。本示例用Sheetl上單元格區(qū)域 C1:C5和單元格區(qū)域 D1:D5原有內(nèi)容的和來 取代單元格區(qū)域 D1:D5中的數(shù)據(jù)。With Worksheets(Sheet1).Ra nge(C1:C5).Copy.Ra nge(D1:D5).PasteSpecial _Operati on :=xlPasteSpecialOperati on AddEnd With卜應(yīng)用于Worksheet對(duì)象。本示例將剪貼板中的 Microsoft Word文檔對(duì)象粘貼到Sheetl上的單元格D1 中。Worksheets(Sheet1).Ra nge(D1)

5、.Selectformat:= _Microsoft WordDocume nt Object本示例粘貼相同的 Microsoft Word文檔對(duì)象，并將其顯示為圖標(biāo)。Worksheets(Sheet1).Ra nge(F5).SelectFormat:=Microsoft Word Docume nt Object, _DisplayAsIco n:=TrueExcel VBA 教程：Paste 方法E應(yīng)用于 Chart對(duì)象的Paste方法。將剪貼板中的圖表數(shù)據(jù)粘貼到指定的圖表中(Type) expression必需。該表達(dá)式返回一個(gè)Chart對(duì)象。Type Variant類型，可選。如果剪

6、貼板中有圖表，本參數(shù)指定要粘貼的圖表信息。可為以下 XIPasteType 常量之一：xlFormats、xlFormulas 或 xIAII。默認(rèn)值 為xIAIIo如果剪貼板中是數(shù)據(jù)不是圖表，則不能使用本參數(shù)。說明本方法將更改當(dāng)前的選定區(qū)域。卜應(yīng)用于 Floor、Point、Series和 WaIIs對(duì)象的 Paste方法。對(duì)于Floor和Walls對(duì)象，將剪貼板中的圖片粘貼到選定圖表的基底或背景墻 上。對(duì)于Point和Series對(duì)象，將剪貼板中的圖片作為標(biāo)志粘貼到選定的數(shù)據(jù) 點(diǎn)或系列上。本方法可用于柱形圖、條形圖、折線圖或雷達(dá)圖，并且將MarkerStyle 屬性設(shè)置為 xIMarker

7、StylePicture。expression必需。該表達(dá)式返回上面的對(duì)象之一。卜應(yīng)用于SeriesCollection對(duì)象的Paste方法。將剪貼板中的數(shù)據(jù)粘貼到指定的系列集合中。(Rowcol, SeriesLabels, CategoryLabels, Replace, NewSeries) expression必需。該表達(dá)式返回一個(gè) SeriesCollection對(duì)象。Rowcol XIRowCol類型，可選。指定對(duì)應(yīng)于特定數(shù)據(jù)系列的數(shù)值是處于行中還是 列中。SeriesLabels Variant類型，可選。若為 True,則用每一行的第一列（或每一列 的第一行）中的單元格內(nèi)容作為

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

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

10、就建立與被粘貼數(shù)據(jù)的源之間的鏈接 如果指定了本參數(shù)，就不能使用Destination參數(shù)。默認(rèn)值為Falsa說明如果未指定Destination參數(shù)，那么必須在使用本方法之前選定目標(biāo)區(qū)域。本方法可能會(huì)修改工作表的選定區(qū)域，這取決于剪貼板中的內(nèi)容。Excel VBA教程：Paste方法 示例應(yīng)用于Chart對(duì)象。本示例將Sheet1上單元格區(qū)域 B1:B5中的數(shù)據(jù)粘貼到 Chart1中。Worksheets(Sheet1).Ra nge(B1:B5).CopyCharts(Chart1).Pastek應(yīng)用于 Point或Series對(duì)象。本示例將剪貼板中的圖片粘貼到Chart1上的第一個(gè)系列中。

11、Charts(Chart1).SeriesCollectio n( 1).Paste 應(yīng)用于 SeriesCollection對(duì)象。本示例將剪貼板中的圖片粘貼到Chart1上的第一個(gè)系列中。Worksheets(Sheet1).Ra nge(C1:C5).CopyCharts(Chart1).匸應(yīng)用于Worksheet對(duì)象。本示例將Sheetl上單元格區(qū)域 C1:C5中的數(shù)據(jù)復(fù)制到單元格區(qū)域 D1:D5中Worksheets(Sheet1).Ra nge(C1:C5).CopyDest in atio n:=Worksheets(Sheet1).Ra nge(D1:D5)自己測試：一、選擇性粘

12、貼一一全部:Ra nge(D8).SelectRan ge(D11).SelectPaste:=xlPasteAII, Operatio n: =xlNo ne, SkipBla nks:= _False, Tran spose:=FalseEnd SubSub WacTQl0*lacroi Nacro1宜由ltc錄制,時(shí)間：2014/12/3RangpfriR)- SelectS8lBCTlon.CotJVEclcttPasteSpccial Psistc zlPcslcAll；, Of cration:=31Ifone, SkipEl ants ：= Palse, Transpose:a1

13、s eKnd 占 Lib、選擇性粘貼數(shù)值Ra nge(D14).SelectPaste:=xlPasteValues, Operatio n: =xlN one, SkipBla nks _ :=False, Tran spose:=FalseEnd SubSub Micro20JJ Macros Macro宏由 錄制.時(shí)間:2014/12/3Sei pct i ori CouyRanseCDlV 1 * Ssl ectSelectionFasteJpeclal Fa51e:=KlFasteTalues, Qpernion:=xlNMie, ;=Falsej Trinspcse:=FalebEnd Sub三、選擇性粘貼一一公式Ran ge(D8).SelectPaste:=xlPasteFormulas, Operati on: =xlN one, _SkipBla nks:=False, Tran spose:=FalseEnd Sub選壯砸粘貼Q *公式(E)Q數(shù)值(F) 格式e批注 運(yùn)算無儀)c加)* Q減跳過空卑元(E)有效性竣證(H 邊老除外(舟 列寃逍)公式和數(shù)字格式(R)值和魏字格