可以用宏循环
count=1
for i = 1 to 10
for j= 1 to 10
for k=1 to 10
for l= 1 to 10
for m=1 to 10
if (m=i or m=j or m=k or m=l ) then continue
if i+j+k+l+m=24 then
cells(count,1)=cstr(i) & "+" + cstr(j) & "+" +cstr(k) & "+" +cstr(l) & "+" +cstr(m)
exit for
end if
next
if (l=i or l=j or l=k ) then continue
next
if (k=i or k=j) then continue
next
if j=i then continue
next追问我不懂代码。虽然你的答案没有解决我的问题,但是我已经通过其他渠道解决了。你回答这么认真我就采纳你了。