Excel マクロ　上のセルの値を下セルにコピー

※内容　：　処理する範囲を選択する。
　　　　　　上のセルの値を、下のセルの値が空の場合のみ下のセルに値をコピーする

Sub CopyCell()
Dim selectedRange As Range
Set selectedRange = Selection ‘ 選択した範囲を取得
Dim cell As Range
For Each cell In selectedRange.Cells ‘ 選択範囲内のセルを1つずつ処理
If cell.Offset(1, 0).Value = “” Then ‘ 下のセルが空の場合のみコピー
cell.Offset(1, 0).Value = cell.Value ‘ 下のセルに上のセルの値をコピー
End If
Next cell
End Sub

実行結果

以上