Excelを使って行列変換をしたい（大量件数）

例えば以下のようなデータがあります
◆test
aaaaaaaaaaaa
iiiiiiiiiiiiiiiiiiiiiiiiiii
uuuuuuuuuuu
eeeeeeeeeeee
oooooooooooo
◆test2
kaaaaaaaaaaa
kiiiiiiiiiiiiiiiiiiiiiiiii
kuuuuuuuuuu
keeeeeeeeeee
kooooooooooo
…

これを、
◆test　aaaaaaaaaaaa
　　　　iiiiiiiiiiiiiiiiiiiiiiiiiii　
　　　　uuuuuuuuuuu
　　　　eeeeeeeeeeee
　　　　oooooooooooo
◆test２ kaaaaaaaaaaa
　　　　 kiiiiiiiiiiiiiiiiiiiiiiiiii　
　　　　kuuuuuuuuuuu
　　　　keeeeeeeeeeee
　　　　koooooooooooo

こんな感じに並べかえたいのですが、どなたかよい方法をご存じないでしょうか。
当方Excelはおろか、マクロVBAなどの知識が皆無です。。。

質問者からの補足コメント

• はい、添付の図の通りです。
  シートも2になって問題ありません。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/05/12 22:22

No.1 回答者： tatsu99 回答日時： 2017/05/12 22:08

データのセルの位置情報は添付の図で、あってますか。

１）変更前はA列に１行からデータが並ぶ（A列のみであり、他の列にはデータなし）
２）変更後は、A列とB列にデータが並ぶ
３）A列に並べるデータは、先頭が◆で始まる文字列とする。
４）変更前のデータはSheet1とし、変更後のデータはSheet2としますが良いですか。

No.2 ベストアンサー 回答者： tatsu99 回答日時： 2017/05/12 22:43

標準モジュールに以下のマクロを登録し、実行してください。

尚、実行時、Sheet1,Sheet2がないとエラーになります。
---------------------------------------------
Option Explicit
Public Sub 並べ替え()
Dim sh1, sh2 As Worksheet
Dim maxrow1, row1, row2 As Long
Dim str As String
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
sh2.Cells.Clear
maxrow1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row 'Sheet1 A列最大行
row2 = 1
For row1 = 1 To maxrow1
str = sh1.Cells(row1, "A").Value
If Left(str, 1) = "◆" Then
If sh2.Cells(row2, "A").Value <> "" Then
row2 = row2 + 1
End If
sh2.Cells(row2, "A").Value = str
Else
sh2.Cells(row2, "B").Value = str
row2 = row2 + 1
End If
Next
MsgBox ("完了")
End Sub

この回答へのお礼

ありがとうございます！参考にさせていただきます！

お礼日時：2017/05/13 19:11

No.3 回答者： mike_g 回答日時： 2017/05/13 09:57

私のように「マクロVBAなどの知識が皆無」な人向けです。

１．添付図左端を元データとして作業開始
２．列Ａを選択して、マウスの右クリックから[挿入]をツン
※元データのシートを弄りたくなければ、列Ａを別シートの列Ｂにコピーすれば好いだけのこと！
※閑話休題。
３．式 =IF(ISERROR(FIND("◆",B1)),"",B1) を入力したセル A1 を下方に
￣￣ズズーッとオートフィル
４．式 =IF(A1=B1,NA(),B1) を入力したセル C1 を下方にズズーッとオー
￣￣トフィル
※以上の結果を添付図中央に示しています。
５．列Ａ～Ｃを選択して、[コピー]→[値の貼り付け]を実行
６．列Ａ～Ｃを選択したマンマ、Ctrl+G をツンした後で[セル選択]をツン
７．"定数"に目玉を入れ替え、"エラー値"以外のチェック外して、[OK]を
￣￣ツンして即座に Deleteキーを「エイヤッ！」と叩き付け！
※以上の結果を添付図右端に示しています。
８．範囲 B1:C1 を選択して、右クリックから[削除]→"上方向にシフト"
￣￣→[OK]
※さぁ、最終段階です。
９．列Ｃを選択して、Ctrl+G をツンした後で[セル選択]をツン
10．"空白セル"のみに目玉を入れて、[OK]をツン
11.[ホーム]→[セル <削除>]→"シートの行を削除"
12．列Ｂ削除

この回答へのお礼

ありがとうございます！！
こちらの手順でも試してみます！

お礼日時：2017/05/13 19:13