vba エクセルの 列のデータを空白ごとに配列に格納し行に並び替え

Question

以下のような　列に入っているデータを空白で区切り配列に格納し2枚目の画像の様に表示する方法を教えてください。
VBAを始めたばかりなのでご教授お願いします

以下は並びかけ後の例です。

よろしくお願いします。

Comments

[m.ts10806]

まずご自身が思ったようにやってみてください。
大方のユーザは「質問ではなく作業依頼だ」と認識すると思います。

[DreamTheater]

m.ts10806さんのコメントに「いいね」１票です。

質問者は毎回丸投げ質問していますね。
質問事項を改善する等、向上心ないの？

Answer 1

丸投げ質問ですが、間違って回答してしまったのでお詫びの回答です。
配列に一括で入れてドン、みたいなのはできないので、空白行までを一区切りとしてループで回しています。
参考まで。

Sub sample()
    Dim r1 As Long
    Dim r2 As Long
    Dim tmp() As Variant
    r1 = 1
    r2 = 1
    Do While Cells(r1, 1) <> ""
        tmp = WorksheetFunction.Transpose(Range(Cells(r1, 1), Cells(r1, 1).End(xlDown)))
        Range("A" & r2).Resize(1, UBound(tmp)) = tmp
        r1 = r1 + UBound(tmp) + 1
        r2 = r2 + 1
    Loop
    Range("A" & r2).Resize(r1, 1).Clear
End Sub

以下は間違った回答なので無視してください。

---

具体的な条件とか仕様が書いてないので愚直に書いた場合です。

A2をB1に移動する。

Range("B1").Value = Range("A2").Value ' A2の値をB1にコピー
Range("A2").Clear ' A2の値をクリア

あとは同じ考えで他のセルも繰り返す。

Comments

[ttyp03]

あ、失礼。
配列に入れるって書いてあったか。

[akakatsu]

すみません同じようなデータが１００個ほど続くので配列に格納しないと対応できません