【VBA】可変長配列と便利な用途（文字数のカウント・ExcelのVBA高速化）

'宣言の方法
Dim StrAry() As String

'要素数の決定
ReDim StrAry(3)

'あとは通常の固定長配列と同じように使えます
StrAry(1) = "いぬ"
StrAry(2) = "ねこ"
StrAry(3) = "さる"

MsgBox "2番目は" & StrAry(2)

'宣言の方法
Dim VarAry As Variant

'要素数の決定
ReDim VarAry(3)

'あとは上記のString型配列と同じように使えますので省略します

'String型配列
Dim StrAry(3) As String
'Variant型変数
Dim VarAry As Variant

'String型配列に値を設定
StrAry(1) = "たぬき"
StrAry(2) = "きつね"
StrAry(3) = "いのしし"

'Variant型変数に配列をそのまま格納
VarAry = StrAry

'Variant型変数を参照
MsgBox "2番目は" & VarAry(2)

MsgBox UBound(VarAry)

'文字列変数
Dim StrSample As String
'配列格納用
Dim ArySample As Variant

'文字列
StrSample = "しりとり,りす,すずめ"
'Split関数で文字列を区切る
ArySample = Split(StrSample, ",")

'配列「ArySample」を参照
MsgBox "0番目は：" & ArySample(0)
MsgBox "1番目は：" & ArySample(1)
MsgBox "2番目は：" & ArySample(2)

Dim StrSample As String
Dim ArySample As Variant

'文字列
StrSample = "ちいさな はなが さいている"
'Split関数で文字列を区切る
ArySample = Split(StrSample, "い")

'インデックスの最大値が、文字「い」が含まれる数になる
MsgBox UBound(ArySample)

'配列「ArySample」の中
Debug.Print "0番目：" & ArySample(0)
Debug.Print "1番目：" & ArySample(1)
Debug.Print "2番目：" & ArySample(2)
Debug.Print "3番目：" & ArySample(3)
'Debug.Print "4番目：" & ArySample(4) '← これは「インデックスが有効範囲にありません」というエラーになる

'文字列
StrSample = "北千住南千住三河島"
'Split関数で文字列を区切る
ArySample = Split(StrSample, "千住")

'インデックスの最大値が、文字列「千住」が含まれる数になる
MsgBox UBound(ArySample)

Dim Idx1 As Long

'配列を定義
Dim ArySample As Variant

'-----------------------------------------------
'ワークシートのセル範囲をVariant型変数に代入する
'-----------------------------------------------
ArySample = Sheets("Sheet1").Range("A1:B100000")

'-----------------------------------------------
'FizzBuss問題（配列を編集する）
'-----------------------------------------------
For Idx1 = 1 To 100000
    'A列：数字を表示
    ArySample(Idx1, 1) = Idx1
    
    'B列：FizzBussの答えを表示
    If Idx1 Mod 3 = 0 And Idx1 Mod 5 = 0 Then
        ArySample(Idx1, 2) = "Fizz Buzz"
    ElseIf Idx1 Mod 3 = 0 Then
        ArySample(Idx1, 2) = "Fizz"
    ElseIf Idx1 Mod 5 = 0 Then
        ArySample(Idx1, 2) = "Buzz"
    Else
        ArySample(Idx1, 2) = Idx1
    End If
    
Next

'-----------------------------------------------
'配列をワークシートのセル範囲にまとめて代入する
'-----------------------------------------------
Sheets("Sheet1").Range("A1:B100000") = ArySample

Dim ArySample As Variant
'A列のみを代入する
ArySample = Sheets("Sheet1").Range("A1:A100000")

'変数「ArySample」は2次元配列になるので、
'以下のように2次元目のインデックスも指定する必要があります
ArySample(Idx1, 1) = "Fizz Buzz"