for と ifをネストしたVBAが正常に動作しない

Question

カレンダー状のシートの上段に文字が入っている場合に下段に文字を挿入するVBAを作っているのですが、上段のセルの指定にoffsetを使用し、<>を組み込むと上手く動作してくれません。（1行だけで動作が止まってしまう）

Dim c As Long
    Dim r As Long
    
    For c = 3 To 63 Step 2
        For r = 3 To 15
            If Cells(c, r).Offset(-1, 0).Value <> "" Then

               Cells(c, r).Value = "〇"
            End If
        Next r
    Next c

ifを

If Cells(c, r).Offset(-1, 0).Value = "" Then
   Cells(c, r).Value = ""
Else
   Cells(c, r).Value = "〇"
End If

にしたら動作しました。
動かす事は出来たのですが、何故動作しなかったのかがわかりません。
Excelのバージョンは2016です。よろしくお願い致します。
表は以下の様なものです。
上段が日勤、下段が夜勤で夜勤が入力されていると次の日の上段に夜勤明けと記載されるようにする物です。

Comments

[radames1000]

どのようなシートなのかサンプルでも見せていただけませんか？

Answer 1

シートの書式が不明瞭なので間違っているかもしれませんが、上段・下段の関係がある書式であるなら、行の処理は1行おきに行う必要があるのではないでしょうか？
つまりFor文のStep 2を行うのはrのループの方では？

    For c = 3 To 63
        For r = 3 To 15 Step 2

Comments

[RS8]

回答ありがとうございます。
Cが行でrが列になります。column rowが逆でしたね。。

[ttyp03]

逆だけどCellsの中も逆になってるのであってるのですね。
失礼しました。

[ttyp03]

ご提示のコードで動作させてみましたが、問題なく動くようですよ。
何か大きな（むしろ些細な？）見落としがあるのでは？

[RS8]

今動かしてみたら、動きました。。。結局何を見落としていたのかもわからず。
お手数をお掛けしました。