列の値を別の列へ足し込む（PasteSpecialメソッド）｜Excel VBA |
コピーしたデータを、別のセルに演算して貼り付けることができます。
「形式を選択して貼り付け」の「演算」を利用した方法です。
次のサンプルでは、1つのセルだけではなく列全体を指定しているので、列全体が一括計算されます。
D列に加算する値を入力して実行すると、C列にD列の値を加算します。
C列にデータが入っていない場合は、D列と同じ値がコピーされます。
Sub Sample()
' 足す値が格納された列（範囲）をコピー
Columns("D:D").Copy
' 足される列（範囲）を選択し、コピーされたデータを値として加算
Columns("C:C").PasteSpecial Paste:=xlValues, Operation:=xlAdd
' コピーモードを解除
Application.CutCopyMode = False
End Sub
