【VBA高速化】VBA高速化テクニック②【事務のおばちゃんでも簡単】

by baseballyama · 公開 2019年1月17日 · 更新済み 2020年3月26日

今回は、Excel VBAのプログラムを高速化するために使えるテクニックを1つ紹介します。
これは既存のExcel VBAのプログラムを少し修正して改善できるテクニックではありません。
しかし、「Excel VBA でプログラムを書けます」と言えるためには必須のテクニックですので、
是非身につけて頂ければと思います。

テクニックの概要

今回は、ソースコードを紹介する前に、今回シェアするテクニックの概念について説明します。
（概念といっても大それたものではありません。）

Excel VBAにおいて主となる処理の1つに、「セルへのアクセス」があります。
特にセルの値を読む操作は頻出処理だと思います。

Excel VBA においては、「セルにアクセスする回数」分、処理時間がかかります。

例えば、行挿入処理を例にします。
行挿入処理は、Ctrl Shift + といった3つのキーを同時押しすることでできます。
- Excelにて、上記ショートカットキーを10回押して行挿入した場合
- 10行選択して1回ショートカットキーを押した場合
この2つの処理の処理時間はどう変わるでしょうか。
10行選択して1回ショートカットキーを押した場合の方が圧倒的に速いと思います。

セルへアクセスする処理は全て上記の法則が適用されます。

今回は、「セルにアクセスする回数」が多くなりがちな処理である、
セルの値の読み込みについて、具体的なプログラムを共有します。

ソースコード

それではソースコードを以下に記載します。

Option Explicit

' 実行速度が速いセルの値読み込み

Public Sub fastCellReader()

' 定数宣言

Const MAX_ROW_NUMBER As Long = 50000

Const MAX_COLUMN_NUMBER As Long = 100

' 変数宣言

Dim sheet As Worksheet

Dim r As Range

Dim startTime As Single

Dim rowNumber As Long

Dim columnNumber As Long

Dim cellText As String

Dim cells As Variant

' 処理開始日時を取得

startTime = Timer()

' アクティブシートを取得

Set sheet = ActiveSheet

' A1セルから最大行目/最大列目までの値を一気に取得

With sheet

cells = .Range(.cells(1, 1), .cells(MAX_ROW_NUMBER, MAX_COLUMN_NUMBER))

End With

' 1行目から最大行目まで走査

For rowNumber = 1 To MAX_ROW_NUMBER

' 1列目から最大列目まで走査

For columnNumber = 1 To MAX_COLUMN_NUMBER

' セルの値を読み込み

cellText = cells(rowNumber, columnNumber)

' 処理時間を出力

Debug.Print "処理時間 : " & Format((Timer() - startTime), "0.00") & " 秒"

End Sub

' 実行速度が遅いセルの値読み込み

Public Sub SlowCellReader()