配列 | VBA・GAS・Pythonで仕事を楽しく効率化

連想配列（Dictionary）④-複数項目を一気に連想配列に格納して取得する方法-

okumasahito — Sun, 22 Aug 2021 10:44:01 +0000

連想配列（Dictionary）で一つのキーに対して複数のアイテムを格納する方法を検討
連想配列（Dictionary）で一つのキーに対して複数のアイテムを格納するには配列を使う
連想配列を用いて集計をするためのサンプルシート
①一つのキーに対してアイテムにセル範囲を格納した配列を割り当てる
②Dictionary型のオブジェクトを配列として宣言する

連想配列（Dictionary）で一つのキーに対して複数のアイテムを格納する方法を検討

事務仕事を行っているとVBAのほかExcelの関数も使用する機会が多いです。

中でもVlookup関数やSUMIFS関数の頻度が高いのですが、これらの関数は対象の行数が多いと結果の表示に時間がかかることがあります。
（Office2016からVlookup関数は高速化されましたが、VBAの中で組み込むと計算が終了する前に次の処理に移ってしまったり、速度が遅かったりします。）

以前から連想配列（Dictionary）を用いてこれらの関数と同様の処理を高速にする方法をご紹介していますが、Dictionary型はキーとアイテムが一対一の関係にあるので、複数のアイテムを参照したい場合、都度Dicrionaryを宣言するのが手間になります。

今回はこの問題を解消した、複数カラム（アイテム）を参照する方法をご紹介します。

連想配列（Dictionary）で一つのキーに対して複数のアイテムを格納するには配列を使う

手順の考え方を先にお伝えすると、配列を使用することで一つのキーに対して複数のアイテムを持つことができるようになります。
配列の使い方は以下2通りが想定されました。

①一つのDictionary型のオブジェクトを宣言して、一つのキーに対してアイテムにセル範囲を格納した配列を割り当てる

②Dictionary型のオブジェクトを配列として宣言して、一つのキーに対して一つのアイテムを格納する。

少しイメージがつきにくいと思いますので、サンプルシートを用いて具体的な手順を記載します。

連想配列を用いて集計をするためのサンプルシート

ある会社における店舗ごとの3か月ごとの売り上げ実績表のイメージになります。

A列に店固有のコード・B列は店舗名称になります。
C列には商品コードが入っていて、D列から後は3か月分の数量と原価・売価が書いてある表です。

サンプルで用意したこちらのシートは店舗数が77店舗、行数は約40,000行となっています。
Excelで加工するワークシートとしては容量が大きめかと思います。

こちらの数量・原価・売価について連想配列を用いて店舗ごとに集計するというのが今回ご紹介するコードの目的になります。

また、同じ処理はSUMIFS関数やピポットテーブルを使えば行うことができます。
ただし、SUMIFS関数は処理が遅い、ピポットテーブルはVBAで実行すると独特の挙動になるため、準備と後処理が面倒くさいのがネックになります。

その点連想配列を用いればスマートかつ高速に処理が可能です。

①一つのキーに対してアイテムにセル範囲を格納した配列を割り当てる

Sub 店舗ごと金額集計Itemを直接配列に格納()

’エラー起こるので非推奨
Sheets(1).Select
Dim JANシート
Set JANシート = Sheets(1)

Dim JANシート下端行
JANシート下端行 = JANシート.Cells(Rows.Count, 1).End(xlUp).Row

Dim JANシート範囲
JANシート範囲 = Range(JANシート.Cells(1, 1), JANシート.Cells(JANシート下端行, 15))

Dim i, x, k
Dim dict実績 As Object

Set dict実績 = CreateObject(“Scripting.Dictionary”)

Dim itemRange
Dim storeCode()
x = 0

For i = 3 To JANシート下端行
If dict実績.Exists(JANシート範囲(i, 1)) = False Then
dict実績.Add (JANシート範囲(i, 1)), Range(Cells(i, 1), Cells(i, 15))

ReDim Preserve storeCode(x)
storeCode(x) = JANシート範囲(i, 1)
x = x + 1

Else
For k = 4 To 15
dict実績(JANシート範囲(i, 1))(k) = dict実績(JANシート範囲(i, 1))(k) + JANシート範囲(i, k)
Next k
End If
Next i

