[マクロ]上のセルの値で空白セルを埋める

上のセルの値で空白セルを埋めるExcelVBAマクロです。
c.textには代入できないので、"c.Value="にする必要があります。


Sub FillInCells()
For Each c In Selection
If c.Text = "" Then
c.Value = c.Offset(-1, 0).Text
End If
End Sub