循环遍历范围，如果满足条件，则设置值。
循环遍历范围，如果满足条件，则设置值。
提问于 2015-01-06 18:29:49
我在书堆里搜寻，但找不到一个和我的问题相似的问题。所以我的问题是：
我想编写一个计算单元格B2的简单宏。
- 如果B2有一个值，我希望宏将另一个工作表中的值粘贴到单元格C2中(比方说: worksheet2，单元格A1，上面写着"Award4455")；
- 如果B2为空，则希望宏将C2保留为空白。
然后，我希望使用相同的条件(填充或不填充B3，这取决于B3的值是值还是空白)来计算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回答 1
Stack Overflow用户
回答已采纳
发布于 2015-01-06 18:58:58
我们：
- 将Dim和奖励拉出圈外
- 修正范围语句的语法
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/27804855
复制相关文章
相似问题
腾讯云开发者
