Excel VBA 从 3 列或更多列生成单元格组合

Question

我想在 Excel 中创建关键字组合，但不是所有可能的排列（这会创建太多组合）

这里有 3 个示例列，我在这里只列出其中的 2 个值：

A:
Two
Three

B:
Red
Blue

C:
Shirts
Jackets

结果会是这样的：

Two Red Shirts
Two Red Jackets
Two Blue Shirts
Two Blue Jackets
Three Red Shirts
Three Red Jackets
Three Blue Shirts
Three Blue Jackets

我不希望单词改变它们的位置，所以第三个单词不能成为第一个。列可以有不同数量的单元格。每个单元格可以有多个单词，如果可以轻松地将 3 列组合更改为 4 或 5，那将是完美的。

提前致谢

Answer 1

这样的事情可能会奏效：

Sub test()
  Dim x, y, z, lastRow As Long
  lastRow = ThisWorkbook.Sheets(1).UsedRange.Rows.Count
  For Each x In Range("A1:A" & lastRow)
    For Each y In Range("B1:B" & lastRow)
      For Each z In Range("C1:C" & lastRow)
        Debug.Print x & " " & y & " " & z
      Next z
    Next y
  Next x
End Sub

我将输出写入即时窗口，但您可以将其放在任何您喜欢的位置。

如果要添加更多列，则需要添加更多循环。如果单元格为空，它将不向字符串附加任何内容（不存在的单元格内容）。