VBAで質問があります。 別添画像を見ていただきたいのですが、 黄色セルの数値を切り上げして配列に入れる → 青色セルへ転記 という処理をしています。 テストデータなので、10行のデータが8つですが、、、 実際のデータは、20行のデータが30くらいあって、、、 以下のコードでは処理が遅いです。。。 早く処理するにはどうしたらいいのでしょうか? どなたか、よろしくお願いします。 Sub test() Dim Cnt Dim k, c, r Dim Box(79) Application.ScreenUpdating = False '黄色列を切り上げして配列に格納 Cnt = 0 For k = 0 To 1 For c = 3 To 12 Step 3 For r = 1 To 10 Box(Cnt) = WorksheetFunction.RoundUp(Cells(r + k * 19, c), 0) Cnt = Cnt + 1 Next r Next c Next k '配列データを青色セルへ転記 Cnt = 0 For k = 0 To 1 For c = 14 To 17 For r = 1 To 10 Cells(r + k * 19, c) = Box(Cnt) Cnt = Cnt + 1 Next r Next c Next k MsgBox "END" End Sub
Visual Basic