エクセル マクロ 組み合せ

質問

エクセルのマクロでa,b,c,d,e,f,g の2組合せ　（7C2）の全組合せを洗い出して表示したいですが、、、、、、

回答No.1

okormazd

列Aに、
a
b
c
d
e
f
g
とあるとき、列Bに
組合わせ、
ab
ac
ad
・
・
・
を書き出す。

Sub combi()

r = Range("A1:" & Range("A1").End(xlDown).Address).Rows.Count
k = 0
For i = 1 To r
For j = i + 1 To r
s = Cells(i, 1) & Cells(j, 1)
k = k + 1
Cells(k, 2) = s
Next
Next

End Sub

お礼

ありがとうございます。ちょっとやってみます。

補足

続き、上のa,b,c,d,e,f,g の2組合せの全組合せから任意の四つの2組合せ（4C2）の全組合せを引いた残りの組み合わせを表示したですが、エクセルのマクロで表示することはできるでしょうか？？