Excelで配列にデータをプロットする方法が分からない？

質問

実際には表Ｂは大きな表ですが、簡略化して説明します。
下記のような表Ａに表ＢのＸ値とＹ値と、Ｙ値に連動するデータが設定される。
この表Ａから表Ｂの該当セルにData3を入力したいのですが、どのようにすれば出来るのでしょうか？

表Ａ
　Data1（表ＢのＸ値）：1,4,8
　Data2（表ＢのＹ値）：2,5,9
　Data3（Data2に連動する値）：1,3,2

表Ｂに期待する結果
　Sell(X1Y2)=1，Sell(X4Y2)=1，Sell(X8Y2)=1
　Sell(X1Y5)=3，Sell(X4Y5)=3，Sell(X8Y5)=3
　Sell(X1Y9)=2，Sell(X4Y9)=2，Sell(X8Y9)=2

Excelの関数を調べましたが、検索はできても、入力する関数がありません。
このため、手作業でデータ入力をしてますが、変更がある度に再入力するので、効率が悪くて困ってます。
お知恵を貸して下さい。よろしくお願いします。

回答No.2

comv · ベストアンサー

こんばんは

私も質問の意味が理解しきれないので
EXCELのワークシートを前提にした説明になっていない
ので相互の表の関係や表構成もイメージできません

以下は勝手な想像を交えての私なりの解釈ですが
Sell→CELL（セルの意味で書かれた）として
X　と　Y　は適当な箇所の表Ｂの範囲の
列をX　行をY　と解釈して

　　Ａ　　Ｂ　Ｃ　Ｄ
１ 表Ａ
２ Data1　１　４　８
３ Data2　２　５　９
４ Data3　１　３　２
５
６ 表Ｂ
７　Y＼X　１　２　３・・・９
８　１　　式→　→　・・・→
９　２　　↓　↓　↓・・・↓
：　：　　：　：　：・・・：
16　９　　↓　↓　↓・・・↓

セルＢ８に式
=IF(COUNTIF($A$2:$C$2,B$7)*COUNTIF($A$3:$C$3,$A8),INDEX($A$4:$C$4,MATCH($A8,$A$3:$C$3,0)),"")
と入力してＢ表の範囲に複写

お礼

ご回答を頂き、ありがとうございます。
拙い説明にも係らず、上手に解釈して頂きました。
ご回答の数式をそのまま実行してみたら、少し変でしたが、表Ａのデータをセル（Ａ２：Ｃ４）の範囲にしたら、
期待通りの内容で表Ｂのセルに入力されました。

数式の意味が未だ良く分からないので、調べてみます。
大変助かります。どうもありがとうございました。

回答No.4

imogasi

＞関数でも出来るのでしょうか
まあ出来たといえるでしょうか。正気の沙汰でない長さ？
これが全セルに埋めこまれます。至急値複写で式を消しては？
Ｓｈｅｅｔ２のＡ１に
=IF(AND(MATCH(COLUMN(),Sheet1!$A$1:$C$1,0)>0,MATCH(ROW(),Sheet1!$A$2:$C$2,0)>0),OFFSET(Sheet1!$A$3,0,MATCH(ROW(),Sheet1!$A$2:$C$2,0)-1),"")
と入れて、Ａ１０まで複写する。
Ａ１：Ａ１０をＢ１：Ｈ１０まで複写する。
あまりに長いので＃Ｎ／Ａの表示を防ぐのを取りあえず入れてないですが、さらに関数式の外側を
=IF(ISERROR(AND(MATCH(COLUMN(),Sheet1!$A$1:$C$1,0)>0,MATCH(ROW(),Sheet1!$A$2:$C$2,0)>0)),"","aa")
を参考に修正してください。"aa"のところに
OFFSET(Sheet1!$A$3,0,MATCH(ROW(),Sheet1!$A$2:$C$2,0)-1)を入れる。

お礼

未だ結果を確認するまでに至りませんが、ご教示頂いた内容でやってみます。

ご面倒を頂き助かりました。ありがとうございました。
後は何とか理解して検証してみます。

回答No.3

imogasi

