分析多个数组并写入所有可能的组合

我正在尝试在Excel中使用VBA将三个数组的内容的所有可能组合写入一个列以创build一个单词表。

目前，我知道如何遍历数组，并得到一些我想要的输出，但我不知道如何构build循环，给我所有可能的baseWord（n）＆numberCharSet（n）＆specialCharSet（n ）。

如何正确地循环baseWord数组以获取每个baseWord与specialCharSet和numberCharSet数组的内容的所有组合？

例如：Cloud1！ Cloud1 @ Cloud1＃Cloud1 $ Cloud2！ 等等…

Private Sub createWordlist() Dim baseWord(1 To 2) As String baseWord(1) = "Cloud" baseWord(2) = "cloud" Dim numberCharSet(1 To 4) As String numberCharSet(1) = "1" numberCharSet(2) = "2" numberCharSet(3) = "3" numberCharSet(4) = "4" Dim specialCharSet(1 To 4) As String specialCharSet(1) = "!" specialCharSet(2) = "@" specialCharSet(3) = "#" specialCharSet(4) = "$" x = 1 y = 1 z = 4 w = 1 For Each Item In baseWord Range("A" & x).Value = baseWord(w) & numberCharSet(y) & specialCharSet(z) x = x + 1 y = y + 1 z = z - 1 Next End Sub 

Answer 1

正如@ScottCraner在评论中提到的，你只需要嵌套3个循环：

 For Each word In baseWord For Each num In numberCharSet For Each special In specialCharSet Debug.Print word & num & special Next Next Next