csvのデータを複数条件で値を抽出したい

質問

A列～E列のようなCSVのデータがあり、行に回答者氏名、列に質問番号（Q1～Q3）としてH列～K列のようにそれぞれの質問の回答が表示されるような表を作りたいと思っています。
回答者は５００名くらいあるためコピペでは時間がかかりすぎるので関数で出来ないかと試してみているのですが上手くいきません。
どのような関数を使用すれば良いでしょうか？

回答No.4

imogasi

質問者は、どれぐらいの勉強し・経験者なのか書かないと、回答者が答えにくいのでは。
抜き出した後、そのデータをどう使う予定なのかも書かないと。
小生は回答を具体的に書く気はないが、視野を広げてもらう為に書いてみた。
表題（csvのデータを複数条件で値を抽出したい）だけからすると下記の方法がある。
しかしエクセルのシートを質問に掲示しているから、その旨を表題にもはっきり書くこと。
「エクセルのデータを条件をかけて抜き出す」という質問表現でよいのでは。
・エクセルに読ませてエクセルで抽出する方法
エクセルを少しやれる程度なら、エクセルのシートにこのＣＳＶファイルを読みこんで、、
そのエクセルのシートデータに対し条件を付けて抽出する方法
それには
（１）操作のフィルタを使う方法
（２）関数だけでやる
　　　（あ）作業列を使う方法
　　　（い）作業列を使わない方法
この類の質問の回答には（２）の（あ）の回答がよく出るが、結構式が長く、その式の意味もわかりにくい。初心者なら（１）などの方法でどうか。
その中の（１）の（あ）の方法は、やややさしい。
（３）ＶＢＡを使う方法
考え方はすぐ思い付く簡単なこと。各行の特定の複数列の中身を、ＩＦ文で聞くことを全データ行で繰り返しするだけ。ＯＲ条件かＡＮＤ条件か、がある。
フィルタの機能をＶＢＡで使う手もある。
・アクセスにこのＣＳＶファイルをインポートして、アクセスの機能で抜き出す方法。
・ＶＢＡ、ＶＢScriptの利用などになるが、直接ＣＳＶ［ファイルをオ読んで
　このデータ１レコードの中に、条件を満たすデータがあるかプログラムを組んで、街頭分を書き出すこともむつかしくはない。
上記はみなＧｏｏｇｌｅででも照会すれば具体的な方法は判る。
検索語
エクセル　フィルタ　複数条件
エクセル　関数　抜出　複数条件
ＣＳＶ　ＶＢＡ　抜出
もっとＧｏｏｇｌｅなどを検索して、読んで、やってみてそれから質問すべきです。

回答No.3

Prome_Lin

「VBScript」でプログラムを組みましたので、「Windows」限定です。

以下のプログラムをメモ帳かテキストエディタに貼り付けて、「～.vbs」という名前で保存します（「～」の部分は何でもかまいませんが、「.vbs」は必ず半角でなければなりません）。

できた「～.vbs」ファイル（のアイコン）に目的の「～.csv」ファイルを１つだけドラッグ＆ドロップすると、結果のエクセルファイルが表示されます。

あとは、そのエクセルファイルを「F12」（「名前を付けて保存」）で、保存するなり、処理を続けるなりしてください。

なお、注意事項としては、まず、ドラッグ＆ドロップするファイルは１つだけ。
次に、必ず「csv」ファイルでなければなりません。
最後に行数はいくらあっても構いませんが、構造が質問者のサンプルと全く同じでなければなりません。

すなわち、１行目が項目行で、２行目以降は、３行ごとにおひとりのデータが書き込まれている、ということです。

必ず、おひとり３行なければなりません。

Option Explicit
Dim a, b, c, d, i, u, v, w, x, y, z
Set u = WScript.Arguments
If u.Count = 0 then
End If
If u.Count <> 1 Then
MsgBox("ファイルは１つだけです")
WScript.Quit 10
End If
If LCase(Right(u(0), 3)) <> "csv" Then
MsgBox("csvファイルだけです")
WScript.Quit 10
End If
Set v = CreateObject("Scripting.FileSystemObject")
Set w = CreateObject("Excel.Application")
w.Visible = True
Set x = w.Workbooks.Add()
Set y = x.Worksheets(1)
Set z = v.OpenTextFile(u(0), 1)
a = 1
b = Split(z.ReadLine, ",")
y.Cells(a, 1).Value = "氏名"
y.Cells(a, 2).Value = "Q1"
y.Cells(a, 3).Value = "Q2"
y.Cells(a, 4).Value = "Q3"
Do Until z.AtEndOfStream
b = Split(z.ReadLine, ",")
c = Split(z.ReadLine, ",")
d = Split(z.ReadLine, ",")
a = a + 1
y.Cells(a, 1).Value = b(0)
y.Cells(a, 2).Value = b(4)
y.Cells(a, 3).Value = c(4)
y.Cells(a, 4).Value = d(4)
Loop
z.Close
Set z = Nothing
Set y = Nothing
Set x = Nothing
Set w = Nothing
Set v = Nothing

