エクセル VBA DoLoopとCellsの範囲指定について

Question

いつもお世話になっております。
途中まで動くのですが処理途中でループで抜けてしまって最後
まで転記されません。

また、Rangeではなくてセル範囲の指定をCellsにしたいのですが
Cellsにするとエラーします。
そして、かっこいい構文ではありません。
※画像を、載せたいのですがうまくいかなかったので画像は
明日会社から貼り付けたいと思います。

Sub 交通誘導員配置実績転記()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim shD, shR
    Dim gyoD, gyoR
    Set shD = Worksheets("実績D")
    Set shR = Worksheets("実績R")
    gyoD = 4
    For gyoR = 7 To 62
        Do While shD.Cells(gyoD, 1) = shR.Cells(gyoR, 2)
        shR.Range("C" & gyoR & ":" & "J" & gyoR).Value = shD.Range("B" & gyoD & ":" & "I" & gyoD).Value
        gyoD = gyoD + 1
        Loop
    Next
    For gyoR = 7 To 68
        Do While shD.Cells(gyoD, 1) = shR.Cells(gyoR, 11)
        shR.Range("L" & gyoR & ":" & "S" & gyoR).Value = shD.Range("B" & gyoD & ":" & "I" & gyoD).Value
        gyoD = gyoD + 1
        Loop
    Next
    For gyoR = 7 To 61
        Do While shD.Cells(gyoD, 1) = shR.Cells(gyoR, 20)
        shR.Range("U" & gyoR & ":" & "AB" & gyoR).Value = shD.Range("B" & gyoD & ":" & "I" & gyoD).Value
        gyoD = gyoD + 1
        Loop
    Next
End Sub

Answer 1

Rangeではなくてセル範囲の指定をCellsにしたいのですが Cellsにするとエラーします。

shR.Cells("C" & gyoR & ":" & "J" & gyoR).Value
のような記載をされたのでしょうか？

Cellsは単一のセル指定に使うもので、セル範囲指定には使用できません。
セル範囲を指定できるのがRangeなので、Rangeを使いましょう。

またRangeの座標指定には、Cellsを使うこともできます。（おそらくやりたかったのはこれではないでしょうか。）

For gyoR = 7 To 62
    Do While shD.Cells(gyoD, 1) = shR.Cells(gyoR, 2)
        shR.Range(Cells(gyoR, 3), Cells(gyoR, 10)).Value = shD.Range(Cells(gyoD, 2), Cells(gyoD, 9)).Value
        gyoD = gyoD + 1
    Loop
Next

---

＞途中まで動くのですが処理途中でループで抜けてしまって最後まで転記されません。

これについてはどんなシートで処理を回しているのかわからなければ何とも言えません。
可能性としては、見た目は同じに見えるけど実際には値が異なることでループ条件を満たさなくなり処理を抜けてしまうのではないか？というくらいです。
見た目が同じに見えるものとしては、
・全角と半角の違い
・スペースの有無
・未入力セルと空文字("")セル
などが代表的です。

デバッグ実行して意図せずループを抜けてしまうセルの内容がどんなものなのか確認すると良いです。

Answer 2

明日会社から貼り付けたいと思います

業務用コードであれば、Rage でも、Cells でも、セルアドレス指定は避けた方が無難です。
シート上のセルアドレスは、ある程度EXCELが面倒を見てくれますが、
VBA上のコードは、一切自動変更してくれません。
１．使用範囲のデータに範囲名を付けます。
２．可能な限り、完全修飾を行います。：ブック名、シート名、範囲名を
オブジェクト変数で使用します。
３．セルアドレス指定を行わず、セル範囲を範囲名で指定します。
４．ループでアクセスする場合は、vba range itemプロパティ で検索できる方法を使用します。
Range.Item プロパティ (Excel)：検索例
https://msdn.microsoft.com/ja-jp/library/office/ff841096.aspx?f=255&MSPPError=-2147217396
但し、結合セルに対する制約に注意します。
５．なぜ、セルアドレス指定でなく、範囲名でアクセスするか？
業務用帳票は、改変があります、改変の度にVBA側のセルアドレスを変更するのは、
ミスも起きますし、作った方が居なくなったらという、問題も発生します。
上手に範囲名を使う事で、帳票変更時のコード変更を、少なくする事が可能です。