(资料图片仅供参考)

1、Submusub()DimcaseArray(3)AsStringcaseArray(0)="A"caseArray(1)="B"caseArray(2)="C"caseArray(3)="D"DimrowNumAsIntegerFori=1To4Forj=1To4Fork=1To4Forl=1To4rowNum=rowNum+1Cells(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)NextlNextkNextjNextiEndSub。

本文就为大家分享到这里，希望小伙伴们会喜欢。