您好,今天蔡哥来为大家解答以上的问题。excel自动生成排列组合7组数字，excel自动生成排列组合相信很多小伙伴还不知道,现在让我们一起来看看吧！
1、Sub musub() Dim caseArray(3) As String caseArray(0) = "A" caseArray(1) = "B" caseArray(2) = "C" caseArray(3) = "D" Dim rowNum As Integer For i = 1 To 4 For j = 1 To 4 For k = 1 To 4 For l = 1 To 4 rowNum = rowNum + 1 Cells(rowNum, 1) = "情形" & CStr(rowNum) Cells(rowNum, 2) = caseArray(i - 1) Cells(rowNum, 3) = caseArray(j - 1) Cells(rowNum, 4) = caseArray(k - 1) Cells(rowNum, 5) = caseArray(l - 1) Next l Next k Next j Next iEnd Sub。
本文就为大家分享到这里，希望小伙伴们会喜欢。