複数エクセルシートの組合せるマクロの質問で(2)

質問

ややこしくて済みません。質問の真意は以下の通りです。
＜シート１＞にはABCD....の2桁からの組合せ、＜シート2,3,4....＞には0と1の2桁、3桁、4桁....の組合せになります。そして<macro>シートには＜シート１＞の各桁の組合せと0,1を組合せた結果のまとめになります。以下は例文です。
<sheet>1
A　B
A　C
:　:
A　B　C
A　B　D
:　:　:
A　B　C　D
A　B　C　E
:　:　:　:
<shee2>
1 1
1 0
: :
<sheet3>
1 1 1
1 0 1
: : :
<sheet4>
1 1 1 1
1 1 1 0
: : : :
<macro>
A B
1 1
A B
1 0
: :
A B C
1 1 1
A B C
1 0 1
A B D
1 1 1
A B D
1 0 1
: : :
A B C D
1 1 1 1
A B C D
1 1 1 0
A B C E
1 1 1 1
A B C E
1 1 1 0
: : : :

以上、マクロの組み方あるいは関数などで解決できる方法を教えていただきたいです。

回答No.2

KURUMITO · ベストアンサー

回答No１です。
シート１のデータはお示しの表では間に空白の行が有るようになっていますが、空白の無い形で１行目から下方に入力されているものとしてください。

回答No.1

KURUMITO

関数で対応することができます。
シート１からシート４までのデータはお示しのデータが１行目から下方に入力されているとします。
そこでマクロのシートですが例えばシート５に表示させるとして１行目は空白でA２セルには次の式を入力してD２セルまで横にドラッグコピーしたのちに下方にも２５行目までドラッグコピーします。

=IF(MOD(ROW(A1),2)=1,IF(INDEX(Sheet1!$A:$D,ROUNDUP(ROW(A1)/4,0),COLUMN(A1))=0,"",INDEX(Sheet1!$A:$D,ROUNDUP(ROW(A1)/4,0),COLUMN(A1))),IF(A1="","",INDEX(INDIRECT("Sheet" &COUNTIF($A1:$D1,"?*")&"!A:D"),(MOD(ROW(A1)-1,4)+1)/2,COLUMN(A1))))