九九乘法表？三行就夠了！

如果問你

你最早學會的快捷鍵是什麼？

我相信

一百個裡面有九十九個會回答

Ctrl C + Ctrl V

是的

複製粘貼就是這麼重要和普及

那麼

你會用 VBA 複製粘貼么？

餅乾說

由於平時常用VBA來進行基礎數據的採集和匯總

其中最基本的操作就是

Range.Copy

Range.PasteSpecial

複製和選擇性粘貼

由於

.Paste 方法

作用於 WorkSheet，而不是 Range

因此

在只涉及複製數據的情況下

.PasteSpecial 總是可以替代 .Paste

並且往往發揮得更好

回顧一下題圖

• 代碼詳解

Range.Copy 方法

複製

Range.Copy(Destination)

參數說明

• Destination 目標區域_可選

:= [A2]

若目標區域為空，則複製到剪貼板

Range.PasteSpecial 方法

選擇性粘貼

Range.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

參數說明

• Paste 粘貼選項_可選

:= xlPasteAll 全部內容【默認值】:= xlPasteAllExceptBorders 邊框除外:= xlPasteAllMergingConditionalFormats 合併條件格式:= xlPasteAllUsingSourceTheme 使用源主題粘貼:= xlPasteColumnWidths 粘貼列寬 := xlPasteComments 粘貼批註:= xlPasteFormats 粘貼源格式:= xlPasteFormulas 粘貼公式:= xlPasteFormulasAndNumberFormats 粘貼公式和數字格式:= xlPasteValidation 粘貼有效性:= xlPasteValues 粘貼值:= xlPasteValuesAndNumberFormats 粘貼值和數字格式

• Operation 運算選項_可選

:= xlPasteSpecialOperationNone 無運算【默認值】:= xlPasteSpecialOperationAdd 加:= xlPasteSpecialOperationSubtract 減:= xlPasteSpecialOperationMultiply 乘:= xlPasteSpecialOperationDivide 除

目標位置的值 [加減乘除] 複製的值

• SkipBlanks 跳過空單元_可選

:= False 不跳過【默認值】:= True 跳過

複製的單元格為空值時不粘貼

• Transpose 轉置_可選

:= False 不轉置【默認值】:= True 轉置

微習題

還記得標題么？

試一試

使用複製粘貼製作九九乘法表

餅乾只用了三行代碼（放大看動圖）

在我的公眾號

餅乾數數 CookieData

回復

九九乘法表

下載習題答案