【Excel_VBA】セル範囲に数値を加算して貼り付ける（168）

2022年6月24日2022年6月27日

数値が入力されているセルをコピーするとき、別のセル範囲に入力されている数値を加算してから貼り付けることが出来ます。
第1引数Pasteに定数xlPasteValuesを指定して値を貼り付け、第2引数Operationに、加算を表すxlPasteSpecialOperationAddを指定します。

【Excel VBA】サンプルコード

サンプルコード

Sub vba168()
    Range("E5").Copy
    Range("C5:C6").PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlPasteSpecialOperationAdd
    Application.CutCopyMode = False
End Sub

解説

数値が入力されているセルをコピーするとき、別のセル範囲に入力されている数値を加算してから貼り付けることが出来ます。
第1引数Pasteに定数xlPasteValuesを指定して値を貼り付け、第2引数Operationに、加算を表すxlPasteSpecialOperationAddを指定します。

　プラスワン　

【PasteSpecialメソッドの引数】

PasteSpecialメソッドに4つの引数を指定できますが、ここでは第1引数のPasteと第2引数のOperationについて説明します。
第1引数のPasteでは、貼り付ける内容を指定します。第2引数のOparationは、コピーした数値を貼り付け先のセルの値とどのような演算を行うかを指定します。

＜第1引数：Paste＞

定数	貼り付け内容
xlPasteAll	すべて
xlPasteFormulas	数式
xlPasteValues	値
xlPasteFormats	書式設定

＜第2引数：Operation＞

定数	演算の内容
xlPasteSpecialOperationNone	なし
xlPasteSpecialOperationAdd	加算
xlPasteSpecialOperationSubtract	減算
xlPasteSpecialOperationMultiply	乗算
xlPasteSpecialOperationDivide	除算