Sheets.Add before:=Sheets(1)
Dim r
r = Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(UBound(storeCode) + 2, 15))
For i = 1 To UBound(storeCode) + 1
r(i + 1, 1) = storeCode(i － 1) ’行番号は2からスタート、配列は0からスタート
For k = 4 To 15
r(i + 1, k) = dict実績(r(i + 1, 1))(k)
Next k
Next i
Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(UBound(storeCode) + 1, 15)) = r

Set dict実績 = Nothing
Set JANシート = Nothing

End Sub

dict実績という連動配列を宣言し、店舗コードをキーに、その行に含まれている実績を配列に格納します。
重複されるデータは繰り返し処理を用いてアイテムの配列に値を追加していく流れになります。

こちらで処理を実行すると、なぜかよくわからないのですが、セルの値が更新される不具合（？）が生じました。
実績自体は別シートに出力するので、もともとのシートは別に保存しておけば大丈夫かとも思いますが少し不気味な結果です。

セルを配列に格納する場合はセルの値を格納するというよりは、セルオブジェクトを配列に格納していると思われます。
そのため、加算をしたものがダイレクトにセルの値に反映されたと推測されるのですが、通常セルを配列に格納してもこの事象は起こらない気がしますので、正しいかどうかは不明です。

どのような原因にせよ連想配列のアイテムにセルを格納した配列を用いるのはあまり良くなさそうです。

一応、セルの値を配列に格納して更新する方法も試したのですが、こちらはセルの値が加算されず、最初に格納されたアイテムだけが吐き出される結果になりました。

こちらも不具合かもしれませんが、私には判断がつきませんでした。連想配列の挙動は少し不思議な感じがします。
それにそもそも最初にArray関数を使うところの記述が面倒で、要素数が増えるとかなり辛いのでそもそも却下です。

Sub 店舗ごと金額集計ItemにArray関数で配列を格納()

’エラー起こるし、きちんと動かない
Sheets(1).Select
Dim JANシート
Set JANシート = Sheets(1)

Dim JANシート下端行
JANシート下端行 = JANシート.Cells(Rows.Count, 1).End(xlUp).Row

Dim JANシート範囲
JANシート範囲 = Range(JANシート.Cells(1, 1), JANシート.Cells(JANシート下端行, 15))

Dim i, x, k
Dim dict実績 As Object

Set dict実績 = CreateObject(“Scripting.Dictionary”)

Dim itemRange
Dim storeCode()
x = 0

For i = 3 To JANシート下端行
If dict実績.Exists(JANシート範囲(i, 1)) = False Then
dict実績.Add (JANシート範囲(i, 1)), Array(Cells(i, 1).Value, Cells(i, 2).Value, Cells(i, 3).Value, Cells(i, 4).Value, Cells(i, 5).Value, Cells(i, 6).Value, Cells(i, 7).Value, Cells(i, 8).Value, Cells(i, 9).Value, Cells(i, 10).Value, Cells(i, 11).Value, Cells(i, 12).Value, Cells(i, 13).Value, Cells(i, 14).Value, Cells(i, 15))

ReDim Preserve storeCode(x)
storeCode(x) = JANシート範囲(i, 1)
x = x + 1

Else
For k = 4 To 15
dict実績(JANシート範囲(i, 1))(k － 1) = dict実績(JANシート範囲(i, 1))(k － 1) + Cells(i, k).Value
Next k
End If
Next i

Sheets.Add before:=Sheets(1)
Dim r
r = Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(UBound(storeCode) + 2, 15))

For i = 0 To UBound(storeCode)
r(i + 2, 1) = storeCode(i) ’行番号は2からスタート、配列は0からスタート
For k = 4 To 15
r(i + 2, k) = dict実績(r(i + 2, 1))(k － 1)
Next k
Next i
Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(UBound(storeCode) + 2, 15)) = r

Set dict実績 = Nothing
Set JANシート = Nothing

End Sub

②Dictionary型のオブジェクトを配列として宣言する

上記の2つの配列を使う方法がうまくいかなかったので、他に方法を検討して思いついたのがこちらの方法です。
若干手順が面倒ですが、繰り返し処理を付け加えるだけで上記①と似た手間になるので私としては現在この方法が最も現実的かと思います。

Sub 店舗ごと金額集計連想配列を配列として宣言()

’宣言のところで繰り返しが必要だが基本使いやすい

Sheets(1).Select
Dim JANシート
Set JANシート = Sheets(1)

Dim JANシート下端行
JANシート下端行 = JANシート.Cells(Rows.Count, 1).End(xlUp).Row

Dim JANシート範囲
JANシート範囲 = Range(JANシート.Cells(1, 1), JANシート.Cells(JANシート下端行, 15))

Dim i, x, k
Dim dict実績(1 To 15) As Object

For k = 1 To 15
Set dict実績(k) = CreateObject(“Scripting.Dictionary”)
Next k

Dim itemRange
Dim storeCode()
x = 0

’Itemにセルを格納した配列はあまり良くない?
’array使ってvalueを格納すると加算ができない
’variant型の変数にセルを直接配列として格納するとセルの値が変更される

For i = 3 To JANシート下端行
If dict実績(1).Exists(JANシート範囲(i, 1)) = False Then
For k = 1 To 15
dict実績(k).Add (JANシート範囲(i, 1)), JANシート範囲(i, k)
Next k

ReDim Preserve storeCode(x)
storeCode(x) = JANシート範囲(i, 1)
x = x + 1
Else
For k = 4 To 15
dict実績(k)(JANシート範囲(i, 1)) = dict実績(k)(JANシート範囲(i, 1)) + JANシート範囲(i, k)
Next k
End If
Next i

Sheets.Add before:=Sheets(1)
Dim r
r = Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(UBound(storeCode) + 2, 15))
For i = 0 To UBound(storeCode)
r(i + 2, 1) = storeCode(i) ’行番号は2からスタート、配列は0からスタート
For k = 4 To 15
r(i + 2, k) = dict実績(k)(r(i + 2, 1))
Next k
Next i
Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(UBound(storeCode) + 2, 15)) = r

For k = 1 To 15
Set dict実績(k) = Nothing
Next k
Set JANシート = Nothing

End Sub

先ほどとは違いDictionary型を配列として宣言し、15個分の連想配列を繰り返し処理で準備します。

吐き出すときはdict実績(インデックス番号)(“キー”)で出力できるようにして、かつ列番号とインデックス番号を揃えておくことで見やすくもなります。
こちらの処理は問題なく動きました。

連想配列（Dictionary）③-キー一覧を取得する方法と高速化のテクニック-

okumasahito — Sun, 22 Aug 2021 10:10:22 +0000

キー一覧を入力するのが面倒？
サンプルシート
連想配列のキー一覧を出力する方法①-Keysプロパティを使用-
連想配列のキー一覧を出力する方法②-通常の配列を使用する
連想配列を使用する際の最速の処理方法について

キー一覧を入力するのが面倒？

連想配列（Dictionary）を使用するようになって行数の多いデータの加工が楽になったのですが、連想配列を使用する際によく使う「キーの一覧を別シートに出力する方法」がないか調べてみたのでその手順についてご紹介します。

連想配列のキー一覧を出力するケースとしては、SUMIFS関数の代わりに連想配列を使用した場合などがあります。
キー一覧を別シートに出力して、その右に連想配列に格納されている集計結果を表示させることが多いと思います。

これを知らないとせっかく連想配列を用いていても、別シートを作成する際に元シートのキー部分をコピーして貼り付け後に重複削除をするという面倒な手順を踏むことになります。

サンプルシート

サンプルシートは前回こちらの記事で使ったものと同じものになります。
商品の売り上げ一覧表の中で商品ごとの金額の合計を別シートに出力する用途をイメージしたものです。

前回ご紹介したコードでは、すでに重複のないJANコードの一覧はすでに別シートに出力している状態でVBAを実行していましたが、今回はその重複のないJANコード一覧も出力するフローを想定しています。

連想配列のキー一覧を出力する方法①-Keysプロパティを使用-

まずオーソドックスな方法です。
連想配列に格納後、Keyプロパティでキーの一覧を取得します。

前回ご紹介したコードとほぼ同じですが、連想配列の宣言の時に参照設定を使用する方法にしないとKeyプロパティは参照できないようです。

Sub DictionaryでKeyを使ってキーの一覧取得()

’開始時間の記載
Debug.Print “Dictionaryで項目入力開始-” & Time

’Dim dicJAN
’Set dicJAN = CreateObject(“Scripting.Dictionary”)
Dim dicJAN As New Scripting.Dictionary

