VBA 処理速度アップ 変数にセルの値を順番に入れてみる

case1～case13　の変数に、セルE5～E19　（下向きに連続しているセル群）

セル群って言う表現は、正しいのかどうか？　勝手に今つけました。

でも伝わるでしょ？

変数も1から13まで数字が連続しています。

case1 = Range("E5").Value
case2 = Range("E6").Value
case3 = Range("E7").Value
case4 = Range("E8").Value
case5 = Range("E9").Value
case6 = Range("E10").Value
case7 = Range("E11").Value
case8 = Range("E12").Value
case9 = Range("E13").Value
case10 = Range("E14").Value
case11 = Range("E15").Value
case12 = Range("E18").Value
case13 = Range("E19").Value

今は↑の感じで、ひとつひとつセルのデータを変数に代入しています。

・・　これをいっちょ料理して、処理速度アップしてみましょう。

エクセルVBAマクロの作り方講座（Excel2003版）