エクセルのマクロ、VBAの質問です。ベスト回答には333ポイント。画像を見て下さい。セル内容が空白ならば、一つ上のセルの値を代入したいのです。たとえば、画像ならば、セルA5には、一つ上であるセルA4のcという文字を代入するということです。同じく、セルA8にはe,セルA10にはfを入れたいと言うことです。

先ほどは失礼しました。

今度は外してないと思うのですが（^^;;）

Sub fillCells()
    Dim lastRow As Long
    ' ---最終行の設定
    lastRow = Range("A65535").End(xlUp).Row
    
    For i = 2 To lastRow
        If IsEmpty(Cells(i, "A").Value) Then
        ' ---空の場合上の値をコピー
            Cells(i, "A").Value = Cells(i - 1, "A").Value
        End If
    Next
End Sub

外していたら、ポイントは不要です。