文字列の検索 集計

質問

エクセルデータにて
　　　　Ａ　　　　　　Ｂ　　　　　　Ｃ
１　　ＡＢＣ　　　　○○○　　　　ＸＹＺ
２　　ＡＢＣ　　　　○○○　　　　ＰＱＲ
３　　ＤＥＦ　　　　×××　　　　ＸＹＺ
４　　ＤＥＦ　　　　×××　　　　ＰＱＲ
５　　ＤＥＦ　　　　×××　　　　ＨＩＪ
＊アルファベット、記号は文字列
において、下記形式にしたい場合はどの様な手法がありますでしょうか？
　　　　Ａ　　　　　　Ｂ　　　　　　Ｃ
１　　ＡＢＣ　　　　○○○　　　　ＸＹＺ　ＰＱＲ　　　
２　　ＤＥＦ　　　　×××　　　　ＸＹＺ　ＰＱＲ　ＨＩＪ
その際、Ｃに表示させる方法は、１）連続形式、２）カンマ区切り、３）別列の追加
が考えられると思いますが、どの形式でも構いません。（理想は２ですが）

初心者質問ですが、宜しくお願いします。

回答No.1

noname#176215 · ベストアンサー

A　　　 B　　　 C　　　　　　　D　　　　　 E
1
2　ＡＢＣ　○○○　ＸＹＺ　ＸＹＺ ＰＱＲ　　　　 1
3　ＡＢＣ　○○○　ＰＱＲ　ＰＱＲ
4　ＤＥＦ　×××　ＸＹＺ　ＸＹＺ ＰＱＲ ＨＩＪ　1
5　ＤＥＦ　×××　ＰＱＲ　ＰＱＲ ＨＩＪ
6　ＤＥＦ　×××　ＨＩＪ　ＨＩＪ

１列挿入し データを A列昇順に並べ替え

■D2セル
=IF(A2=A3,C2&" "&D3,C2)
■E2セル
=IF(A1=A2,"",1)
D2:E2セルを選択して フィルハンドルをダブルクリック

E列にオートフィルタを設定して「1」を抽出
必要なら範囲選択してコピーし 別セルに貼り付け

回答No.2

pkh4989

マクロです。試してみてください。
Sheet2へ展開されます

Sub test()
　　Dim cCD　　　　 As String
　　Dim mR　　　　　As Long
　　Dim wR　　　　　As Long
　　Dim wVal(3)　　 As String
　　Dim EditR　　　 As Long
　　'
　　With ActiveSheet
　　　　mR = Range("A" & Rows.Count).End(xlUp).Row
　　　　cCD = ""
　　　　EditR = 0
　　　　For wR = 1 To mR
　　　　　　If cCD <> .Cells(wR, 1) Then
　　　　　　　　If cCD <> "" Then
　　　　　　　　　　EditR = EditR + 1
　　　　　　　　　　With Worksheets("Sheet2")
　　　　　　　　　　　　.Cells(EditR, 1) = wVal(1)
　　　　　　　　　　　　.Cells(EditR, 2) = wVal(2)
　　　　　　　　　　　　.Cells(EditR, 3) = wVal(3)
　　　　　　　　　　End With
　　　　　　　　End If
　　　　　　　　cCD = .Cells(wR, 1)
　　　　　　　　wVal(1) = .Cells(wR, 1)
　　　　　　　　wVal(2) = .Cells(wR, 2)
　　　　　　　　wVal(3) = .Cells(wR, 3)
　　　　　　Else
　　　　　　　　wVal(3) = wVal(3) & "," & .Cells(wR, 3)
　　　　　　End If
　　　　Next
　　　　'
　　　　EditR = EditR + 1
　　　　With Worksheets("Sheet2")
　　　　　　.Cells(EditR, 1) = wVal(1)
　　　　　　.Cells(EditR, 2) = wVal(2)
　　　　　　.Cells(EditR, 3) = wVal(3)
　　　　End With
　　End With
End Sub