行内のすべての組み合わせを一覧表示するVBAマクロ

Question

私はVBAには比較的新しいので、現在自分の能力を上回るマクロを作成しようとしています。

基本的に、私は、例えばので、テーブルの列内のすべての可能な組み合わせを一覧表示するには見ています：

Gas Diamonds Graphite Graphene 
Red Blue Black 

は

Gas Diamonds 
Gas Graphite 
Gas Graphene 
Diamonds Graphite 
Diamonds Graphene 
Graphite Graphene 
Red Blue 
Red Black 
Blue Black 

テーブルが5列の最大値を有するなります。

ご協力いただければ幸いです。予め

おかげとの組み合わせの数及びディスプレイを通じて

Dim Lastcolumn 
With ActiveSheet 
    LastColumn = .Cells(2, .Columns.Count).End(xlToLeft).Column 
End With 

ループと1列に要素の数を取得する

Answer 1

試行「細胞（X、Y）」