いつもお世話になっております。
途中まで動くのですが処理途中でループで抜けてしまって最後
まで転記されません。
また、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
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。