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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/09/12 17:49:45
  • 終了:--

回答(2件)

id:nitscape No.1

nitscape回答回数526ベストアンサー獲得回数02005/09/12 19:10:52

ポイント50pt

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


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行にしても十分というわけです。

id:mj99 No.2

mj99回答回数138ベストアンサー獲得回数382005/09/12 19:45:10

ポイント50pt

http://hp.vector.co.jp/authors/VA014071/tips/xl_pvt1.html

Mr.Big〜小技集・ピボットテーブルの基本〜

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


1.まず、1列を選択状態にする

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

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

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

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

これを、

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

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


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


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

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません