VBAで空白セルにのみ数値を代入する方法

質問

御伺いしたい事があります。
例えば
セルA2に何も数値が書かれていない空白状態ならば、VBAでだした数値を代入して終了。

もし空白で無いのならば、セルをA2から1つ下のA3で空白かどうかの判定をする(空白のセルが来るまで続ける)

といったように、積み上げ形式でどんどんセルを動きながら代入を行いたいのですが

これを行うには、どういったVBAでの記述が必要なのでしょうか？
よろしくお願いいたします。

回答No.1

mach999 · ベストアンサー

こういう感じで良いのでしょうか。

Private Sub SetVariableToBlankCell()
　　Dim i As Integer

　　For i = 1 To 65536
　　　　If Range("A" & i).Value = "" Then
　　　　　　Range("A" & i).Value = 100
　　　　　　Exit For
　　　　End If
　　Next i
End Sub

お礼

御早い回答ありがとうございます。
その記述を参考に使って見たところ
私の思っていたとおりの結果を出すことが出来ました。
本当にありがとうございます。

回答No.3

GETSTREET

回答No.1さんへ補足

integerではエラーになります。

お礼

補足ありがとうございます。
エラーしなくなりました。

回答No.2

papayuka

データの最終セルを探したいだけなら、、、

Sub Test()
　Range("A65536").End(xlUp).Offset(1, 0).Value = "Last"
End Sub

お礼

御早い回答ありがとうございます。
今回は使わなかったのですが、これも色々と応用できそうです。
本当にありがとうございます。