’JAN と金額の合計をDictionaryに格納
Dim y, i
With Sheets(1)
y = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To y
’JANコードの登録がない場合、Dictionaryに追加
If Not dicJAN.Exists(.Cells(i, 1).Value) Then
dicJAN.Add .Cells(i, 1).Value, .Cells(i, 5)
’JANコードの登録がある場合、Dictionaryに格納されている値を更新
Else
dicJAN(.Cells(i, 1).Value) = dicJAN(.Cells(i, 1).Value) + .Cells(i, 5)
End If
Next i
End With

’JAN一覧B列に合計金額の出力
Dim r
r = Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(dicJAN.Count + 1, 2))

For i = 0 To dicJAN.Count － 1
r(i + 2, 1) = dicJAN.Keys(i)
r(i + 2, 2) = dicJAN(r(i + 2, 1))
Next i

Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(dicJAN.Count + 1, 2)) = r

’終了時間の記載
Debug.Print “Dictionaryで項目入力終了-” & Time

End Sub

この方法で当初コードを書いていたのですが、Keys一覧の出力がものすごく遅くて悲しくなります。
せっかく連想配列を使用しているのが台無しになるレベルでした。

そのため、次の方法を検討してみました。

連想配列のキー一覧を出力する方法②-通常の配列を使用する

連想配列を使用する一番の理由は重複を判定するメソッドがあることですので、こちらを活用してキーを別の配列に格納する方法を考えました。

具体的にはキーとアイテムを連想配列に格納するタイミングで、キーを別の配列に格納しておいて、後でキーを格納した配列を呼び出すというフローです。

Sub Dictionaryでキーを配列に格納してから一覧取得()

’開始時間の記載
Debug.Print “配列で項目出力開始-” & Time
’Dim dicJAN
’Set dicJAN = CreateObject(“Scripting.Dictionary”)

Dim dicJAN As New Scripting.Dictionary
Dim x
x = 0
Dim JANコード一覧()

’JAN と金額の合計をDictionaryに格納
Dim y, i
With Sheets(1)
y = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To y
’JANコードの登録がない場合、Dictionaryに追加、JANコード一覧に登録
If Not dicJAN.Exists(.Cells(i, 1).Value) Then
dicJAN.Add .Cells(i, 1).Value, .Cells(i, 5)

’キーを「JANコード一覧」配列に格納
ReDim Preserve JANコード一覧(x)
JANコード一覧(x) = .Cells(i, 1).Value
x = x + 1

’JANコードの登録がある場合、Dictionaryに格納されている値を更新
Else
dicJAN(.Cells(i, 1).Value) = dicJAN(.Cells(i, 1).Value) + .Cells(i, 5)
End If
Next i
End With

’JAN一覧B列に合計金額の出力
With Sheets(2)
For i = 0 To dicJAN.Count － 1
.Cells(i + 2, 1) = JANコード一覧(i)
.Cells(i + 2, 2) = dicJAN(.Cells(i + 2, 1).Value)
Next i
End With

’終了時間の記載
Debug.Print “配列で項目出力終了-” & Time

End Sub

こちらのコードを実行すると明らかに先ほどのコードよりも高速なことが確認できました。
連想配列のキーを取り出す必要がある場合、別の配列にキーの一覧を格納して取得するフローが一番高速になると思います。

キー入力速度比較	Dictionary-Keys使用	配列使用
1回目	0:00:39	0:00:04
2回目	0:00:38	0:00:04
3回目	0:00:40	0:00:04
平均	0:00:39	0:00:04

連想配列を使用する際の最速の処理方法について

キーを取り出す場合以外に、①連想配列にキーとアイテムを格納する際や、②連想配列の一覧を出力する際も配列を使用することでより高速化することが可能です。

使用するのはセルを二次元配列に格納して一気に値を取得・値を入力する方法になります
興味がある方はこちらのページをご参照ください。

今回の処理においては1秒以下の実行時間まで短縮できました。
セルを配列に格納する方法は慣れればすごく有効な手段になりますので、使いこなせるならぜひ覚えていただくのをおすすめします。

Sub Dictionaryを使用する際に配列を使って最速の処理()

’セルを配列に格納した後にDicrionaryに登録・セルへの入力も配列に格納したものを一気に入力

’開始時間の記載
Debug.Print “配列と連想配列最速開始-” & Time
’Dim dicJAN
’Set dicJAN = CreateObject(“Scripting.Dictionary”)

Dim dicJAN As New Scripting.Dictionary
Dim x
x = 0
Dim JANコード一覧()
Dim y, i

