1樓：匿名使用者
**倒不難寫
只是組合數=2^(n+m)很大
你的條件很寬鬆
結果會很多
時間空間開銷都大
很可能行號會溢位
**如下
已執行通過
n=cells(rows.count, 1).end(xlup).row
m=cells(rows.count, 2).end(xlup).row
s=1 & string(n-1,"0")
k=0do
a=0u=""
for i=1 to n
if mid(s,i,1)="1" then a=a+cells(i,1):u=u+"+" & cells(i,1)
next
u=mid(u,2)
t=1 & string(m-1,"0")
dob=0
v=""
for i=1 to m
if mid(t,i,1)="1" then b=b+cells(i,2):v=v+"+" & cells(i,2)
next
if a=b then k=k+1:cells(k,3)=u+"="+mid(v,2)
for i=1 to m
if mid(t,i,1)="0" then exit for
mid(t,i,1)="0"
next
if i>m then exit do
mid(t,i,1)="1"
loop
for i=1 to n
if mid(s,i,1)="0" then exit for
mid(s,i,1)="0"
next
if i>n then exit do
mid(s,i,1)="1"
loop
2樓：一箭驚仙
用vba for迴圈巢狀無限試，沒別的辦法，公式別想了不可能的
3樓：匿名使用者
這得用巨集，老複雜了，還是不要想了
急急急使用excel中的vb來程式設計 求1000到
sub main dim str as string dim i as integer dim bfindflag as booleandim j as integer for i 1000 to 2000 step 1bfindflag false 求餘數 for j 2 to 2000 step...
急急急！高分懸賞！EXCEL圖表中，折線圖下面的資料表，系列4如何修改成所需要的各個折線代表的名
右鍵 源資料 系列 名稱裡面修改 不知道你指的是哪個1,2,3,4，如果是橫座標的，右鍵 源資料 系列 分類x軸標識裡面改 不能改，只能在後面新增你要表示的圖的名稱。excel2010版本無問題 cad裡高程點裡，點的顏色和字的顏色不一樣，如何把它改為一樣。求教各位大神，急急急，高分懸賞！我剛才看了...
《成長中的我》作文左右急急急急急急急急急急急急急
成長中的我作文 在人生漫長的旅途中，我一天天在成長，我也明白了許多，時光悠悠，波光明滅，就如一隻小魚的卵變成小魚後，不能再變成卵一樣，是無法從頭再來的。時光悠悠，一去不復返，每過一天，就會想明天是如何的，而不想當前，許多人都是這樣，天天在為明天做打算，成天生活在空虛中，到頭來，什麼也沒有做成，想從頭...