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 N360问答ext j Next i End Sub