’JAN と金額の合計をDictionaryに格納
Dim 参照範囲
y = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
参照範囲 = Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(y, 5))

For i = 2 To y
’JANコードの登録がない場合、Dictionaryに追加、JANコード一覧に登録
If Not dicJAN.Exists(参照範囲(i, 1)) Then
dicJAN.Add 参照範囲(i, 1), 参照範囲(i, 5)

’キーを「JANコード一覧」配列に格納
ReDim Preserve JANコード一覧(x)
JANコード一覧(x) = 参照範囲(i, 1)
x = x + 1

’JANコードの登録がある場合、Dictionaryに格納されている値を更新
Else
dicJAN(参照範囲(i, 1)) = dicJAN(参照範囲(i, 1)) + 参照範囲(i, 5)
End If
Next i

’JAN一覧B列に合計金額の出力
Dim 入力範囲
入力範囲 = Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(dicJAN.Count + 1, 2))

For i = 0 To dicJAN.Count － 1
入力範囲(i + 2, 1) = JANコード一覧(i)
入力範囲(i + 2, 2) = dicJAN(入力範囲(i + 2, 1))
Next i

Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(dicJAN.Count + 1, 2)) = 入力範囲

’終了時間の記載
Debug.Print “配列と連想配列最速終了-” & Time

End Sub

文字列を切り離して配列に格納する方法

okumasahito — Sat, 12 Oct 2019 04:02:44 +0000

配列→文字列、文字列→配列の変換はどちらも覚えると便利
文字列→配列の変換にはSplit関数を用いる

配列→文字列、文字列→配列の変換はどちらも覚えると便利

以前にこちらの記事で配列を区切り文字で区切った文字列に変換するJoin関数をご紹介しましたが、逆に文字列を区切って配列に格納する関数の存在を最近知りました。

どちらも使えるとより便利になることに気づいたのでご紹介します。

文字列→配列の変換にはSplit関数を用いる

Split関数は文字列を特定の文字で切り離して、切り離した文字列をそれぞれ配列に格納するという関数です。

例えば誰かが作った住所録などで「郵便番号」「住所」「電話番号」が記載されていたとして、それぞれの情報が半角スペースで区切られた文字列になっているような場合、Split関数を使用すれば3つの情報を切り離して別のセルに格納することができます。

Sub Split関数で配列に格納()

Dim 住所連絡先 As String
住所連絡先 = “〒590-0504 大阪府泉南市信達市場 072-000-0000”

Dim 住所配列
住所配列 = Split(住所連絡先, ” “)
MsgBox 住所配列(1)

End Sub

上記のコードを実行すると住所連絡先の文字列から、「郵便番号」「住所」「電話番号」がそれぞれ配列の住所配列(0)、住所配列(1)、住所配列(2)に格納されます。

Excelの区切り位置指定でも似たような作業をすることができますが、例えば上記のように住所の部分だけ取り出す場合などは圧倒的にSplit関数を使う方が早いと思います。

また、Split関数を使用する際の注意点ですが、格納するための配列はVariant型の変数で宣言する必要があります。
文字列型の配列などで宣言しても使えませんのでご注意ください。

Array関数を用いて配列に一括でデータ格納

okumasahito — Fri, 18 May 2018 13:47:54 +0000

配列を使うことでマクロの作成が時短になる
配列へのデータの格納
1. ①一般的な格納方法
2. ②Array関数を用いた格納方法

配列を使うことでマクロの作成が時短になる

私もまだまだ使いこなせていませんが、配列はかなり便利です。

私は特にVBAのコードをわかりやすくするために配列をよく使います。
配列を用いることで、長く続く処理をFor~Nextなどの繰り返し処理に変更し、短くわかりやすいコードが作成できます。

今回はArray関数を用いて配列にデータを一括で格納する方法とサンプルコードをご紹介します。

配列へのデータの格納

①一般的な格納方法

配列の一般的な使い方は下記のようになります。

変数と同じく宣言をしますが、変数との違いはインデックス番号を()で囲んでいくつのデータを含むかを記載します。
インデックス番号は「0」から始まるので、例えば下記のように「5」と宣言すると6個のデータを格納できる配列となります。

Dim Fruits(5) As String
Fruits(0) = “みかん”
Fruits(1) = “りんご”
Fruits(2) = “いちご”
Fruits(3) = “もも”
Fruits(4) = “ぶどう”
Fruits(5) = “バナナ”

