しかし「data(5)」のように複数の配列の中から数値・文字を入力・出力するには
悩まれる方も多いのではないでしょうか。

そこで今回は複数の2次配列内の入力・出力方法について紹介したいと思います。
それでは見ていきましょう。

⬛︎こんなことができるようになる。

・複数の２次配列内の指定位置・セルの文字数値を入力・出力できるようになる

⬛︎通常の2次配列内の指定位置・セルの文字を入出力する

まず初めに通常の2次配列内の指定した位置・セルから文字・数値を出力、または入力してみましょう。
見本で以下のシートを用意しました。

内容としては「B3からE5」までを配列に格納して
配列内に入力したのち、「G3からJ5」に貼り付けます。

プログラムはこのようになります。

Sub 配列見本()

Dim Data

Data = Range(“B3:E5”)

Range(“G3:J5”) = Data

End Sub

実行した結果こちら。

上手く配列に格納して、貼り付けもできています。
では配列内の指定位置に数値を入力するプログラムを作成していきましょう。

例えば3行目の５列目にあたる、「E3」は「cells(3,5)」ですが、同じ要領で
2次配列に格納した3行目の５列目は「変数名（3,5）」となります。

では再度見本を見ていきましょう。
「B3からE5」を配列に格納して配列内の2行目の3行目に「123」を入力し、
「G3からJ5」に格納した配列を出力します。

プログラムはこのようになります。

Sub 配列見本()

Dim Data

Data = Range(“B3:E5”)
Data(2, 3) = 123

Range(“G3:J5”) = Data

End Sub

実行した結果はこちらです。

格納した配列に変数に文字・数値を入力して、その配列を
別のセルに貼り付けることができるようになりました。

こちらの方法は処理の高速化にも応用できます。
例えばセル内の文字数値の計算をする際に計算する回数が多ければ
処理速度は遅くなってしまいます。

そこで計算したい数値を配列に格納して
配列内で計算させて、最後にセルに出力することで、
処理速度はとても速くなります。

詳しい方法については下記リンクに貼り付けてますので是非参考にしてみてください。

【マクロVBA知識 高速化②】あまり知られていない？大量データで処理が遅いマクロVBAを高速化 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎連続した2次配列内の指定位置・セルに入力・出力をする方法

では連続した2次配列の方法を見てみましょう。
例えば「N(5)」のようにNという配列を5つ活用することができます。

例を見ていきましょう。

「B2からE3」「B5からE6」「B8からE9」「B11からE12」「B14からE15」を
Nという配列に格納してみましょう。

そして出力したい配列を変数「Number」で指定したいとします。
プログラムはこのようになります。

Sub 二次配列見本()

Dim N(5), Number As Long

Number = 2 ‘表示したい配列番号を入力

　

N(1) = Range(“B2:E3”)
N(2) = Range(“B5:E6”)
N(3) = Range(“B8:E9”)
N(4) = Range(“B11:E12”)
N(5) = Range(“B14:E15”)

　

Range(“G8:J9”) = N(Number)

End Sub

今回は変数「Number」を2で実行してみましょう。
結果はこのようになります。

N（2）の配列を貼り付けることができました。
さらに「number」を4で実行すると、、、

Sub 二次配列見本()

Dim N(5), Number As Long

Number = 4 ‘表示したい配列番号を入力

N(1) = Range(“B2:E3”)
N(2) = Range(“B5:E6”)
N(3) = Range(“B8:E9”)
N(4) = Range(“B11:E12”)
N(5) = Range(“B14:E15”)

Range(“G8:J9”) = N(Number)

End Sub

N（4）の配列を貼り付けることができました。

では本題です。
複数の配列の中の位置・セルに入力・出力をしてみましょう。

１つの配列だと「変数（行数,列数）」でしたね。
複数の配列の場合は「変数（配列数）（行数,列数）」となります。

では実際にプログラムにて確認していきましょう。
先ほどの見本を活用し、N（Number）の1行目の３列目に「456」を入力して
配列N（Number）をG8からJ9に貼り付けましょう。

今回はN(3)の配列を貼り付けたいと思います。

プログラムはこのようになります。

Sub 二次配列見本()

Dim N(5), Number As Long

Number = 3 ‘表示したい配列番号を入力

N(1) = Range(“B2:E3”)
N(2) = Range(“B5:E6”)
N(3) = Range(“B8:E9”)
N(4) = Range(“B11:E12”)
N(5) = Range(“B14:E15”)

N(Number)(1, 3) = 456

Range(“G8:J9”) = N(Number)

End Sub

実行した結果はこちらです。

複数の配列内の指定した位置にも数値を格納できていますね。
もちろん計算させることも可能です。

