エクセルのデータベース計算で困っています。どなたかお分かりの方ご教示下さい

質問

エクセルで
【データベース1】
コードA
100
101
【データベース2】
コードB
200
201
【データベース3】
値
301
302

の三つのデータベースから

【結果】
コードA　　コードB　値
101 200 301
101 200 302
101 201 301
101 201 302
102 200 301
102 200 302
102 201 301
102 201 302

のような結果を作成することは可能でしょうか。
エクセルに詳しい方ぜひご教示下さい。
色々なエクセルのサイトを検索したのですが
ついにわからず困ってまして…どうか宜しくお願いします！

もし可能でしたらエクセル関数でお願いします。
(ご無理でしたらVBAでも大歓迎です)

回答No.3

noname#110201

本当に、総当りの組み合わせを作りたいだけなのでしょうか？
総当りとは、３つの数字のあらゆる組み合わせを作る意味なのですが。
３つの数字にそれぞれ２つの選択肢があるので、８通りの組み合わせができますね
確かに、提示されている例では、そうなっています。

総当りではなく、データベースとしての機能を実現させるのでしたら、VLOOKUP関数を考えてみてください。
この関数については、私がごちゃごちゃ書くより、ぐぐってみればいくらでも引っかかってきます。
例えば、

http://allabout.co.jp/computer/msexcel/closeup/CU20060805A/

でも、データベースなら、アクセスを使ったほうがよいのではないでしょうか。

総当りの組み合わせを作るだけなら、下に示したプロシージャのような感じでできます。
シートA、B、CのそれぞれA2のセルから下に組み合わせにつかう数字が並んでいるとします。
その数字はいくつあってもかまわないようにしてありますが、空白のセルがあればそこで数字の列が終わっていると判断しています。
キーになるフィールドは不要です。このキーも出力させる必要があれば、適当にアレンジしてください。
結果はシートResultに出力されます(あらかじめその名前のシートがある、という前提です)。

タブ寄せがうまくコピーできるかどうか分かりませんが、もしうまくいかなければ、お手元のエディタにコピーして、解読してください。
動作確認していますので、私の意図のとおりには動くはずです。

Sub AllCombination()
Dim ValueA As Variant, ValueB As Variant, ValueC As Variant

Worksheets("Result").Select
Range("A1").Value = "A"
Range("B1").Value = "B"
Range("C1").Value = "C"
Range("A2").Select

Worksheets("A").Select
Range("A2").Select
While ActiveCell.Value <> ""
ValueA = ActiveCell.Value
Worksheets("B").Select
Range("A2").Select
While ActiveCell.Value <> ""
ValueB = ActiveCell.Value
Worksheets("C").Select
Range("A2").Select
While ActiveCell.Value <> ""
ValueC = ActiveCell.Value

Worksheets("Result").Select
ActiveCell.Value = ValueA
ActiveCell.Offset(0, 1).Value = ValueB
ActiveCell.Offset(0, 2).Value = ValueC
ActiveCell.Offset(1, 0).Select
Worksheets("C").Select

ActiveCell.Offset(1, 0).Select
Wend
Worksheets("B").Select
ActiveCell.Offset(1, 0).Select
Wend
Worksheets("A").Select
ActiveCell.Offset(1, 0).Select
Wend
Worksheets("Result").Select
End Sub

回答No.2

noname#79209

要は、総当たりの組み合わせで表を作りたいのだと思います。
「コードＡ」のサンプルと「結果」との内容が異なるので、
回答者諸氏が混乱しています。ご注意ください。

もし、そうなら、
ワークシート関数を使ってもある程度は可能だと思いますが、
行数が多いと限界があります。
まあ、ＶＢＡでしょうね。
各表ごとにFOR－NEXTとかDO-LOOPを入れ子にして回せばできますよ。

「だからぁ、そのコードを教えて！」
と言われるでしょうが、それだと全くの丸投げなので．．．

お礼

補足を先につけてしまいましたが
ご回答ありがとうございます。

補足

ご回答ありがとうございます。
すみません、ご指摘の通り例示させていただいたものは二回とも誤りでした。

以下が正です。
【データベース1】
コード1 コードA
aa 100
aa 101
bb 102
【データベース2】
コード1　コードB
aa　　　　　200
aa　　　　　201
cc　　　　　202
【データベース3】
コード1　　　　値
aa 301
aa 302
dd 303
の三つのデータベースから

【結果】
コード1 コードA　　コードB　値
aa 100 200 301
aa 100 200 302
aa 100 201 301
aa 100 201 302
aa 101 200 301
aa 101 200 302
aa 101 201 301
aa 101 201 302

>要は、総当たりの組み合わせで表を作りたいのだと思います。
その通りだと思います(言葉が厳密にわからないので曖昧ですみません)

>ワークシート関数を使ってもある程度は可能だと思いますが、
>行数が多いと限界があります。
>まあ、ＶＢＡでしょうね。
>各表ごとにFOR－NEXTとかDO-LOOPを入れ子にして回せばできますよ
ありがとうございます。
・関数では難しいこと
・VBAなら可能なこと
がわかっただけでも収穫です。
>「だからぁ、そのコードを教えて！」
>と言われるでしょうが、それだと全くの丸投げなので．．．

仰る通り丸投げの積もりでした。
これからのことを考えても良いとは言えないですよね。
ギリギリまで考えてみます。

回答No.1

sytkn

【結果】の表示の組み合わせが良く分かりません。

コードAを4つづつ表示、コードBを2つづつ表示、値を順番に1つづつ表示させたいと言う事でしょうか？

何（どこのセル）を基準に、どのようにしたい（並べ替えたい・表示したい・コピーしたい）と言うのがいまいち分かりません。
もう少し具体的に説明お願いします。

お礼

補足を先につけてしまいましたが
ご回答ありがとうございます。

補足

早速のご回答ありがとうございます。
そして説明不足失礼致しました。

説明しようにも適当な言葉がわからず難しいのですが
誤解を恐れずに申し上げますと各値に対して共通のコードが存在し、その条件にあった各値の数だけ結果の表示が倍々になっていく結果がほしいのです。

下記であれば
コード1=aaを条件に各データベースを結合させます。
(結果の行数は(コードAの条件適合行数)×(コードBの条件適合行数)×(値の条件適合行数)に自動的に表示される)
【データベース1】
コード1 コードA
aa 100
aa 101
bb 102
【データベース2】
コード1　コードB
aa　　　　　200
aa　　　　　201
cc　　　　　202
【データベース3】
コード1　　　　値
aa 301
aa 302
dd 303
の三つのデータベースから

【結果】
コード1 コードA　　コードB　値
aa 101 200 301
aa 101 200 302
aa 101 201 301
aa 101 201 302
aa 102 200 301
aa 102 200 302
aa 102 201 301
aa 102 201 302

>何（どこのセル）を基準に、
答えになっているかわかりませんが、コード1を基準にです

>どのようにしたい（並べ替えたい・表示したい・コピーしたい）と言うのがいまいち分かりません。
「三つのデータベースを結合させたい」と申し上げるのが合っているかと思います。