语法以遍历一系列单元格并更改单元格值

当前，单元格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

回答