Excelで2つのシートの値が一致したものを抽出するには？

解決済

質問者：RM
質問日時：2016/06/27 21:01
回答数：2件

Excelについて質問があります。
以下の2つのシート(セルをカンマで区切って表現)sheet1とsheet2があります。
sheet1の1列目にはナンバーIDがふられています。2列以降は各Question番号となっており、2行目からその回答番号があります。
sheet2は1行だけのものであり、このsheet2のQuestion番号と一致したものをsheet1から抽出して以下のoutputのようなsheetを作りたいと考えております。
どのようにすればできるか教えてください。
宜しくお願い申し上げます。

-----------------sheet1------------------
No,Q321,Q521,Q521_c,Q714,Q715_c,...
1,15,1,2,4,1,...
2,24,2,1,3,2,...
3,25,1,3,2,2,...
4,20,3,2,1,1,...
.
.
.
-----------------sheet1------------------

-----------------sheet2------------------
Q321,Q,715_c,...
-----------------sheet2------------------

------output-------
No,Q321,Q715_c,...
1,15,1,...
2,24,2,...
3,25,2,...
4,20,1,...
.
.
.
------output-------

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： mike_g
回答日時：2016/06/27 22:06

添付図参照

Sheet2!B2: =VLOOKUP($A2,Sheet1!$A:$HZ,MATCH(B$1,Sheet1!$1:$1,0),FALSE)

- 0
- 件

通報する

No.2

回答者：ママチャリ
回答日時：2016/06/27 22:32

マクロで良ければ、こんな感じです。

Sub sample()
Sheets("Sheet2").Rows("1:1").Copy Destination:=Sheets("output").Rows("1:1")
Sheets("Sheet1").Range("A1").Copy
Sheets("output").Range("A1").Insert Shift:=xlToRight
Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter Action:= _
xlFilterCopy, CopyToRange:=Sheets("output").Range("A1").CurrentRegion
End Sub