エクセルのＶＢＡで

質問

ある列（仮にＡ列とします）の最終行がＡ３０であり
Ａ２５までは空白だとします。
この時に、Ａ３０の値をＡ２９～Ａ２５＝データの入力されていないセルに入力（コピー）するにはＶＢＡでどのように記述すればいいのでしょうか？
最終行から、上にその最終行の値をデータの入力されているセルに達するまで入力（コピー）したいのですが。
分りづらい表現で申し訳ありませんが、よろしくお願い致します。

回答No.3

GuruGuru22 · ベストアンサー

こんな感じかな。
With Range("A65536")
Range(.End(xlUp), .End(xlUp).End(xlUp).Offset(1)).Value = _
.End(xlUp).Value
End With

お礼

お礼が遅れて申し訳ありません。
私がやりたかったとおりに動きました。
ありがとうございました。

回答No.4

housyasei-usagi

No.2の回答を書いた物です。ちょっと補足します。

私の回答もNo.1さんの回答も，エクセルのシート上では空白に見える「スペース」がセルに書きこまれている場合は，期待通りの動きをしませんのでご注意を。

回答No.2

housyasei-usagi

この場合，ご質問の例からＡ３０のセルを選択した状態から，次のマクロを起動すればご希望の処理をすると思います。
Ａ３０である必要はありません。選択したセルを基準にしたマクロです。
ちなみに私はＡ１形式派でなくＲ１Ｃ１形式派です。

ご質問の無い様の解釈に間違いなければ問題なく動作します。ただし，Ａ１形式でいう，１の行を選択するとエラーになります（^^;)。回避は簡単ですけど，質問の内容からありえない選択ですので省略。

Sub test()

r = ActiveCell.Row
c = ActiveCell.Column
rr = r
10 rr = rr - 1

If Cells(rr, c) = "" Then
Cells(rr, c) = Cells(r, c)
GoTo 10
End If

End Sub

お礼

お礼が遅れてもうしわけありません。
ちゃんと動きました。

回答No.1

papayuka

単純に例通りなら。

Sub aaa()
Dim i As Long
　For i = 29 To 25 Step -1
　　If Range("A" & i).Value = "" Then
　　　 Range("A" & i).Value = Range("A30").Value
　　End If
　Next i
End Sub

お礼

お礼が遅れて申し訳ありません。
無事動きました。