エクセルの質問です。３列にそれぞれランダムで出力された文字が各5000行ずつあります。文字は重複しています。このとき、【重複文字A＝25個、B＝500個・・・】となるような抽出を行いたいのですが。抽出する文字を特定できない（その都度ランダムで出力される為）条件です。

マクロで作るといいと思います。

Sub Test()

Sheet1.Range(”A1:A5000”).Copy Sheet2.Range(”A1:A5000”)

Sheet1.Range(”B1:B5000”).Copy Sheet2.Range(”A5001:A10000”)

Sheet1.Range(”C1:C5000”).Copy Sheet2.Range(”A10001:A15000”)

Sheet2.Range(”A1:A15000”).Sort Key1:=Sheet2.Columns(”A”)

nOutRow = 1

nCount = 1

nTmp = Sheet2.Cells(1, 1)

For i = 2 To 15000

If Sheet2.Cells(i, 1) = nTmp Then

nCount = nCount + 1

Else

nOutMsg = nTmp

nOutMsg = nOutMsg & ”が”

nOutMsg = nOutMsg & nCount

nOutMsg = nOutMsg & ”個”

Sheet2.Cells(nOutRow, 3) = nOutMsg

nOutRow = nOutRow + 1

nTmp = Sheet2.Cells(i, 1)

nCount = 1

End If

Next

End Sub

シート1のA、B、C列に書かれた文字を一度シート2のA列にコピーしています。そして並べ替えて、数を数えています。結果はシート2に出力しています。

各行が5000行、合計1万5000行なので1行にしても十分というわけです。

ピボットテーブルで出来ますね。

１．まず、１列を選択状態にする

２．メニューバーの「データ」から「ピボットテーブル」を選択

３．ウィザード画面の最初の画面で「完了」を選択

４．ピボット用のシートが作成され、編集画面になります。

ここで、、、URLの画面のパレットには「日付」「担当者」などと入っていますが、今回のパレットには列が１つあるだけです。

これを、

「ここに列のフィールドをドラッグします」「ここにデータアイテムをドラッグします」

の２箇所に配置してください。

これで文字毎の重複数がでます。

上記操作を３つの列それぞれに行ってください。