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

Question

目前，单元格B2包含在使用Solver生成特定输出时引用的数字。 B2中的不同值会产生不同的值，我正在尝试创建代码来确定哪个值会产生最高值。

代码应该使用一个循环遍历一行单元格（比如说行B10：B20），每行包含一个不同的数字，对于每个单元格，将值插入B2，然后运行Solver生成输出。

例如，它应该用B10替换B2，运行求解器，然后用B11替换B2，再次运行求解器等。如何让它继续将B2的值更改为下一个单元？

Answer 1

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