Excel VBA 「値が変更したら・・・」

質問

Excel2000を使用しています。

現在A1からA1000までに
|　　　　A
---------------------
1|　111-01-000.jpg
2|　111-02-000.jpg
3|　112-01-000.jpg
4|　112-02-000.jpg
5|　112-03.000.jpg
・
　　　 ・
といったように親番-枝番-000．jpgというデータが格納されています。
枝番にランダムに01で終わる場合もあれば05で終わる場合もあります。MAX06までです。

これらを親番が同じ場合は、横に、親番が変われば行を変えて親番が同じ間は横にというように表示したいのですが、
方法はありますでしょうか。

最終的には、

_|_______B_______________________C__________________D_______
1| 111-01-000.jpg | 111-02-000.jpg|
2| 112-01-000.jpg | 112-02-000.jpg| 112-03-000.jpg

というように表示したいのです。
ご存知の方がいましたらご教示ください。
よろしくお願いします。

回答No.3

imogasi

＃２です表題にはVBAとありますね。
VBAでやってみました。
Sub test01()
d = Range("A65536").End(xlUp).Row
' MsgBox d
Range(ActiveSheet.Cells(1, "A"), ActiveSheet.Cells(d, "A")).Sort key1:=Range("A1")
For i = 1 To d
f = Split(Cells(i, "A"), "-")
c = Val(f(1)) + 1
r = Val(Mid(f(0), 3, 1)) '
l = Cells(65536, c).End(xlUp).Row + 1
Cells(r, c) = Cells(i, "A")
Next i
End Sub
例データと結果
111-01-000.jpg 111-01-000.jpg 111-02-000.jpg
111-02-000.jpg 112-01-000.jpg 112-02-000.jpg 112-03.000.jpg
112-01-000.jpg
112-02-000.jpg
112-03.000.jpg
ただ
＃２の後半の問題は易しいほうに解してます。

回答No.2

imogasi

●本件どれで回答するのを希望してますか？
エクセルの質問を回答する場合
（１）手操作、ウイザード手操作（ピボットテーブルなど）
（２）関数
（３）VBA
などの方法がありますが、本質問はどれを念頭においているか判らない。
（２）かもしれないが、こういう並べ替えや、抜き出しの問題は関数は不得意です。大変複雑になり全セル関数で埋まり、回答を理解するのも大変な場合が多い。関数はやはり主に計算用に作られている。
VBAならルールをそのままコード化すればよいので、わかる人にはとっつきやすい。
●もう１つ、現れていないので判らないのが
111-01-000等が複数現れないのでしょうね。
並べなおした後に、１１２－XX-XXXは第２行目に現れるのか。
複数表れるなら、関数の回答にとって、非常に難しさを持ち込む。

回答No.1

BLUEPIXY

'概ねこんな感じ
Public Sub 分類()
Dim Base As Range
Dim 親番 As Integer, 枝番 As Integer, 前親番 As Integer
Dim index As Long, c As Long
Dim a

Set Base = Range("A1")
index = 0: c = -1: 前親番 = -1
Application.ScreenUpdating = False
Do While Base.Offset(index).Value <> ""
a = Split(Base.Offset(index).Value, "-")
親番 = CInt(a(0))
枝番 = CInt(a(1))
If 前親番 <> 親番 Then
c = c + 1
前親番 = 親番
End If
Base.Offset(c, 枝番).Value = Base.Offset(index).Value
index = index + 1
Loop
Application.ScreenUpdating = True
End Sub