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列。

任何帮助将不胜感激！

提前致谢

Answer 1

尝试使用

获取一列中的元素数量

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

循环组合数并显示“Cells（x，y）”