antique-appです!
本日は、私が愛用するExcelマクロをひとつ紹介させていただきます。
コードは短いですが、資料作りや経理業務に役に立つこと請け合いです!
できること
Excelの機能に、「オートカルク」と呼ばれる機能があります。
数値が含まれるセルを複数選択すると、画面の右下に合計値などの計算結果が表示される、あれです。

標準のExcelの機能では、この合計値をコピーして貼り付けするといったことはできません。
せっかくExcelがセルの値の合計値を出してくれているのに、それをコピーできないなんて、やきもきしますよね。
私もこのマクロを使う前は、紙に鉛筆でメモしたり、電卓に数字を打ち込んだりしていました。でも、それだと、時間がかかるしミスも生じてしまいます。
しかし、このマクロを使うことにより、セルの値の合計値をクリップボードにコピーし、ほかのセルやシートに貼り付けられるようになります!
作り方
まずは、マクロの編集画面を開きましょう!
そして、以下のコードを標準モジュールに貼り付けます。
Sub オートカルクのコピー() Dim a, b As Range Dim i As Currency Set a = Selection.SpecialCells(xlCellTypeVisible) For Each b In a i = i + b.Value Next b 'クリップボードに合計値をセットしている With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText i .putinclipboard End With MsgBox i & "をコピーしました。" End Sub
そして、マクロのショートカットを登録します。
なんのキーでもよいのですが、ここではわかりやすくCtrl+Shift+Cにしておきましょう。
※割り当てるキーの設定について、デフォルトはCtrl+□ですが、Cを入力すると、勝手にCtrl+Shift+Cに変わります。

以上で完成です!
簡単でしょう?
使い方
数値が含まれるセルを複数選択し、Ctrl+Shift+Cを同時押しします!
コピーした数字がメッセージとして表示されるので、オートカルクの合計値と一致していることを確認しましょう!

あとは、好きなところに貼り付けするだけです!
注意点として、選択範囲に数値以外の値が含まれているとエラーになりますのでお気をつけください。
また、Windows以外のOSでは正常に動作しません。
(私の実行環境はWindows10、Excel2016でした)
なお、作成に当たっては以下のサイト様を参考にさせていただきました。
tosk.hatenablog.com
本日は以上です。
みなさまの業務効率化の一助となれれば幸いです。