セルに値が入っていたら次の行のセルに入力させたい

Question

参照するセルは既に値が入っている前提で都度下の行に入力させることをしたいです。
Offsetも試したりしたのですがうまくいきません。

ヒントやアドバイスなどいただけないでしょうか？

Sub day()
  Dim date As String
  Dim i As Integer
  date = Range("B1")
  i = 2
  For i = 1 To 5
'  Cells(i, 3) = Cells(i, 3).Offset(-i, 0)
   If Cells(i, 3).Value <> "" Then
	   Cells(i, 3).Value =  date
   i = i + 1
  End If
   Next i
End Sub

補足ですが一回の実行で入力対象セルの上のセルに値が入っていたら入力対象セルに値を入れるということを実現したいです。
入力対象の列に値が入っていたら一番したのセルだけに値を入れるということです。
実現可能でしょうか？

宜しくお願い致します。

Comments

[jinoji]

B1セルの値を、C1、C2、C3… に入力したい、ということですか？

[Usirow]

「Forループで行方向に検索をして」「空白でないセルを見つけて」「その下のセルにdateを入力する」という処理の流れをそのままやると、縦方向にdateがズラっと並ぶことになりますが、それでよろしいのでしょうか？
最終的にどのような結果が必要ですか？

[suukun]

ありがとうございます。
例えばC1に値が入っていたら次はC2に入れるということをしたいです。
分かりづらくてすみません。

Answer 1

もしかしてこういうことでしょうか？
そのまま処理すると行方向に同じ値が入り続けるため、一つ値を入れた時点で処理を抜けるようにしてあります。

Sub day()

    Dim dates As String 'Dateは変数名として使用できないためdatesに変更
    Dim i As Integer
  
    dates = Range("B1")
    
    For i = 1 To 5
        
        If Cells(i, 3).Value <> "" Then
            
            Cells(i, 3).Offset(1, 0).Value = dates '条件に合ったセルの一行下のセルに入力
            Exit For                               '入力したらForループを抜けて処理を終わらせる
            
        End If
    
    Next i
End Sub

Comments

[suukun]

すみません。ありがとうございます。こちらで解決できました。

Answer 2

やりたいことを捉え損ねているかもしれませんが。

    Dim d, i, c
    d = Range("B1")
    i = 2
    Do Until c = 5
        If Cells(i, 3) = "" Then
            Cells(i, 3) = dates
            c = c + 1
        End If
        i = i + 1
    Loop

Answer 3

結果的にどういう挙動をしたいかが分かりませんが、ぱっと見おかしい点だけcommentしてみました。

Sub day()
    '変数名dateはdate型と勘違いされてコンパイラエラーが出るのでやめる(datesも命名的にはよろしくない)
    Dim dates As String
    Dim i As Integer
    dates = Range("B1")
    'ループと一致して動かさないのならループ変数とRow数値を共有しない
    Dim datesRow
    datesRow = 2
    'iにはループしたい回数の数値だけ持たせる
    For i = 1 To 5
        '変数iはループ変数なのでCellsで使用しない
        If Cells(datesRow, 3).Value <> "" Then
           Cells(datesRow, 3).Value = dates
        End If
        'もし空欄でない場合でも数値を増やしていかないとデータが入っていた場合下に進まない
        datesRow = datesRow + 1
    Next i
End Sub

修正した後に気づきましたがこの形だとiのループとdatasRowの挙動が一致しているので単純に下記でよさそうです。

    '不要
    'Dim datesRow
    'datesRow = 2
    '2to5で2始まりになる
    For i = 2 To 5
        If Cells(i, 3).Value <> "" Then
           Cells(i, 3).Value = dates
        End If
    'Next iでiの数値は1加算される
    Next i