商品月中売上高のコピー用をマクロ教えて下さい

Excel2010です。
商品A・Ｂの月中売上高（セルＢ16、Ｃ16）を月末に集計表の当該月（4月分はＢ2とＣ2、5月分はＢ3とＣ3）に毎月1行下に順番にコピーするマクロを教えて下さい。
コピー先の計算表のセル範囲（Ｂ2：Ｃ13）は、年度初に手入力でブランクにしています。

月中売上高（セルＢ16、Ｃ16）は、同一ファイルの別シートで計算する日別集計額を参照しています。現在は、月末日にセルＢ16とＣ16の金額を集計表の当該月に手入力した後、マクロで別シートの日別データを消去して別シートのカレンダーを翌月用に更新しています。

今回は、現行の月末更新マクロの最初にコピー命令を追加したいと思います。

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/01/01 18:09

何月にどこのセルへってのは完全無視して、『マクロ実行時に空白セル（範囲B2:B13とその横のＣ列）の一番上に値を入れる』って言う事なら、

Dim r As Range

If WorksheetFunction.CountBlank(Range("B2:B13")) = 0 Then Exit Sub 'B列に空白セルがなければ処理を中断

Set r = Range("B2:B13").SpecialCells(xlCellTypeBlanks)

r.Cells(1).Resize(, 2).Value = Range("B16:C16").Value

Set r = Nothing

こんな感じでしょうか？

この回答へのお礼

めぐみん　さん

大変ありがとうございました。
早速、動かして上手くできました。実務に応用します。
空白セルの1番目を選んでサイズを変更する方法、勉強になりました。

お礼日時：2020/01/02 13:52