Sub plj()
Dim I As Integer '苹果 10
Dim J As Integer '橘子 5
Dim K As Integer '桃子 3
Dim jgarr(1 To 100000, 1 To 3)
Dim jgJs As Long
Const Je = 1000
jgJs = 0
For I = Int(Je / 10) To 0 Step -1
CYJE = Je - I * 10
For J = Int(CYJE / 5) To 0 Step -1
K = Int(CYJE - J * 5) / 3
jgJs = jgJs + 1
jgarr(jgJs, 1) = I
jgarr(jgJs, 2) = J
jgarr(jgJs, 3) = K
Next J
Next I
Range("A2：C10000").ClearContents
Cells(2, 1).Resize(jgJs, 3) = jgarr
End Sub
1.8.6.4.8.9
写软件给你处理可以吗
内容全部来源于网络收集，如有侵权，请联系网站删除！