今回は文字列のString型で宣言していますが、他の型で宣言したり、Variant型で宣言することもできます。

②Array関数を用いた格納方法

一般的なデータの格納方法はデータが増えると行数が増えて対応しにくいのですが、Array関数を用いることで行数を減らすことができます。

Dim Fruits As Variant
Fruits = Array(“みかん”, “りんご”, “いちご”, “もも”, “ぶどう”, “バナナ”)

Array関数を用いてデータを格納する際の注意点としては、バリアント型の変数として宣言しておかないとエラーになることです。

配列の要素を取り出す関数について

okumasahito — Wed, 18 Apr 2018 14:43:43 +0000

配列の要素を取り出す専用の関数がある
関数を使わず配列の要素を取り出すサンプルコード
UBound関数を使用した場合のサンプルコード
Join関数を使用した場合のサンプルコード

配列の要素を取り出す専用の関数がある

以前から配列の値を取り出すのに良い方法が思いつかなかったので、結構力技で実施していたのですが、配列を取り出すのに便利な関数があることを知ってショックを受けました。

今回は配列の要素を取り出す際に役立つJoin関数とUBound関数をご紹介します。

関数を使わず配列の要素を取り出すサンプルコード

これまで私が配列を取り出す際に使用していたコードは以下のようなものになります。

ExcelでA列のセルの値を配列に格納し、その配列の要素を取り出すサンプルコードです。
配列の要素数は可変を想定してコードを作成しています。

Sub 配列の要素取り出し()

Dim hairetsu()
Dim i As Long, k As Long
k = 0
i = 0
Do Until Cells(i + 1, 1) = “”
ReDim Preserve hairetsu(i)
hairetsu(i) = Cells(i + 1, 1)
k = k + 1
i = i + 1
Loop

Dim mojiretsu
mojiretsu = hairetsu(0)
For i = 1 To k – 1
mojiretsu = mojiretsu & “,” & hairetsu(i)
Next i
MsgBox mojiretsu

End Sub

要素数を調べるために変数kを宣言し、iと同じ数になるようにして呼び出す際に使用しています。

このコードはきちんと動作するのですが、以下2点の手間・問題点がありました。

①要素数で繰り返し処理をする際、変数kに最後に余分に追加された1を減らすのがややこしくて面倒

②変数を文字列にする際に間に入れる文字（今回は”,”）は要素数-1の数を繰り返して挿入するため、配列の1つめかもしくは最終だけは繰り返しの中で処理できない

これらの問題点はUBound関数やJoin関数を使えばきちんと解決できます。

UBound関数を使用した場合のサンプルコード

Ubound関数は配列の要素数を返す関数です。
（配列のインデックス番号を返すので厳密には要素数-1となります。）

この関数を知って、これまで私が要素数の確認のためにわざわざ宣言して使用していた変数kが必要ないことがわかりました。
Ubound関数を使用すると要素を文字列にするのが少し簡略化されます。

Sub 配列の要素取り出しUBound関数使用()

Dim hairetsu()
Dim i As Long
i = 0
Do Until Cells(i + 1, 1) = “”
ReDim Preserve hairetsu(i)
hairetsu(i) = Cells(i + 1, 1)
i = i + 1
Loop

Dim mojiretsu
mojiretsu = hairetsu(0)
For i = 1 To UBound(hairetsu)
mojiretsu = mojiretsu & “,” & hairetsu(i)
Next i
MsgBox mojiretsu

End Sub

Join関数を使用した場合のサンプルコード

Join関数は配列の要素を文字列の一覧として取り出す関数です。
Join(“配列名”,”区切りに使用する文字列”)の形式で要素を文字列に変換して並べることが可能です。

区切りの文字を”
”やVbCr、VbCrLfにすることで改行コードを間にはさむことも可能です。

細かい部分の融通は利きにくいかもしれませんが、簡単に間に文字列を挟み込むことができるので使用しやすいです。

Sub 配列の要素取り出しJoin関数使用()

Dim hairetsu()
Dim i As Long, k As Long
i = 0
Do Until Cells(i + 1, 1) = “”
ReDim Preserve hairetsu(i)
hairetsu(i) = Cells(i + 1, 1)
i = i + 1
Loop

Dim mojiretsu
mojiretsu = Join(hairetsu, “,”)
MsgBox mojiretsu

End Sub

ExcelVBAでセルを配列に入れて高速化

okumasahito — Sat, 28 Oct 2017 14:24:36 +0000

