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

【问题标题】：Syntax to loop through a range of cells and change a cell value循环遍历一系列单元格并更改单元格值的语法
【发布时间】：2013-12-12 14:16:53
【问题描述】：

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

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

例如，它应该将 B2 替换为 B10，运行求解器，然后将 B2 替换为 B11，再次运行求解器等。如何使其不断将 B2 的值更改为以下单元格？

【问题讨论】：

标签： excel vba

【解决方案1】：

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

【讨论】：