###・はじめに
以下このデーターを使用したサンプルを記載します。
#配列とユーザー定義型配列（構造体配列）
###・配列
変数名と値で一連のデーターを扱えます。
'あらかじめ扱う枠数を決めておくことができます。
Dim a(10) As Long
プログラムの途中で枠数を増やすこともできます。
ReDim B(10)```
```vb
Sub test01()
'複数列の配列変数
'Dim a(1 To 5, 1 To 3) As Variant
Dim a(5, 3) As Variant
Dim R As Long
Dim C As Long
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets("Sheet1")
For R = 3 To 7
For C = 2 To 4
a(R - 2, C - 1) = Ws.Cells(R, C).Value
Next C
Next R
Debug.Print a(2, 1)
Debug.Print a(5, 2)
Dim x As Long
Dim Kei As Long
x = 2
Kei = a(x, 2) * a(x, 3)
Debug.Print Kei
Dim I As Long
Dim GKei As Long
'For I = 1 to 5
For I = LBound(a, 1) To UBound(a, 1)
GKei = GKei + a(I, 2) * a(I, 3)
Next I
Debug.Print GKei
'検索
Dim srch As String
srch = "いす"
Kei = 0
For I = LBound(a, 1) To UBound(a, 1)
If a(I, 1) = srch Then
Kei = a(I, 2)
End If
Next I
Debug.Print srch & Kei
End Sub
品名、単価、個数は１，２，３と数値での指定になります。
この変数の型は、すべてVariantになります。
###・ユーザー定義型を使った配列変数
Private Type Record
Hinmei As String
Tanka As Long
Kosu As Long
End Type
Sub test03()
'ユーザー定義型を使った配列変数
Dim a(5) As Record
Dim R As Long
Dim C As Long
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets("Sheet1")
For R = 3 To 7
a(R - 2).Hinmei = Ws.Cells(R, 2).Text
a(R - 2).Tanka = Ws.Cells(R, 2).Offset(0, 1).Value
a(R - 2).Kosu = Ws.Cells(R, "D").Value
Next R
Debug.Print a(2).Hinmei
Debug.Print a(5).Tanka
Dim x As Long
x = 2
Debug.Print Kei(a(), x)
Debug.Print GKei(a())
'検索
Dim srch As String
srch = "いす"
Debug.Print srch & TankaSh(a(), srch)
End Sub
Function Kei(a() As Record, x As Long) As Long
Kei = a(x).Tanka * a(x).Kosu
End Function
Function GKei(a() As Record) As Long
'For I = 1 to 5
For I = LBound(a, 1) To UBound(a, 1)
GKei = GKei + a(I).Tanka * a(I).Kosu
Next I
End Function
Function TankaSh(a() As Record, srch As String) As Long
For I = LBound(a, 1) To UBound(a, 1)
If a(I).Hinmei = srch Then
TankaSh = a(I).Tanka
Exit For
End If
Next I
End Function
先頭にあるType～EndTypeで設定した変数のセットがDim a(5) As Recordによってa() の下につながります。配列(test001)の時、品名、単価、個数を列の数値で指定していましたが、ここではHinmei、Kosu、Tankaと指定できるので視認性がよくなります。またType～EndType内で変数の型を指定します。
#クラスモジュール
プロジェクトの追加にクラスモジュールがあります。
ここにモジュール内で使用できる関数とか作れます。
先ほどのユーザー定義型と関連する計算（処理）をクラスにすると
BuyList ClassModule
'<<ByList>>
Public List As Collection 'コレクション格納用
Public Hinmei As String '品名
Public Tanka As Long '単価
Public Kosu As Long '個数
Property Get Self() As BuyList
Set Self = Me
End Property
Property Get Kingaku(I As Long) As Long
Dim Kei As Long
With List(I)
Kei = .Tanka * .Kosu
End With
Kingaku = Kei
End Property
Property Get Goukei() As Long
Dim GKei As Long
GKei = 0 '初期値
Dim Item As BuyList
For Each Item In List
GKei = GKei + (Item.Tanka * Item.Kosu)
Next
Goukei = GKei
End Property
Property Get TankaSh(srch As String) As Long
Dim Item As BuyList
For Each Item In List
If Item.Hinmei = srch Then
TankaSh = Item.Tanka
Exit For
End If
Next
End Property
Module1 Module
Sub test02()
Dim R As Long
Dim Items As New BuyList
Set Items.List = New Collection
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets("Sheet1")
For R = 3 To 7
With New BuyList
.Hinmei = Ws.Cells(R, 2).Text
.Tanka = Ws.Cells(R, 2).Offset(0, 1).Value
.Kosu = Ws.Cells(R, "D").Value
Items.List.Add .Self
End With
Next R
Debug.Print Items.List(2).Hinmei
Debug.Print Items.List(5).Tanka
Dim x As Long
x = 2
Debug.Print Items.Kingaku(x)
Debug.Print Items.Goukei
'検索
Dim srch As String
srch = "いす"
Debug.Print srch & Items.TankaSh(srch)
End Sub
構造体と関連する計算（処理）を一つのクラスにまとめられ、修正や機能追加の時に探しやすくなる。
配列として納めるのにコレクションを使用しました。
※クラスの使い方の一例です。
#まとめ
列を数値の計算で求める場合は配列変数が扱いやすいが、クラスにすると関連する処理を1か所にまとめれるので良いと思う。
#環境
Win10 Excel for Microsoft365MSO(16)64ビット
#訂正
2020/5/27 ユーザー定義型を構造体と記載していました。