データ型をLong、Byteと使い分けることでメモリの軽減、または処理速度向上に影響しますか？

現在、会社のデータをマクロで処理する業務を行っております。
そのデータの中には行数が数万件を超えて、Long型ではないと対応しきれないものもあります。
一方で、256個以上ある列は経験則上、ほぼ非現実的ではあります。

そこで、配列を定義するために最大値を取得する必要がありますが、
とりあえずLong型にするのではなく、ある程度数がわかるならByte型やInt型に宣言するのは、
メモリ使用量を減らしたり、処理速度向上につながりますか？

VBA
1Dim maxRow As Long
2Dim maxCol As Byte
3
4～値を動的に取得～
5
6Dim array() as variant
7Redim array(maxRow, maxCol)

あまり、メモリ等を意識する立場にはなかったので、気になったところです。

nanami12

2020/03/19 01:18

http://cc-sakura.dip.jp/eldar-star/ExcelVBA/log/eid24.html　このあたりをよんでみては　いかがでしょうか？

Zuishin

2020/03/19 01:35

配列以外で Byte を使ってもメモリ効率に寄与しません。速度向上目的でメモリ上では飛び飛びの番地に置かれ、その隙間は使用されません。 https://ja.wikipedia.org/wiki/%E3%83%87%E3%83%BC%E3%82%BF%E6%A7%8B%E9%80%A0%E3%82%A2%E3%83%A9%E3%82%A4%E3%83%A1%E3%83%B3%E3%83%88

行動規範の内容に同意します

回答5件

ここらへんのページからMicrosoftへのリンク先が参考になるでしょう。
https://tonari-it.com/excel-vba-coding-guide-line/#toc11

要約すると、Integer型はLong型に変換して処理しているので、Long型を使う方が若干速くなるかもってことですが、Byte型の場合は詳細はわかりませんね。

いずれにしても数値を扱うのであればLong型でよいでしょう。
今の時代のPCであればメモリ容量を気にする必要はないと思います。
そもそも気にしないといけないような巨大なExcelファイルは処理できないような。。。

ExcelVBAにおいてはメモリ容量を気にする必要は実質ありませんが、気にする意識を持つことはいいことだと思います。

投稿2020/03/19 01:25

ttyp03

総合スコア17000

zigutabi

2020/03/19 01:31

むしろ可読性が下がりそうですね。以前、Googleマップを扱ったアプリをRuby-MySQLで作った時に、DBに設定したデータ型でひどい目に遭った記憶がありました。世界座標の値で数百メートル単位の誤差で、海を指してしまうものです。しかし、Excelでは、不要そうですね。コーディング規約を参考に改良します。

行動規範の内容に同意します

多少影響あると思いますが、基本的にはそもそものロジックの方が大事なので
気にするレベルじゃないと思います。

データ型の概要

投稿2020/03/19 01:25

momon-ga

総合スコア4826

メモリといっても、関数内で宣言される変数はスタック上で取られるので一時的なものです。
long型を使用するのが最も無難です。
【ExcelVBA】Integer型とLong型の使い分けは？処理速度が速いのは？

投稿2020/03/19 01:24

編集2020/03/19 01:25

sazi

総合スコア25327

ベストアンサー

そこで、配列を定義するために最大値を取得する必要がありますが、

最大値を取得するのは、絶対の話ではないですね。

ExcelVBA
1Sub test()
2    Dim Rng As Range
3    Dim vrtValues As Variant
4    Dim i As Long, j As Long
5    
6    Set Rng = ActiveSheet.UsedRange
7    vrtValues = Rng.Value
8    
9    For i = 1 To UBound(vrtValues, 1)
10        For j = 1 To UBound(vrtValues, 2)
11            vrtValues(i, j) = vrtValues(i, j) & "a"
12        Next
13    Next
14    
15    Rng.Value = vrtValues
16End Sub

6万行ｘ300列で試したら
セルへの書き込みのところ
Rng.Value = vrtValues
でメモリ不足のエラーになりました。
まぁ、何回かに分けて作業すればいいんでしょうけど。。。。

というか、他人の意見を聞くよりも
自分で実験して体感した方がいいかと思います。
その方がより身に付くかと。
その上で、もっとより良い方法があるのかを質問して、
色々な問題へのアプローチの仕方（＝知識）を身に付けてみてはいかがでしょうか？
Set Rng = ActiveSheet.UsedRange.Resize(25000)
こちらの環境では、300列ｘ25000行くらいならなんとかメモリー不足にならないかも？

何をしたいかわかりませんが、高速化が主目的なら、
エクセルの機能で出来ることをわざわざVBAでループ処理したりしたら、
ほぼほぼ遅くなります。

ExcelVBA
1Sub test2()
2    Dim r As Range
3    Dim v
4    Dim i As Long
5    Dim t
6    
7    t = Timer
8    
9    Set r = ActiveSheet.Range("A:A")
10    v = r
11    
12    For i = 1 To UBound(v, 1)
13        v(i, 1) = i
14    Next
15    
16    r = v
17    
18    MsgBox Timer - t & "秒"
19End Sub
20
21Sub test3()
22    Dim t
23    
24    t = Timer
25    
26    With ActiveSheet.Range("A:A")
27        .Item(1) = 1
28        .DataSeries
29    End With
30    
31    MsgBox Timer - t & "秒"
32End Sub
33

その辺は臨機応変にバランスよくトライしてみてください。
処理速度は、マシンパワーやバージョン等環境にも左右されます。
「こういう時はこうやる」的な暗記だけだと、ちょっと辛いです。
こちらの環境では、
Test2は約2秒
Text3は約0.4秒
でした。

変数の型の違いのメモリの使用量はエクセルがすんなり動くなら気にしなくてもいいと思います。
ただし、エクセルが使えるメモリの量は決まっているので、
ハード的に増やしてもメモリ不足は解消できません。
※最近のバージョンはまた仕様が変わっているかもです。
興味があるならご自分で調べてみてください。（こちらは興味がないので＾＾；）
検索が上手になるのもスキルのうちです。

投稿2020/03/20 08:16