EXCEL 抽出について

質問

EXCELで　必要な情報を抽出したいですが、

例：　
表
ID　　名前　　　　　　　1．XX小説　　2．XXX本　　3．ZZZ本　4．YYY本
1　　　山田　XX　　　　　　　1　　　　　　　　　　　　　　　　1
2　　　鈴木　XX　　　　　　　　　　　　　　　1 1
3　　　渡辺　XXX
4　　　吉田　XX　　　　　　　1　　　　　　　　　　　　　　　　　　　　　　　1

こちらで　1～4まで本の名前で　この本を持っていると1　持ってないと何もなしで、
下記のように抽出したいです。
結果：
1．XX小説　　山田　XX
1．XX小説　　吉田　XX
2．XXX本 鈴木　XX
3．ZZZ本　 　山田　XX　
4．YYY本　　鈴木　XX
4．YYY本　　吉田　XX

どのようにすればよいのでしょうか？
何かお分かりの方がいましたら教えてください。よろしくお願いします。

回答No.3

tom04 · ベストアンサー

こんばんは！
VBAでの一例です。
Sheet1のデータをSheet2に表示するとします。

画面左下のSheet1のSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, j As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.ClearContents
With wS.Cells(1, 1)
.Value = "作品名"
.Offset(, 1) = "名前"
End With
For j = 3 To Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, j) = 1 Then
With wS.Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = Cells(1, j)
.Offset(, 1) = Cells(i, 2)
End With
End If
Next i
Next j
End Sub 'この行まで

※　関数でないので、データ変更があるたびにマクロを実行する必要があります。m(_ _)m

お礼

できました。有難う御座います。

回答No.2

KURUMITO

配列数式などを使いますとデータが多くなった場合などには計算に負担がかかります。
次のように作業列を作って対応します。
例えばIDから4．YYY本までの項目名がシート1のA２セルからF2セルまでに並んでおり、各データが下方に入力されているとします。
そこでC2セルからF2セルを選択してコピーしH2セルに貼り付けます。K2セルには4．YYY本g表示されますね。
G1セルには0と入力してからH1セルには次の式を入力し右横方向にドラッグコピーします。

=IF(H2="","",G1+COUNT(C3:C1000))

H3セルには次の式を入力して右横方向にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(C3="","",MAX(G$3:G$1000)+COUNT(H$2:H2)+1)

作業列の作成は終わってお求めの表ですがシート2に表示させるとします。

A2セルには次の式を入力してB2セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(ROW(A1)>MAX(Sheet1!$G$1:$XX$1),"",IF(COLUMN(A1)=1,INDEX(Sheet1!$G$2:$XX$2,MATCH(ROW(A1)-0.1,Sheet1!$G$1:$XX$1,1)+1),IF(COLUMN(A1)=2,INDEX(Sheet1!$B$3:$B$1000,MATCH(ROW(A1),INDEX(Sheet1!$G$3:$XX$3,MATCH(ROW(A1)-0.1,Sheet1!$G$1:$XX$1,1)+1):INDEX(Sheet1!$G$1000:$XX$1000,MATCH(ROW(A1)-0.1,Sheet1!$G$1:$XX$1,1)+1),0)),"")))

回答No.1

keithin

シート１のＡ列にＩＤ、Ｂ列に名前、１行目はタイトル行、Ｃ列以降２行目以下データとして

シート２に
=IF(ROW(A1)>COUNT(Sheet1!C:F),"",INDEX(Sheet1!$1:$1,MOD(SMALL(IF(Sheet1!$C$2:$F$10=1,ROW(Sheet1!$C$2:$F$10)*100+COLUMN(Sheet1!$C$2:$F$10)),ROW(A1)),100)))
と記入し、必ずコントロールキーとシフトキーを押しながらＥｎｔｅｒで入力、下向けにコピー

=IF(ROW(A1)>COUNT(Sheet1!C:F),"",INDEX(Sheet1!$A:$A,SMALL(IF(Sheet1!$C$2:$F$10=1,ROW(Sheet1!$C$2:$F$10)*100+COLUMN(Sheet1!$C$2:$F$10)),ROW(A1))/100))
と記入し、必ずコントロールキーとシフトキーを押しながらＥｎｔｅｒで入力、下向けにコピー

名前はＩＤからＶＬＯＯＫＵＰ関数で取ってきます。