エクセルのマクロ 値のクリアについて 以下のマクロを使用して、B5～G5のセルの内容を、 I5以下のセルにコピーペーストするボタンを作っています。 コピーペーストし終わった後、B5～G5のセルの値のみをクリアする 方法はありますでしょうか？ ------------------------------------------------------------------------- Sub 消費登録() Dim Flag As Boolean Dim c As Variant Const RowCount As Long = 1 Const ColumnCount As Long = 5 Application.ScreenUpdating = False Sheets("Sheet1").Range("B5").Resize(RowCount, ColumnCount).Copy Sheets("Sheet1").Select Range("I5").Activate Flag = False Do Until Flag '貼り付け先のセル範囲がすべて空白かどうかをチェック For Each c In ActiveCell.Resize(RowCount, ColumnCount) If IsEmpty(c) Then Flag = True Else '空白でないセルが見つかった Flag = False ActiveCell.Offset(RowCount, 0).Activate Exit For End If Next c Loop ActiveSheet.Paste Application.CutCopyMode = False Application.ScreenUpdating = True End Sub -------------------------------------------------------------------------