よろしくお願いいたします。
先ほどは失礼しました。
今度は外してないと思うのですが(^^;;)
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
外していたら、ポイントは不要です。
(^_^)v今回も回答ありがとうございました。
これで、バッチリでした。今度こそベスト回答になります。333ポイントもらって下さい。