セルへの値の代入は時間がかかる
セルを配列に入れてスピードアップできる例
所要時間の計測
セルの配列への代入における注意点

セルへの値の代入は時間がかかる

対象となるセルが少なければ問題は起こらないのですが、たくさんのセルに対して条件分岐を加えながらセルの値を変更しようとするとかなり時間がかかってしまい、他の操作と合わせた一連のマクロの中で律速になってしまうことがあります。

今回はそんなときに大活躍のセルを配列に入れるVBAコードを紹介します。

セルを配列に入れてスピードアップできる例

例えば仮に以下のシートのようにセルの縦10000行、横1000列のセルにランダムな0～9までの整数が入っているシートがあったと仮定して、これらのセルの中で値が「0」のものを空白にするマクロを作るとします。

その際に最も簡単な手順でVBAコードを作成すると以下のようになると思います。

Sub セルの値を0から空白にする()

Dim 開始時間 As Date, 終了時間 As Date
Dim i As Long, k As Long

開始時間 = Timer ’時間の計測
Application.ScreenUpdating = False
For i = 1 To 10000
For k = 1 To 1000
If Cells(i, k) = 0 Then
Cells(i, k) = “”
End If
Next k
Next i
Application.ScreenUpdating = True
終了時間 = Timer ’時間の計測
Debug.Print Round(終了時間 – 開始時間, 3) ’所要時間を書き出す

End Sub

このVBAコードはそれぞれのセルに対してすべて個別に値を取得し、条件に一致するものの値を削除する手順を行うため、とても時間がかかる処理になってしまいます。

そこでこのコードを以下のように変更すると劇的に処理速度がアップします。

Sub セルを配列に入れて0の値を空欄にする()

Dim 開始時間 As Date, 終了時間 As Date
Dim i As Long, k As Long
Dim c As Variant

開始時間 = Timer ’時間の計測
Application.ScreenUpdating = False
c = Range(Cells(1, 1), Cells(10000, 1000))
For i = 1 To 10000
For k = 1 To 1000
If c(i, k) = 0 Then
c(i, k) = “”
End If
Next k
Next i
Range(Cells(1, 1), Cells(10000, 1000)) = c

Application.ScreenUpdating = True
終了時間 = Timer ’時間の計測
Debug.Print Round(終了時間 – 開始時間, 3) ’所要時間を書き出す

End Sub

このVBAコードはバリアント型の変数を宣言して複数のセルを代入することで、それぞれのセルの値を配列として処理できるようにしたものです。

配列の値の変更はセル自体の値の変更よりも圧倒的に早く、セルに値を戻すのは一括で処理できるため処理速度が上がるという仕組みです。
（日本語変だったらすみません。あまり意味は分からなくてもとりあえずVBAコードが使用できればそれでも良い気がします。）

所要時間の計測

それぞれのコードについて、10回実行した際の所要時間を以下に記載します。

回数	配列使用しない	配列使用
1回目	58.5(秒)	11.8(秒)
2回目	247.5(秒)	11.8(秒)
3回目	58.6(秒)	11.8(秒)
4回目	59(秒)	11.8(秒)
5回目	247.1(秒)	11.8(秒)
6回目	247.1(秒)	11.9(秒)
7回目	248.7(秒)	11.9(秒)
8回目	53.2(秒)	11.8(秒)
9回目	56.1(秒)	11.7(秒)
10回目	55.8(秒)	11.9(秒)
平均	133.2(秒)	11.8(秒)

配列に格納する処理がいかに高速かわかると思います。

また、通常の処理は負荷が大きいのか、処理時間が2パターンに分かれて計測されました。
配列を使用した方は安定した処理速度が期待できるのも大きなメリットです。

セルの配列への代入における注意点

セルを配列に入れる際の注意点は以下の3点です。

①セルの値を格納するために宣言する変数（配列）はバリアント型

セルの値を格納する配列はRange型ではなくバリアント型を宣言します。

②配列のインデックス番号は1から

配列のインデックス番号は通常0からスタートしますが、セルを格納した配列に関しては1がインデックス番号の開始番号となります。
私はこの部分に違和感を感じ、なじむのに時間がかかりました。

③セルの値以外は変更できない

配列に格納しているのはセルの値のみのため、セルの背景色やフォントなどの情報は配列に格納されないので値以外の変更には使用できません。
（と思います。できたらすみません。）