Home > 即効テクニック > Excel VBA > セル操作関連のテクニック > 列の値を別の列へ足し込む方法

即効テクニック

セル操作関連のテクニック

列の値を別の列へ足し込む方法

(Excel 97/2000)
一旦コピーしたデータを、別のセルに演算して貼り付けることができます。「形式を選択して貼り付け」の「演算」を利用した方法です。
サンプルでは、1つのセルだけではなく列全体を指定しているので、列全体が一括計算されます。
D列に値を入力して、サンプルマクロを実行してください。
C列に1回目は同じ値がコピーされますが、2回目は加算された値が入力されます。
Sub RangeAdd()

    ' コピー状態をクリア
    Application.CutCopyMode = False

    ' 足す値が格納された列(範囲)を選択
    Columns("D:D").Copy

    ' 足される行(範囲)を選択し、コピーされたデータを値として加算する
    Columns("C:C").PasteSpecial Paste:=xlValues, Operation:=xlAdd

End Sub