エクセルで全組合せを抽出したい

質問

A1セルにA
A2セルにB
A3セルにC・・・とA10セルまで続きます。（A10セルはJ）
これの重複無く全組合せを抽出する関数を教えてください。
2文字→AB,AC,AD,AE,AF,AG,AH,AI,AJ
３文字→ABC,ABD,ABE・・・
４文字→ABCD,ABCE,ABCF・・・

10文字→ABCDEFGHIJ

よろしくお願いします。

回答No.1

HohoPapa · ベストアンサー

VBAは持ち込めないんですね？
作業シート、作業列、行を使いますが
以下の方法はいかがでしょうか？

元となるシート名を"Sh1"、文字列群がA1:A10に埋まっている条件で説明します。

新たなシートを設け、以下を埋めます。
B1=10
C1=9
・・・・
J1=2
K1=1

M1=1
N1=2
・・・・
U1=9
V1=10

A2=DEC2BIN(QUOTIENT(ROW()-1,32),5)&DEC2BIN(MOD(ROW()-1,32),5)
B2=VALUE(MID($A2,B$1,1))
　これを横方向にK列まで複写
M2=@IF(B2=1,INDEX('Sh1'!$A$1:$A$10,M$1,1),"")
　これを横方向にV列まで複写
X2=M2&N2&O2&P2&Q2&R2&S2&T2&U2&V2

A2:X2を下方向に1024行まで複写

お礼

ありがとうございます！
まさに・・まさにやりたかったことです。
VBAが使用できない環境なのでなんとか関数で・・と思っていたけどまったくできず・・・。
回答いただけてめちゃくちゃ助かりました。永久保存版にします。
本当にありがとうございました。