複数のセルを選択し、その合計値を値で貼り付け！！

経理担当者や経営企画担当者がエクセルを使っていてイライラするのが、複数のセルをCtrlやShiftで選択して、その合計値をノートや電卓で書き留めておいて、別のエクセルシートに貼り付けること。

計算式にしてしまうと前提の値が変化した場合に計算結果が変化してしまいます。ホント、イライラするけど、これを１日に何度もしていると思うと、ストレス、どんどん溜まります。

そんな時に超便利なマクロを紹介します。

マクロを実行するとこのようにメッセージが出ます。

クリップボードに保存されている値を↓のように任意の場所に貼り付けてください。

簡単でしょ

マクロの中身は↓です。自由にコピって使てください。

---

Sub 複数セル合計値のコピー()

Dim 選択範囲a As Range

Dim 選択範囲b As Range

Dim i As Currency

Set 選択範囲a = Selection.SpecialCells(xlCellTypeVisible)

'Valueという数値でないと、これはエラーになります

For Each 選択範囲b In 選択範囲a

i = i + 選択範囲b.Value

Next 選択範囲b

'"new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"でクリップボードの値を取得できる

With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

.SetText i

.putinclipboard

End With

MsgBox i & "をコピーしました"

End Sub

---