[[20171017210537]]　『一次元表を分類表に』（イワタ）　ページの最後に飛ぶ

『一次元表を分類表に』（イワタ）

 お世話になります。
 下記の一次元表？を分類1あるいは分類2のように
 まとめた表にしたいのですがどうすればいいのでしょう？

 元表
 品番　　グループ		
 品番1　　AA
 品番2　　BB
 品番3　　CC
 品番4　　BB
 品番5　　AA
 品番6　　DD
 　｜
 （300件ほど）

 分類1
 AA　品番1　品番5	
 BB　品番2　品番4	
 CC　品番3
 DD　品番6

 分類2
 AA　　　BB　　CC　　　DD
 品番1　品番2　品番3　品番6
 品番5　品番4

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

マクロでもよいですか

（マナ） 2017/10/17(火) 21:29

 A1,B1に　品番　グループ
 と想定

 Sub test()
     Dim a, i As Long
     a = Cells(1).CurrentRegion.Value
     With CreateObject("Scripting.Dictionary")
         For i = 2 To UBound(a, 1)
             If Not .exists(a(i, 2)) Then
                 ReDim w(1 To 2)
                 w(1) = a(i, 2)
             Else
                 w = .Item(a(i, 2))
                 ReDim Preserve w(1 To UBound(w) + 1)
             End If
             w(UBound(w)) = a(i, 1)
             .Item(a(i, 2)) = w
         Next
         For i = 0 To .Count - 1
             Cells(1, i + 5).Resize(UBound(.items()(i))).Value = _
             Application.Transpose(.items()(i))
             Cells(i + 1, "m").Resize(, UBound(.items()(i))).Value = .items()(i)
         Next
     End With
 End Sub
（seiya） 2017/10/17(火) 21:41

 「マクロで結構です」と書こうと思ったらすでに回答が！ 
 マナさん　seiyaさん 早々にありがとうございました。

 こういう機能は需要が多く、てっきりエクセルに用意されていると思っていました。
 （ピボットテーブルの応用とか）
（イワタ） 2017/10/17(火) 22:05

コメント返信：

[ 一覧(最新更新順) ]

[[20171017210537]] 『一次元表を分類表に』（イワタ） ページの最後に飛ぶ

[[20171017210537]]　『一次元表を分類表に』（イワタ）　ページの最後に飛ぶ