在范围内循环，如果条件满足，则设置值

我搜遍了堆栈，但没能find类似于我的问题。 所以这是我的问题：

我想写一个简单的macros来评估单元格B2。

• 如果B2有一个值，我希望macros将另一个工作表中的值（比如：worksheet2，单元格A1，它表示“Award4455”）粘贴到单元格C2中;
• 如果B2是空白的，我想要macros留下C2空白。

然后我想用相同的条件评估B3（填充或不填充C3，取决于B3是否有值或是空白）。 我希望公式循环7行（B2：B8），填充（或不填充）列C中的相应单元格。

这是我正在尝试（失败 – 我不断收到各种错误信息）：

For i = 2 To 8 Dim Award As String Award = Sheets("Sheet2").Range("A1").Value If Len(Range(i, "B")) = 0 Then Range(i, "C") = Award End If Next i 

Answer 1

我们：

1. 拉环和外奖
2. 修复Range语句的语法

 Sub dural() Dim Award As String Award = Sheets("Sheet2").Range("A1").Text For i = 2 To 8 If Len(Range("B" & i)) = 0 Then Range("C" & i) = Award End If Next i End Sub