語法以遍歷一系列單元格並更改單元格值

當前，單元格B2包含使用Solver生成特定輸出時引用的數字。 B2中的不同值會產生不同的值，我試圖創建代碼來確定哪個值會產生最高值。語法以遍歷一系列單元格並更改單元格值

代碼應該使用一個循環遍歷每行包含不同數字的一行單元格（假設行B10：B20），並且對於每個單元格，將該值插入到B2中，然後運行Solver以生成輸出。

例如，它應該用B10替換B2，運行求解器，然後用B11替換B2，再次運行求解器等等。我如何使它保持將B2的值更改爲以下單元格？

dim c as range 
for each c in activesheet.range("B10:B20").cells 
    activesheet.range("B2").value = c.value 
    'etc 
next c

2013-11-27 05:59:33

回答