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 i
End Sub
