１つのセルに入っている7つの数字を分解する方法。

質問

どなかたご存じでしたらご回答よろしくお願いします。
【質問】
　エクセルワークシートのＡ列、Ｂ列、Ｃ列、Ｄ列にそれぞれ1行当たり 7つの数字が
　入っているのが最大５行あります。これをエクセル機能である「区切り位置」を使わずに
　１行を7列に分割する（実際には４列×７=28列）方法が知りたいです。
　下記にイメージ図を書きます。
　理想は、マクロが入ったワークシートに貼り付けてからボタンを押下すると分割された
　結果がＥ列以降にでてくるのが良いです。

★質問のイメージ図・・・分割前
　　　　　　Ａ　　　　　　　　　　　　　Ｂ　　　　　　　　　　　　　Ｃ　　　　　　　　　　　　　Ｄ　
01 06 08 13 16 22 25　07 18 19 23 28 30 33　02 06 10 23 28 34 37　04 10 16 18 19 23 37
03 12 23 24 25 29 36　03 09 15 17 18 34 36　11 18 26 27 33 35 36　13 16 21 26 27 32 37
04 07 19 20 28 33 36　01 06 17 25 26 30 35　02 06 12 13 17 19 32　04 09 11 15 16 31 34
01 10 14 20 24 29 35　05 12 14 22 24 28 37　03 15 21 29 30 32 36　
05 11 17 19 24 27 32　01 06 07 08 29 33 35　08 15 24 26 28 31 34

★質問のイメージ図・・・分割後（Ｅ列～ＡＦ列まで入る）
Ｅ　Ｆ　Ｇ　Ｈ　Ｉ　Ｊ　Ｋ　Ｌ　Ｍ　Ｎ　Ｏ　Ｐ　Ｑ　Ｒ　Ｓ　Ｔ　Ｕ　Ｖ　Ｗ　Ｘ　Ｙ　Ｚ　AA　AB　AC　AD・・・・・
01　06　08　13　16　22　25　07　18　19　23　28　30　33　02　06　10　23　28　34　37　04　10　16・・・
03　12　23　24　25　29　36　03　09　15　17　18　34　36　11　18　26　27　33　35　36　13　16　21・・・
04　07　19　20　28　33　36　01　06　17　25　26　30　35　02　06　12　13　17　19　32　04　09　11・・・
01　10　14　20　24　29　35　05　12　14　22　24　28　37　03　15　21　29　30　32　36
05　11　17　19　24　27　32　01　06　07　08　29　33　35　08　15　24　26　28　31　34

【注意事項】
　・１つのセルに入っている７つの数字の間には、「半角スペース」が入っています。
　・分割後の結果はＥ列以降に出力します。
　・「最大５行」と書きましたが、１行しか無い場合もありまし、５行以上ある場合もあります。
　・使用するエクセルは２０１０です。

以上、よろしくお願いします。

回答No.1

watabe007 · ベストアンサー

参考に
Sub Test()
　　Dim c As Range, i As Long, myAyy As Variant
　　For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
　　　　For i = 0 To 3
　　　　　　Cells(c.Row, 7 * i + 5).Resize(, 7) = Split(c.Offset(, i).Value, " ")
　　　　Next
　　Next
End Sub

お礼

早速のご回答ありがとうございます。
教えて頂いたマクロを実行したところ
得たい結果になりました。
ありがとうございます。

回答No.2

noname#204879

マクロ音痴なので、関数で。参考になれば幸甚。
E1: =TRIM(MID(OFFSET($A1,0,(COLUMN(A1)-1)/7),MOD(COLUMN(A1)-1,7)*3+1,3))

お礼

ご回答ありがとうございます。
マクロを使わない場合はこうやって「TRIM関数」を使うんですね。
これなら手軽にできます。
教えて頂き、ありがとうございます。