なんでこんなに面倒なのか。 配列の数を決めてから格納するって、どこが動的なんだか ぶつぶつ Dim ArrStr() As String ReDim ArrStr(3) ArrStr(0) = "aaa" ArrStr(1) = "bbb" ArrStr(2) = "ccc" For i = 0 To UBound(ArrStr) - 1 ArrStr(i) = ArrStr(i + 1)…