如何在EXCEL中用VBA求解多個選項和條件對應的多個結果？

首先，打開excel，按alt+f11，打開vba編輯器，然後插入模塊。模塊內容如下，可以復制。

Sub？答（）

暗淡？A#？B#？C#？D#？E#？F#？G#？H#？我#？M#？X#

暗淡？掛嗎？作為什麽？長的

為了什麽？掛嗎？=?2?去哪？範圍（“a1“）。end（XL down）。劃？邁步？三

答？=?細胞（掛，？1):?b？=?細胞（掛，？2):?c？=?細胞（掛？+?1,?2):?細胞（掛？+?2,?2)?=?b？+?C

d？=?細胞（掛？+?2,?2)

e？=?細胞（掛，？3):?f？=?細胞（掛？+?1,?3):?g？=?細胞（掛？+?2,?3)

如果？答？& lt=?b？然後

細胞（掛，？4)?=?答？*?e:？細胞（掛？+?1,?4)?=?0:?細胞（掛？+?2,?4)?=?0

結束？如果

如果？答？& gt？b？然後呢。答？& lt=?d？然後

細胞（掛，？4)?=?b？*?e:？細胞（掛？+?1,?4)?=?（壹？-?b）？*?女:？細胞（掛？+?2,?4)?=?0

結束？如果

如果？答？& gt？d？然後

細胞（掛，？4)?=?b？*?e:？細胞（掛？+?1,?4)?=?c？*?女:？細胞（掛？+?2,?4)?=?（壹？-?d）？*?G

結束？如果

細胞（掛，？5)?=?細胞（掛，？4)?+?細胞（掛？+?1,?4)?+?細胞（掛？+?2,?4)

下壹個？懸掛

結束？潛水艇