10万行 → 1秒処理テンプレ（実務向け）
Excelで 10万行以上のデータ を処理する場合、セルを1つずつ操作すると「数分〜数十分」かかってしまいます。そこで、配列に一括読み込み → 配列内で処理 → 一括書き戻し の流れを使えば、1秒前後で処理完了できます。初心者向けに、コード例とテンプレートをかみ砕いて説明します。
基本の流れ（高速処理の鉄則）
- Rangeを配列に読み込む
→v = Range("A1:C100000").Value
→ 二次元配列に一瞬で取り込める。 - 配列内で処理する
→ ループや条件分岐でまとめて変更。 - 結果を一括で書き戻す
→Range("A1:C100000").Value = v
→ セルに一括反映。 - 画面更新や計算を止める
→Application.ScreenUpdating = Falseなどでさらに高速化。
テンプレ1：10万行を一括処理（数量を2倍）
Sub FastProcess_100k()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Dim ws As Worksheet: Set ws = Worksheets("Data")
Dim rg As Range: Set rg = ws.Range("A2:C100000")
Dim v As Variant: v = rg.Value
Dim r As Long
For r = 1 To UBound(v, 1)
v(r, 3) = v(r, 3) * 2 ' C列=数量を2倍
Next r
rg.Value = v
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
- ポイント:
- 10万行でも1秒前後で処理完了。
ScreenUpdatingやCalculationを止めるのが高速化のコツ。
テンプレ2：条件付き一括変換（100以上なら「大」）
Sub FastProcess_Condition()
Dim ws As Worksheet: Set ws = Worksheets("Data")
Dim rg As Range: Set rg = ws.Range("C2:C100000") ' 数量列
Dim v As Variant: v = rg.Value
Dim r As Long
For r = 1 To UBound(v, 1)
If v(r, 1) >= 100 Then
v(r, 1) = "大"
Else
v(r, 1) = "小"
End If
Next r
rg.Value = v
End Sub
- ポイント: 条件判定も配列内でまとめて処理。
テンプレ3：集計（合計・平均）
Sub FastProcess_SumAvg()
Dim ws As Worksheet: Set ws = Worksheets("Data")
Dim rg As Range: Set rg = ws.Range("C2:C100000") ' 数量列
Dim v As Variant: v = rg.Value
Dim sumQty As Double, r As Long
For r = 1 To UBound(v, 1)
sumQty = sumQty + v(r, 1)
Next r
MsgBox "合計=" & sumQty & vbCrLf & "平均=" & sumQty / UBound(v, 1)
End Sub
- ポイント: 配列で集計すれば高速。
テンプレ4：検索をDictionaryで高速化
Sub FastProcess_SearchDict()
Dim ws As Worksheet: Set ws = Worksheets("Data")
Dim rg As Range: Set rg = ws.Range("A2:B100000") ' A=コード, B=商品名
Dim v As Variant: v = rg.Value
Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")
Dim r As Long
For r = 1 To UBound(v, 1)
dict(v(r, 1)) = v(r, 2)
Next r
' 検索例
Dim key As String: key = "C50000"
If dict.Exists(key) Then
MsgBox "コード " & key & " の商品名は " & dict(key)
Else
MsgBox "該当なし"
End If
End Sub
- ポイント: 数万件でも検索が一瞬。
例題で練習
'例1：数量列を2倍にして書き戻す
Sub Example1()
FastProcess_100k
End Sub
'例2：数量列を条件付きで「大」「小」に変換
Sub Example2()
FastProcess_Condition
End Sub
'例3：数量列の合計と平均を計算
Sub Example3()
FastProcess_SumAvg
End Sub
'例4：コード検索をDictionaryで高速化
Sub Example4()
FastProcess_SearchDict
End Sub
初心者向けポイント
- セル直操作は遅い: 巨大データでは必ず配列に読み込む。
- 一括書き戻しが鉄則:
Range.Value = 配列で一瞬。 - 画面更新を止める:
ScreenUpdating=Falseでさらに高速化。 - 検索はDictionary: 巨大配列でも即検索可能。
- 集計や変換も配列で: 実務の定型処理に最適。
👉 この「10万行 → 1秒処理テンプレ」をベースにすれば、売上データの集計や顧客コード検索など、実務でよくある大量データ処理を高速にこなせます。