|
はじめまして。お世話になります。
久しぶりにExcelVBAでモジュールを組んでいます。
ある4桁の数を桁ごとに集計するモジュールを組んでいます。
実行結果は思ったとおりに反映されますが、
どうも動作が軽くありません。
1500程度の集計で約11秒ほどかかってしまいます。
PC環境については
CPU:Pen4 2.0GHz
RAM:512MB
です。
もしかしたらこんなものでしょうか?
どこか動作の負荷を軽減する工夫する余地があれば
教えて頂けないでしょうか。
よろしくお願いいたします。
(以下モジュール)
Sub ResetList()
Dim r As Integer
r = 1
Do Until Cells(r, 1) = ""
Cells(r, 4) = Left(Cells(r, 3), 1)
Cells(r, 5) = Mid(Cells(r, 3), 2, 1)
Cells(r, 6) = Mid(Cells(r, 3), 3, 1)
Cells(r, 7) = Right(Cells(r, 3), 1)
r = r + 1
Loop
MsgBox "リストのリセットが完了しました!!"
End Sub
|
|