※内容 ： 処理する範囲を選択する。
上のセルの値を、下のセルの値が空の場合のみ下のセルに値をコピーする
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
実行結果
以上
