エクセル セルを参照し同じ内容を複写できずに困っています

質問

これができると楽になるため、よろしくお願いします。

現状のセル情報が以下の場合。
　　　Ａ　　　　Ｂ　　　　Ｃ
１　あいう　　日本
２　あいう
３　かきく　　　　　　JAPAN
４　かきく
５　かきく
６　さしす　　　　　　ニホン
７　さしす
８　さしす
９　さしす

Ｂ列を参照して入力（例ではＢ１に”日本”）があるときは、Ａ１を参照する。
Ａ１のセル内容（例では”あいう”）を参照し、Ａ２：Ａ９のセル内容がＡ１のセル内容と一致する場合は、Ｂ２にＢ１と同じ内容（例では"日本”）を入力するためにはどのよにすればいいでしょうか。
※Ｃ列も同様です。

Ａ１：Ｃ９での範囲を指定してでできればベストですが、Ｂ列、Ｃ列ごとにでもできればうれしいです。

いい方法はないでしょうか。

結果として、以下のとおりなることを望んでいます。
　　　Ａ　　　　Ｂ　　　　Ｃ
１　あいう　　日本
２　あいう　　日本
３　かきく　　　　　　JAPAN
４　かきく　　　　　　JAPAN
５　かきく　　　　　　JAPAN
６　さしす　　　　　　ニホン
７　さしす　　　　　　ニホン
８　さしす　　　　　　ニホン
９　さしす　　　　　　ニホン

よろしくお願いします。

回答No.2

zap35 · ベストアンサー

もし関数で質問文通りのことを実現することを希望するなら「そのままではできません」が回答です。
理由はB列やC列に数式を入力する場合、その式はB列、C列の値（例えば「日本」）を参照する必要があるため、循環参照となってしまいエラーとなるからです。

ただしB列、C列に値を表示するのではなく、いったん作業列としてD列、E列に値を表示するなら関数式で可能です。D1セルに以下の式を貼り付けて、下方向と右方向にコピーしてください。すると質問文にあるような結果になります。
それをコピーして、B列、C列に「編集」→「形式を選択して貼り付け」→「値」で貼り付ければ、結果としては求めている状態にすることができます。

　=IF(INDEX(B:B,MATCH($A1,$A:$A,0))="","",INDEX(B:B,MATCH($A1,$A:$A,0)))

VBAを用いれば、作業列を用いることなく表の加工が可能です
もしVBAが良ければ補足してください。

お礼

ありがとうございます。
凄いです。
できました。
今回は作業列で行います。

本当に助かりました。
ありがとうございました。

回答No.4

imogasi

見つかった最初の行に「日本」などが見つかるらしい例なのであるが、日本が見つかる位置が変動し、列も変動するので、こういう種類の問題は、関数向きでなく、ＶＢＡ向きの問題だ。
例データ
あいう 日本
あいう
かきく ーー JAPAN
かきく
かきく
さしす ーー ーー ニホン
さしす
さしす
さしす
ーーは空白のつもり。左詰め表示防止用。
質問例に比べ、ニホンの列を１列ヅラして少し難しくしてある。
ーー
コード
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
If Application.WorksheetFunction.CountBlank(Range("B" & i & ":D" & i)) = 3 Then
Cells(i, y) = x
Else
For j = 2 To 4
If Cells(i, j) <> "" Then
x = Cells(i, j)
y = j
Exit For
End If
Next j
End If
Next i
End Sub
ーー
結果
あいう 日本
あいう 日本
かきく ーー JAPAN
かきく ーー JAPAN
かきく ーー JAPAN
さしす ーー　－－ ニホン
さしす ーー　－－ ニホン
さしす ーー　－－ ニホン
さしす ーー　－－ ニホン

お礼

ありがとうございます。
一度ＶＢＡにも挑戦してみます。
不明な点があれば、再度質問しますので、その際はよろしくお願いします。
お手数をおかけしました。

回答No.3

regist_560

1）まず、下記のような表を作ります。
　　　　Ａ　　　Ｂ　　　Ｃ
１　　あいう　　日本
２　　かきく　　　　　　JAPAN
３　　さしす　　　　　　ニホン

そして、このA1:C3を選択し、メニューの「挿入」→「名前」→「定義」で範囲名を適当に付けます。ここでは名前を「範囲」とします。
２）
同じファイルの別のワークシートまたは、上記の表を定義したワーク
シート下行にでも、下記のデータがあるとします。
　　　Ａ　　　Ｂ　　Ｃ
１　　あいう
２　　あいう
３　　かきく
４　　かきく
５　　かきく
６　　さしす
７　　さしす
８　　さしす

このとき、B1セルには、”日本”と入ればよく、C1セルは空白になるということですね。

関数は、vlookupを使い、B1セルに下記のように入力します。
=VLOOKUP(A1,範囲,2,TRUE)
C1セルには、こう入力します。
=VLOOKUP(A1,範囲,3,TRUE)
こうすると、下記のようになるはずです。

　　　Ａ　　　Ｂ　　Ｃ
１　　あいう　日本　0
２　　あいう　日本　0
３　　かきく　0　　 JAPAN
４　　かきく　0　　 JAPAN
５　　かきく　0　　 JAPAN
６　　さしす　0　　 ニホン
７　　さしす　0　　 ニホン
８　　さしす　0　　 ニホン

ここで、計算結果が「0」と表示されるのがうっとうしい場合には、
上記のB1:C8を選択して、書式→セル→表示形式を選んで、
種類のボックスに、「G/標準」を変更し、この表示形式を「G/標準;;」
というように「;;」（セミコロン２つ）を付けてみてください。
すると、計算結果が0のセルについては、空白で表示されるようになります。
なお、計算式の意味は、ヘルプを参照してください。

お礼

ありがとうございました。
私の質問の仕方が悪かったことからお手数をおかけしました。
Ａ列には沢山のデータが存在するため、１）の表を作成することが大変となってしまいます。
でも、勉強になりました。
ありがとうございました。

回答No.1

tom04

IF関数を使うのが一番簡単ではないでしょうか
B1のセルに=IF(A1="あいう","日本","")
C1のセルに=IF(A1="かきく","JAPAN",IF(A1="さしす","ニホン",""))
とやってあとはオートフィル機能でドラックで完了！

お礼

Ａ列は”あいう””かきく”等、いろいろな内容が記入されていますので、これでは少し大変かと思います。

でも、早々のご回答ありがとうございます。
私の説明不足でお手数をおかけしました。

今後ともよろしくお願いします。