求个EXCEL穷举代码

发布网友发布时间：2022-05-07 21:26

共3个回答

热心网友时间：2022-07-01 12:53

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

热心网友时间：2022-07-01 12:53

1.8.6.4.8.9

热心网友时间：2022-07-01 12:54

写软件给你处理可以吗追问杀鸡焉用牛刀！ excel就解决了！坐等VBA代码！

追答好吧

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com