【分享成果，随喜正能量】這世間水流花開，一切都是現成的風景，每個時刻都是進行時，

每個時刻都是定格的故事。活一回歲月，活的就是這份思索中的當下和放過，傳遞的就是這樣一種智慧。在這風景中提高自己，是一份不懈努力的故事。

《VBA代碼解決方案》這套教程是我最早推出的教程，目前已經是第二版修訂了。這套教程定位于入門後的提高，在學習這套教程過程中，側重點是要理解及掌握我的“積木編程”思想。要靈活運用教程中的實例像搭積木一下把自己喜歡的代碼擺好。

這套教程共三冊，一百四十七講，内容覆蓋較廣，也是初級和中級間的過度教程，改版後的内容主要是提供程序源碼文件及代碼修正為32位和64位兼用代碼。今後一段時間會給大家陸續推出。今日的内容是第10講：VBA代碼之複制粘貼操作

今日給大家推出VBA代碼方案第十講：如何利用VBA代碼完成複制的過程。在EXCEL中複制和粘貼是非常基本的操作，在VBA代碼中複制和粘貼是如何操作的呢？今日給大家詳細的講解。這些代碼可以在程序中可以直接利用，也可以在實際工作中稍加修改，以适合自己的應用環境，希望朋友們能活學活用。結合自己的實際工作靈活運用。

在VBA代碼中的複制是利用Range對象的Copy方法，

其語法如下：Copy(Destination)

參數Destination表示複制單元格區域的目标區域，如果省略該參數，Excel将把該區域複制到剪貼闆中。使用Copy方法複制單元格區域時，也複制了該單元格區域的格式，

複制單元格區域時，如果目标區域為非空單元格區域，Excel将顯示消息框提示是否替換單元格内容，可以設置Application.DisplayAlerts屬性值為False，使複制時不出現該消息框。

我們看下面的實際代碼：

Sub mynz_10_1() '第10講 利用VBA代碼完成複制

Application.DisplayAlerts = False

Sheets("9").Range("A1").CurrentRegion.Copy Sheets("10").Range("A1")

Application.DisplayAlerts = True

End Sub

代碼解析：

上面過程将Sheets("9")工作表中A1單元格的當前區域複制到Sheets("10")工作表中以A1單元格為左上角單元格的區域

上述代碼中，第2行代碼通常複制單元格區域的操作不會将單元格區域的列寬大小同時複制，如果希望在複制單元格區域的同時，也複制源區域的列寬大小，可以使用下面的代碼。

Sub mynz_10_2() '第10講 利用VBA代碼完成複制

Sheets("9").Range("A1").CurrentRegion.Copy '複制到剪切闆中

With Sheets("10").Range("d1")

.PasteSpecial xlPasteColumnWidths '選擇性粘貼剪貼闆中的Range對象的列寬

.PasteSpecial xlPasteAll 'Range對象全部内容

End With

Application.CutCopyMode = False '取消應用程序複制模式

End Sub

代碼解析：

1） 第4行代碼使用Range對象的PasteSpecial方法選擇性粘貼剪貼闆中的Range對象的列寬。

2）第5行代碼粘貼剪貼闆中的Range對象全部内容。

3）第7行代碼取消應用程序複制模式。

• 應用于Range對象的PasteSpecial方法将剪貼闆中的Range對象粘貼到指定區域，在粘貼時可以有選擇的粘貼對象的部分屬性。其語法如下：

PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

1）參數Paste指定要粘貼的區域部分，可為如下所列的XlPasteType常量之一。

xlPasteAll -4104 全部（默認值）

xlPasteAllExceptBorders 7 邊框除外

xlPasteColumnWidths 8 列寬

xlPasteComments -4144 批注

xlPasteFormats -4122 格式

xlPasteFormulas -4123 公式

xlPasteFormulasAndNumberFormats 11 公式和數字格式

xlPasteValidation 6 有效性驗證

xlPasteValues -4163 數值

xlPasteValuesAndNumberFormats 12 值和數字格式

2）參數Operation指定粘貼操作。XlPasteSpecialOperation為下面常量之一。

xlPasteSpecialOperationNone -4142 無（默認值）

xlPasteSpecialOperationAdd 2 加

xlPasteSpecialOperationSubtract 3 減

xlPasteSpecialOperationMultiply 4 乘

xlPasteSpecialOperationDivide 5 除

3）參數SkipBlanks指示是否跳過空單元格，若參數值為True，則不将剪貼闆上區域中的空白單元格粘貼到目标區域中。默認值為False。

4）參數Transpose指示是否進行轉置，若參數值為True，則粘貼區域時轉置行和列。默認值為False。

代碼截圖：

複制内容:

運行後：

今日内容回向：

1 Copy(Destination) 意義是什麼？

2 PasteSpecial(Paste, Operation, SkipBlanks, Transpose) 意義是什麼？

我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：

第7套教程（共三冊）：《VBA之EXCEL應用》：是對VBA基本的講解

第1套教程（共三冊）：《VBA代碼解決方案》：是入門後的提高教程

第4套教程（16G）：VBA代碼解決方案之視頻（第一套的視頻講解）

第3套教程（共兩冊）：《VBA數組與字典解決方案》：是對數組和字典的專題講解

第2套教程（共兩冊）：《VBA數據庫解決方案》：是對數據庫的專題講解

第6套教程（共兩冊）：《VBA信息獲取與處理》：講解VBA的網絡及跨程序應用

第5套教程（共兩冊）：VBA中類的解讀和利用：類及接口技術的講解

第8套教程（共三冊）：VBA之Word應用（最新教程）：word中VBA的利用

上述教程的學習順序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

• 如何學習VBA呢? 概括的說就是: 學習過程中要信、解、受、持，更要有回向的業力。無論您在學習的任何階段，都要對照教程的知識點加持自己的實際工作，總會有豐厚的收獲。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!