簡単なプログラムの説明です。

Set u = WScript.Arguments
If u.Count = 0 then
End If

この部分は、ある意味、ドラッグ＆ドロップされるのを待っています。

If u.Count <> 1 Then
MsgBox("ファイルは１つだけです")
WScript.Quit 10
End If

ファイルが複数あれば終了。

If LCase(Right(u(0), 3)) <> "csv" Then
MsgBox("csvファイルだけです")
WScript.Quit 10
End If

「csv」ファイル以外なら終了。

Set v = CreateObject("Scripting.FileSystemObject")

ファイルやフォルダを扱えるようにしています。

Set w = CreateObject("Excel.Application")

エクセルを扱えるようにしています。

w.Visible = True

エクセルを表示しています。

Set x = w.Workbooks.Add()
Set y = x.Worksheets(1)

エクセルのファイルを新規作成し、１番左端のシートを「y」にセット。

Set z = v.OpenTextFile(u(0), 1)

ドラッグ＆ドロップされた「csv」ファイルを開いています。

a = 1
b = Split(z.ReadLine, ",")

１行目は項目行として読み飛ばしています。

y.Cells(a, 1).Value = "氏名"
y.Cells(a, 2).Value = "Q1"
y.Cells(a, 3).Value = "Q2"
y.Cells(a, 4).Value = "Q3"

項目名をエクセルに記入しています。

Do Until z.AtEndOfStream
b = Split(z.ReadLine, ",")
c = Split(z.ReadLine, ",")
d = Split(z.ReadLine, ",")
a = a + 1
y.Cells(a, 1).Value = b(0)
y.Cells(a, 2).Value = b(4)
y.Cells(a, 3).Value = c(4)
y.Cells(a, 4).Value = d(4)
Loop

「csv」ファイルを３行ずつ読み込んで処理しています。

z.Close

「csv」ファイルを閉じ、あとは、終了処理です。

回答No.2

ushi2015

こんにちは

セルH2に、
=A2

セルH3に、
=IF(ROW(A1)>SUMPRODUCT(($A$2:$A$2000<>"")/COUNTIF($A$2:$A$2000,$A$2:$A$2000&""))-1,"",INDEX($A$2:$A$2000,MATCH(0,INDEX(0/ISERROR(MATCH($A$2:$A$2000,$H$2:H2,0)),),0)))
で、セルH500位までフィルコピー

セルI2に、
=IFERROR(INDEX($E:$E,MATCH(1,INDEX(($A:$A=$H2)*($D:$D=I$1),0),0)),"")
で、セルI2をK2までフィルコピー
セルI2:K2のフィルハンドルをダブルクリックし500行位までコピー

CSVを開くExcelのバージョンは2007以降としています。

回答No.1

tsubu-yuki

ＭＡＴＣＨ関数とＩＮＤＥＸ関数を組み合わせて使うのがベターだと思われます。
関数の詳細は別途お調べください。

作業列を二つ使います。当方の図でいうとＤ列とＥ列。
まずＤ列には「氏名＆質問」の列を作ります。
例えば、Ｄ２セルに
　　Ｄ２：＝Ａ２＆Ｂ２
これを必要な範囲にコピー（フィル）しておきます。
Ｅ列の作業列は今回のご質問の本題とは外れますが、
元の表から「氏名が重複しないリスト」を表外に作るための作業列です。
　　Ｅ２：=IF(COUNTIF($A$2:A2,A2)=1,ROW(),"")
として、これもまた必要な範囲にコピー（フィル）しておきます。
氏名が初めて出現する行に、行番号が入ります。

氏名が重複しないリストを作成します。
どうやら「氏名コード表」的なものがあるようですので、
ここはサラリと流しますので、読み飛ばしてくださってもＯＫです。
　　Ｇ２：=IF(COUNT(E:E)<ROW(A1),"",INDEX(A:A,SMALL(E:E,ROW(A1))))
として、下方少し多めにコピー・フィルしておきましょう。
作業列２（Ｅ列）が空白以外の行の氏名を抜き取ってリスト化されてきます。

さて、本題。
結論から言うと、
　　Ｈ２：INDEX($C$2:$C$10,MATCH($G2&H$1,$D$2:$D$10,0))
として、必要範囲にコピーしてやります。
ＭＡＴＣＨ関数で「作業列１（Ｄ列）から氏名＆回答が合致する行」を取り、
ＩＮＤＥＸ関数で「行番号が合致する行のＡ列」を抜き取ってくる、
という仕組みです。

軽くややこしいのですが、覚えると便利な関数です。