⬛︎まとめ

いかがだったでしょうか。
2次配列は複数のセルを格納できたり、配列の数も変えれたりと、とても便利です。

しかし初心者のかたは慣れるまで習得しにくく
できることも十分に理解するまで時間がかかるように思います。

是非配列の知識を身につけて
活用してみてください。

それでは次回の記事でお会いしましょう。

数値や文字を入れる部屋みたいなものですね。

さらにその変数を使用して計算や比較など行うことができる優れものです。
とても便利な知識になってるので是非参考にしてみてください。

それでは見ていきましょう。

■変数の一覧

よく使用されるものから順に説明します。

Single、Doubleなどもありますが、ほとんど使用しません。

ここでは

文字＝String
整数＝Long
小数点あり数値・配列・その他＝Variant

これだけでプログラムは成り立ちます。
初めはこの３つを覚えておけば問題はありません。

必要に応じでほかの変数は使用してみてください。

■変数の宣言の方法

次に変数の宣言方法についてです。

宣言については…

Dim 変数の名前　As 変数の型

このように宣言します。

変数の名前はA.B.Cでも　「あ」「い」「う」でも、なんでも構いません。
ただし、数値のみの変数名はエラーになってしまいます。

なので数値を使用したい場合は「A1」のように文字列を入れないといけません。

これならエラーになりませんね。

■変数に数値・文字の格納

では実際に変数に数値を入れてみます。

今回は「A」と「B」に数値
「あ」と「い」に文字を入れてみます。

変数への宣言はこのようになります。

Sub 変数の宣言()

Dim A As Long ‘数値の変数1
Dim B As Long ‘数値の変数2

Dim あ As String ‘文字の変数1
Dim い As String ‘文字の変数2

End Sub

これにより「A」と「Ｂ」には数値を、「あ」と「い」には文字を入れれるようになりました。

次に実際に数値を変数に入れてみます。
入れる方法はとても簡単です。

変数名＝入れたい文字・数値

これで大丈夫です。

つまり「A」に3、「B」に5
「あ」に独学、「い」にエクセルを入れるとするとこのようになります。

Sub 変数の宣言()

Dim A As Long ‘数値の変数1
Dim B As Long ‘数値の変数2

Dim あ As String ‘文字の変数1
Dim い As String ‘文字の変数2

A = 3
B = 5

あ = “独学”
い = “エクセル”

End Sub

文字に関しては「”」で挟むのを忘れないでください。

１度この状態で1行づつ実行してみましょう。
一行づつの実行方法についてはこちらから☟

【VBA知識 5】プログラムを１行ずづ実行・すべて実行をする方法 – 独学エクセル塾 (dokugakuexcel.com)

この状態で変数名にカーソルを合わせると現在、どのような数値が入っているか確認できます。
現在は「あ」にカーソルを合わせているのですが「独学」が入っていることが確認できました。

■変数の活用

それでは格納した変数を実際に活用してみましょう。

まず、B2に「変数A」×「変数B」を表示します。答えが3*5なので15になれば成功です。
次にB4には「変数あ」と「変数い」の文字をつなげてみましょう。
それぞれ、「独学」と「エクセル」の文字が入っているので「独学エクセル」で成功です。

プログラムはこのようになります。

Sub 変数の宣言()

Dim A As Long ‘数値の変数1
Dim B As Long ‘数値の変数2

Dim あ As String ‘文字の変数1
Dim い As String ‘文字の変数2

A = 3
B = 5

あ = “独学”
い = “エクセル”

Cells(2, 2) = A * B ‘Cells(2,2)はRange(“B2”)でも同等
Cells(4, 2) = あ & い ‘Cells(4,2)はRange(“B4”)でも同等

End Sub

では実行してみましょう。

うまく出力することができました。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

変数を宣言する (VBA) | Microsoft Learn

■まとめ

内容は以上です。
VBAを学ぶ上で欠かせない変数でしたが、いかがだったでしょうか。

変数の種類は多いですが使用するものは限られています。
用途によって使い分けてみてください。

それでは次回の記事でお会いしましょう。次回の記事はこちらから☟

【VBA知識 7】FOR…NEXTで指定した数値で繰り返し・ループ動作をする。 ► 独学エクセル塾 (dokugakuexcel.com)

今回はその悩みを解決する第2弾となっています。

前回の内容を合わせると効果はさらに見込めます。

前回の記事はこちら☟

【VBA知識 高速化①】画面更新・自動計算・イベントのOFFについて（VBA高速3種の神器） – 独学エクセル塾 (dokugakuexcel.com)

それでは見ていきましょう。

■高速化の内容