＃１です。長文にも係わらず補足ありがとうございました。
ＶＢＡはやったことがないとのことで済みませんが
下記を実行して見てください。結果これで良いのなら
関数式の回答も出るかもしれません。
Ｓｈｅｅｔ１のＡ１：Ｃ３に、例データとして
1 4 8
2 5 9
1 3 2
を入れます。
Ｓｈｅｅｔ２のＡ１：Ｈ９（Ｃ１の８とＣ２の９から来る）を範囲指定して
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
sh2.Activate
For Each cl In Selection
For i = 1 To 3
For j = 1 To 3
If cl.Column = sh1.Cells(1, i) And _
cl.Row = sh1.Cells(2, j) Then
' MsgBox cl.Row & cl.Column
cl.Value = sh1.Cells(3, j)
End If
Next j
Next i
Next
End Sub
を実行してください。
結果はＡ１：Ｈ９が
Ａ列　Ｄ列 H列
(1)
(2)1　　　1　　　1
(3)
(4)
(5)3 3 3
(6)
(7)
(8)
(9)2 2 2
となります。結果はこれで良いのでしょうか。
－－－－
（ＶＢＡの実行のし方）
ワークシート１でも２でも良いが
ＡＬＴを押しながら「Ｆ１１」キーを押す。
ＶＢＥ画面になる。
ＡＬＴキーを押しながらＩ（挿入）次いでＭ（標準モジュール）を押す。
右の空白ウインドウに上記をコピーし貼りつけ。
Ｓｈｅｅｔ２のＡ１：Ｈ９の範囲を指定し黒転させて
コードのどこでもカーソルをポイントして
「Ｆ５」（実行）キーを押す。
(' MsgBox cl.Row & cl.Columnは行頭の’を消すと
確認用の行、列番号のメッセージが出ます）
＜文章で述べるなら＞
Ｓｈｅｅｔ２のセルのＣｅｌｌ(行、列）において、
Ｓｈｅｅｔ１の第１行（Ａ）の各セルの値の列であり
且つＳｈｅｅｔ１の第２行（Ｂ）の各セルの値の行に該当するならば、
第２行の各セルの値の列に対応した第３行（Ｃ）の列の値をセットする。
(注）Ａ、Ｂ、Ｃの行数は可変である。

補足

ご回答をありがとうございます。
内容はご指示のように実行し、確認しました。期待通りの結果でした。
関数でも出来るのでしょうか？

回答No.1

imogasi

問題の意味が良く取れません。私の頭が悪いか。でも４時間たって、エクセルで回答が入らないのは皆さん判りにくいのでは・・と思いなおして。
●関数式を聞いておられるのですね。
数学の行列と関係ありますか。
＞Data1（表ＢのＸ値）：1,4,8
セルで言えばＡ１＝１、Ｂ１＝４、Ｃ１＝８とか入っている（入れていく）のでしょうか。行並び？列並び？バラバラ？Ｘ値とは行（横）方向を意味してる？
＞Data2（表ＢのＹ値）：2,5,9
セルで言えばＡ１０＝２、Ｂ１０＝５、Ｃ１０＝９のでしょうか。行並び？Ｙ値とは列(縦）方向を意味してる？
＞Data3（Data2に連動する値）：1,3,2
ＤＡＴＡ２が値を左右するようですね。
ｙの数３個の時は３種１，３，２しか取らない。
Data2の個数とData1の個数は同じですか。
Data2の個数とData3の個数は同じですか。
●エクセルでは、値をセットするセル側に、関数式をセットしないとなりません。そのセルの場所は人間が判断してセルを決めます。
＞表Ｂに期待する結果
この意味が判りません。そう言う値になるよう、関数式を
セットしたい？
どこのセルに関数式をセットしたいのでしょう。
関数式は行方向複写か列方向複写が活かせる場面でこそ
利用する価値が出てきます。
＞Sell(X1Y2)=1，Sell(X4Y2)=1，Sell(X8Y2)=1
　Sell(X1Y5)=3，Sell(X4Y5)=3，Sell(X8Y5)=3
　Sell(X1Y9)=2，Sell(X4Y9)=2，Sell(X8Y9)=2
Ｓｅｌｌは普通Ｃｅｌｌですよ。
Sell(X1Y2)はCells(1,2)のことですか。ＶＢＡではこう使う。Ｂ１のこと？。Ｃｅｌｌｓ（行、列）で座標式に表します。
Sell(X1Y5)はCells(1,5)のことですか。Ｅ２のこと？
それですとＥ２に１をセットしたいのでしょうか。
●何となく、ＩＮＤＩＲＥＣＴ関数、ＯＦＦＳＥＴ関数の利用かとにおうのですが。
●具体的数値羅列より、法則を言葉で表した方が、他人に判りやすいことあり。１、１、２、３、５、８・・と書くよりも、前２項の和が当項になるといったほうが判りやすいような例。本件ではそれは可能かどうでしょうか？

補足

ご回答を頂き、ありがとうございます。
分かり難い説明でした。済みません。
大方、ご推察の通りですが、補足させ頂きます。

●関数式を聞いておられるのですね。＝＝＞その通りです。
数学の行列と関係ありますか。
＞Data1（表ＢのＸ値）：1,4,8
セルで言えばＡ１＝１、Ｂ１＝４、Ｃ１＝８とか入っている（入れていく）のでしょうか。＝＝＞その通りです。
＞行並び？列並び？バラバラ？Ｘ値とは行（横）方向を意味してる？ ＝＝＞Ｘ座標値でセルでいえば、１はＡ列を、４はＤ列を、８はＨ列を意味します。
＞Data2（表ＢのＹ値）：2,5,9
セルで言えばＡ１０＝２、Ｂ１０＝５、Ｃ１０＝９のでしょうか。＝＝＞その通りです。
＞行並び？Ｙ値とは列(縦）方向を意味してる？＝＝＞その通りですが、値は各々２は２行目を５は５行目を９は９行目を意味します。
＞Data3（Data2に連動する値）：1,3,2
ＤＡＴＡ２が値を左右するようですね。＝＝＞はい、２行目の該当する列には１が、５行目の該当する列には３が、９行目の該当する列には２が入るようにしたいのです。
＞ｙの数３個の時は３種１，３，２しか取らない。
Data2の個数とData1の個数は同じですか。
Data2の個数とData3の個数は同じですか。＝＝＞Data1とData2の個数は同じとは限りませんが、Data3はData2の個数と同じです。Data2に該当する行の当該列には、対応するData3の同じ値が入るようにしたいのです。

●エクセルでは、値をセットするセル側に、関数式をセットしないとなりません。そのセルの場所は人間が判断してセルを決めます。
＞表Ｂに期待する結果
この意味が判りません。そう言う値になるよう、関数式を
セットしたい？
どこのセルに関数式をセットしたいのでしょう。 ＝＝＞表Ａの設定値を利用して、表Ｂに値を入力したいので、表ＢのセルにはData3のデータしか必要ありません。関数式をセットする場合は表Ａに一行追加することで済ませたいのですが、Excelでは無理なことを要求しているのでしょうか？

関数式は行方向複写か列方向複写が活かせる場面でこそ
利用する価値が出てきます。
＞Sell(X1Y2)=1，Sell(X4Y2)=1，Sell(X8Y2)=1
　Sell(X1Y5)=3，Sell(X4Y5)=3，Sell(X8Y5)=3
　Sell(X1Y9)=2，Sell(X4Y9)=2，Sell(X8Y9)=2
Ｓｅｌｌは普通Ｃｅｌｌですよ。＝＝＞はい、間違えました。ご指摘ありがとうございます。
Sell(X1Y2)はCells(1,2)のことですか。ＶＢＡではこう使う。Ｂ１のこと？。＝＝＞Ｘ座標は列で、Ｙ座標は行を意味してますから、Ａ２の積りです。（済みません、ＶＢＡは使ったことがありません）

Ｃｅｌｌｓ（行、列）で座標式に表します。
Sell(X1Y5)はCells(1,5)のことですか。Ｅ２のこと？
それですとＥ２に１をセットしたいのでしょうか。＝＝＞Ａ５のことです。表Ｂの５行目で列Ａ，Ｄ，Ｈに３を入力したいのです。（私の表現とＶＢＡの表記が反対のようです）

●何となく、ＩＮＤＩＲＥＣＴ関数、ＯＦＦＳＥＴ関数の利用かとにおうのですが。＝＝＞調べましたが参照であって、配列の該当するセルにデータを入力できません。

●具体的数値羅列より、法則を言葉で表した方が、他人に判りやすいことあり。１、１、２、３、５、８・・と書くよりも、前２項の和が当項になるといったほうが判りやすいような例。本件ではそれは可能かどうでしょうか？＝＝＞はい、そのように表現するよう努力します。

この問題は、行列の「行の値」と「列の値」と入力したいデータが設定されている時に、「表にデータを入力する」方法が分からないので、直接手入力をしています。
これを自動化したいので、何か手は無いかということなのです。。。