なんでこんなに面倒なのか。 配列の数を決めてから格納するって、どこが動的なんだか ぶつぶつ 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)…

先頭行はラベル、左から8番目のセルの中身は、、、＜元のセルの中身＞ Cells(n, 8) テキストA テキストB テキストC - 抜き出したいデータ（複数行） - テキストD＜変更後＞ Cells(n,8) テキストA テキストB テキストC テキストDCells(n,10) 抜き出したいデー…