今回の解決策はVariant変数を使用し、変数内で集計します。
そして集計結果を最後にまとめて表示する仕組みです。

処理が遅くなる要因としてセルの値を毎回読み取っている場合があります。
そこで変数内で計算させることで
読み込みがなくなり、早くなるというわけです。

人で表すと、いちいち紙に書いて計算している作業を頭で考えてまとめて記入するイメージです。

では実際に検証してみましょう。

■比較用プログラムの説明

今回も高速化①で使用したシートを用いていきます。
高速化①をご覧になられた方は次の目次へどうぞ。

では検証用のプログラムについて説明します。
A・B行に100000行、ランダムなデータがある状態です。

データの処理方法としてA1とB1の数値をかけてC1に出力する仕組みとします。
その処理を100000行繰り返すのにかかった時間を基準としましょう。

用意したプログラムがこちら。

一応、コピーできるように貼っておきます。

Sub 高速化①()

Dim Time1 As Double, Time2 As Double, Result As Double
Dim A As Long

Time1 = Timer

””計算開始
For A = 1 To 100000 Step 1

Cells(A, 3) = Cells(A, 1) * Cells(A, 2)

Next A
””計算終わり

Time2 = Timer

Result = Time2 – Time1
MsgBox Result & “秒で処理しました”

End Sub

では実行してみましょう。

3.62秒かかりましたね。これを元に早くしていきます。

■変数内で記録する

ではA行とB行で計算した値をVariant関数内で記録してみましょう。

一度、Variant関数内に使用したい範囲の空白セルを入れておきます。
この作業をしないとエラーになります。
今回はA行*B行の結果の１列だけでいいので、１列分100000行をVariant内に空白として入れます。

Dim N As Vriant
N = Range(Cells(1, 3), Cells(100000, 3))

今回は３列目を使用して空白を入れてますが、計算結果値を上書きするので何列目でも構いません。

そして計算結果値をVariant内に入れます。

N(A, 1) = Cells(A, 1) * Cells(A, 2)

これを100000行繰り返し、最後に出力する流れです。

Range(Cells(1, 3), Cells(100000, 3)) = N

こちらをプログラムに入れていきます。

■変更前と比較

変更後のプログラムはこちら。

このようになりました。
またまたコピー用載せておきます。

Sub 高速化②()

Dim Time1 As Double, Time2 As Double, Result As Double
Dim A As Long, N As Variant

Time1 = Timer

””計算開始

N = Range(Cells(1, 3), Cells(100000, 3))

For A = 1 To 100000 Step 1

N(A, 1) = Cells(A, 1) * Cells(A, 2)

Next A

Range(Cells(1, 3), Cells(100000, 3)) = N

””計算終わり

Time2 = Timer

Result = Time2 – Time1
MsgBox Result & “秒で処理しました”

End Sub

それでは実行してみましょう。

結果が出ました！

3.62秒から0.78秒と2.84秒短縮しました。
結果的に78%短縮短縮です。
驚異的ですよね…

では高速化①の対策も合わせてみましょう。

■高速化①と今回の対策の混合結果

高速化①で行った、画面更新・自動計算・イベントをOFFも追加してみましょう。

追加したプログラムがこちら。

Sub 高速化①②()

Application.ScreenUpdating = False ”画面更新をOFF
Application.Calculation = xlManual ”自動計算をOF
Application.EnableEvents = False ”イベントをOFF

Dim Time1 As Double, Time2 As Double, Result As Double
Dim A As Long, N As Variant

Time1 = Timer

””計算開始

　　　N = Range(Cells(1, 3), Cells(100000, 3))

For A = 1 To 100000 Step 1

　　　N(A, 1) = Cells(A, 1) * Cells(A, 2)

Next A

　　　Range(Cells(1, 3), Cells(100000, 3)) = N

””計算終わり

Time2 = Timer

Result = Time2 – Time1
MsgBox Result & “秒で処理しました”

Application.ScreenUpdating = True ”画面更新をON
Application.Calculation = xlAutomatic ”自動計算をON
Application.EnableEvents = True ”イベントをON

End Sub

実行してみます。

3.62秒→0.78秒→0.71秒
すごく早くなりましたね！

高速化①の内容は有名ですがこちらの内容はあまり有名ではない便利な技です！

■まとめ

いかがだったでしょうか。
計算で処理速度が遅い場合はぜひ試してみてください。

配列はとても便利な機能なので配列の活用についてもご参考にしてみてください。

【マクロVBA】複数の繰り返しのコピー&ペーストが面倒くさい!?高速で一括で貼り付けできる配列とは ► 独学エクセル塾 (dokugakuexcel.com)