エクセル関数で困っています。

質問

エクセル関数で困っています。

Ａの表とＢの表を統合したいのです。

●Ａ表

名前　　身長　　体重
田中　　165　　　65
佐竹　　167　　　45
伊藤　　124　　　35

●
名前　　胴囲　　座高
伊藤　　70　　　60
佐竹　　65　　　78
鈴木　　62　　　42

これを名前をキーにして統合した表を作りたいのです　

関数を教えてください。

よろしくお願いします。

回答No.3

avanzato · ベストアンサー

#2です。
表Ａに無くて表Ｂにある人の数が不明で数式で処理するには問題がある為VBAを使用します。
標準モジュールを追加して頂き、下記の様にしてください。
Option Explicit
Sub Sample()
　　Dim I As Integer
　　Dim X As Integer
　　Dim SkipFlg As Integer
　　I = 2 '表Ａの開始行
　　X = 12 '表Ｃの開始行
　　Application.ScreenUpdating = False
　　Do While Range("A" & I).Value <> "" '表Ａの最終行までループ
　　　　Range("A" & X).Value = Range("A" & I).Value '名前
　　　　Range("B" & X).Value = Range("B" & I).Value '身長
　　　　Range("C" & X).Value = Range("C" & I).Value '体重
　　　　Range("D" & X).Value = 0 '胸囲
　　　　Range("E" & X).Value = 0 '座高
　　　　I = I + 1
　　　　X = X + 1
　　Loop
　　I = 7 '表Ｂの開始行
　　Do While Range("A" & I).Value <> "" '表Ｂの最終行までループ
　　　　SkipFlg = 0
　　　　X = 12 '表Ｃの開始行
　　　　Do While Range("A" & X).Value <> "" '表Ｃの最終行までループ
　　　　　　If Range("A" & X).Value = Range("A" & I).Value Then '表Ｃに名前がある場合
　　　　　　　　Range("D" & X).Value = Range("B" & I).Value '胸囲
　　　　　　　　Range("E" & X).Value = Range("C" & I).Value '座高
　　　　　　　　SkipFlg = 1 'あった場合は追加登録判定を付ける
　　　　　　　　Exit Do
　　　　　　End If
　　　　　　X = X + 1
　　　　Loop
　　　　If SkipFlg <> 1 Then '追加登録判定を判断
　　　　　　'表Ｃに名前がない場合
　　　　　　Range("A" & X).Value = Range("A" & I).Value '名前
　　　　　　Range("B" & X).Value = 0 '身長
　　　　　　Range("C" & X).Value = 0 '体重
　　　　　　Range("D" & X).Value = Range("B" & I).Value '胸囲
　　　　　　Range("E" & X).Value = Range("C" & I).Value '座高
　　　　End If
　　　　I = I + 1
　　Loop
　　Application.ScreenUpdating = True
End Sub

今回のコードを実行すると表Ａと表Ｂを結合した表Ｃが作成されます。
(参考画像11行目の見出しは表示されません。)

回答No.2

avanzato

こんにちは。
表が同じシートにある場合で次の様なとき、
　　Ａ列　Ｂ列　Ｃ列
１　名前　身長　体重
２　田中　165　65
３　佐竹　167　45
４　伊藤　124　35

６　名前　胸囲　座高
７　伊藤　70　　60
８　佐竹　65　　78
９　鈴木　62　　42

この時、D2の数式を
=VLOOKUP($A2,$A$7:$C$9,2,FALSE)
E2の数式を
=VLOOKUP($A2,$A$7:$C$9,3,FALSE)
としてD2からE2を4行目までコピーしてください。

この例の場合、Ｂ表に田中さんが居ない為田中さんはエラーになります。
サンプルのため名前が無いのか分かりませんが意図的に名前が無いのなら別の方法が必要となります。

補足

大変わかりやすいアドバイスありがとうございます。

あと問題は
?統合された表で「田中」の胸囲　座高はエラーではなくセロ表示したいのです。

?統合された表でＡ表には無かった「鈴木」の行が必要です

何かいい案ありますでしょうか・・・

回答No.1

masak2007j

ＶＬＯＯＫＵＰ関数を使ってみてはどうでせうか？
ワークシートをまたげると思いますよ。

お礼

ありがとうございます。

早速試してみます